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arum gibt es von Happy- 
Computer nur Sonderhefte 
zu den Schneider-Compu- 


tern und kein eigenes Magazin? Sol- 
che oder ähnliche Fragen unserer 
Leser erreichen uns, fast schon seit 
der erste CPC im Jahr 1984 auf dem 
Markt erschien. Und natürlich mach- 
ten wir uns auch Gedanken über das 
Informationsbedürfnis der stolzen 
Besitzer dieses erfolgreichen New- 
comers. Wir entschieden uns damals, 
wie inzwischen wohl ein jeder weiß, für 
eine regelmäßige, im dreimonatigen 
Rhythmus erscheinende Sonderheft- 
reihe. Damit, so glauben wir, bieten wir 
Ihnen als aktivem CPC-Benutzer eine 
gelungene Mischung  vielfältigster 
Informationen, Tips und Listings. 
Unser monatliches Magazin Happy- 
Computer. bringt Ihnen einen hoch- 
aktuellen Überblick über den Gesamt- 
markt und generelle technologische 
Entwicklungen auf dem Computer- 
sektor. Diesem äußerst wichtigen 
Anspruch kann man in einem reinen 
»Schneider-Magazin« leider nicht 
gerecht werden. Aber schließlich 
haben Sie ein berechtigtes Interesse 
daran, daß Ihr Blick nicht durch 
»Scheuklappen« begrenzt wird. 

Dazu kommen die neuesten, auch 
speziell aus der Schneider-Welt stam- 
menden Neuheiten, die Sie oft bei uns 
zuerst erfahren, bevor andere davon 
auch nur Gerüchte kennen. 

Nichtsdestotrotz gibt es einen eige- 
nen Schneider-Teil mit aktuellsten 
Hard- und Software-Tests, Tips, Kur- 
sen und ausgesuchten Spitzen- 
Listings. Nehmen Sie all diese interes- 
santen Themen zusammen, also den 
Schneider-»Teile, die umfassende 
Markt-Übersicht (durch Messebericht- 
erstattungen von allen wichtigen Com- 
putermessen dieser Welt, Tests von 
Geräten sämtlicher Hersteller und 
Trendberichten), die allgemeinen 
Grundlagen 
‚Algorithmen 


(beispielsweise über 
Grafik-Program- 


zur 


Computerspaß 
nach Maß 


mierung, für Sortier-Routinen, und, 
und, und...), den Spiele-Sonderteil 
und dergleichen mehr, haben Sie 
einen Informationsumfang für CPC- 
Besitzer, der seinesgleichen sucht. 
Umfangreiche Programmlistings 
und Grundiagenbeiträge packen wir 
dann in konzentrierter Form in unsere 
Schneider-Sonderhefte, die Ihnen 
lange Zeit als Nachschlagewerke zur 
Verfügung stehen. Damit decken wir 
alle Anwendungsgebiete und Interes- 
sen des Computer-Hobbyisten ab. 
Diese Ausgabe bietet in einem 
Disketten-Schwerpunkt den Ver- 
gleichstest dreier Kopierprogramme. 
Eigentlich sollte ein ähnlicher Test von 
Kassetten-Kopierern das Thema er- 
gänzen. Aberschon erste Versuche im 
Vorfeld führten dieses Vorhaben ad 
absurdum, da jedes der Kopierpro- 
gramme nur eine »Handvoll« anderer 
Programme kopierte. Die Moral von 
der Geschicht: Greifen Sie zum Kopie- 
ren von Kassettensoftware zu einem 
der ab Seite 11 getesteten Module. 
Spielefans dürfen sich schon jetzt 
besonders auf das nächste Schnei- 
der-Sonderheft freuen, denn einen 
Schwerpunkt dieser nächsten Aus- 
gabe werden neben den gewohnten 
Rubriken die besten Spielelistings bil- 
den. Da wir schon in diesem Moment, 
wo Sie diese Zeilen lesen, mit Hoch- 
druck an der Produktion der kommen- 
den Ausgabe arbeiten, sollten Sie uns 
schnell Ihre Programme zusenden. 
Vielleicht liegt auch bei Ihnen ein 
»Juwel« in der Schublade, über des- 
sen Veröffentlichung die anderen 
Leser hocherfreut wären. 
Thomas Jacobi 
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Wer hat davon nicht schon geträumt: Programme im EPROM 
ersparen Ladezeiten und belegen kaum Arbeitsspeicher, 
Unser Selbstbau-EPROMer macht mit intelligenter Software 
und geringen Kosten Träume wahr. 14 


Für die nötige Entspannung bei der Arbeit mit dem CPC sorgt 
das flotte Spiel »>Stone Runner«, bei dem es auf Überlegung 
und flinke Finger ankommt. Ein Spielfeld-Editor macht den 
Spielspaß komplett. 128 


Hardware 


Ein reines Vergnügen war der Entwurf von Hüllkurven bislang 
fürwahr nicht. Mit dem »Envelope Composer« gelingen Ihnen 
zukünftig selbst komplizierteste Töne schnell und komforta- 
bel am Bildschirm. 9 
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Drei Kopiermodule sind mittlerweile für den CPC erhältlich. 
Manch einer zögert angesichts der hohen Preise und der feh- 
enden Vergleichsmöglichkeiten. Wir haben uns für Sie alle 
drei angesehen und geben Entscheidungshilfen. n 


Die sogenannten »Apfelmännchen«-Grafiken hat wohl schon 
jeder Computerinteressierte bestaunt. Wenn Sie wissen wol- 
len wie sie entstehen, lesen Sie die mathematischen Grundla- 
gen und Sie werden sehen: es ist nicht kompliziert. 140 


‚Jeder hat sie schon einmal gesehen. Die meisten benutzen 
sie bereits. Was aber beim Gebrauch einer Diskette genau 
passiert, wissen die wenigsten. Lernen auch Sie, mehr aus 
diesem Speichermedium herauszuholen. 31 


Haben Sie auch schon mit dem Gedanken 
gespielt, Ihre besten Programme in ein EPROM 
zu brennen, um die Software jederzeit 


beim Programmieren parat zu 


vorher jedesmal umständlich zu laden? Oder 
möchten Sie eines der EPROMs mit leistungs- 


haben, ohne sie 


fähiger kommerzieller Software, wie sie mittler- 


weile vermehrt angeboten we: 


in Ihrem Computer professionell einsetzen? 


PROMs kann man mit EPROM- 

Brennern selbst programmieren 

(lesen Sie hierzu auch die Bau- 
anleitung in dieser Ausgabe) oder aus 
dem inzwischen reichhaltigen Ange- 
bot der Softwarehäuser wählen. Doch 
wie ein EPROM an den CPCanschlie- 
Ben? Wie läßtsich die neue Software in 
das Betriebssystem einbinden? 

Man muß weder Bastelprofi noch 
Betriebssystemspezialist sein, um 
diese Frage zu lösen, denn mittler- 
weile gibt es Abhilfe in Form einer 
Hardware-Erweiterung für den CPC. 
»Super ROM Plus Box« (im folgenden 
kurz ROM-Box genannt) heißt das 
hochinteressante Produkt von Britan- 
nia Developments, das seit kurzem 
auch in Deutschland erhältlich ist. 

Die ROM-Box wird in einem farblich 
zum CPC passenden Kunststoffge- 
häuse geliefert und bietet dem Käufer 
bei einem Preis von 149 Mark 15 
Steckplätze für ROMs und EPROMs 
(16-KByte-Typen), von denen einer 
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rden, kaufen und 


bereits durch das Betriebssystem der 
ROM-Box belegt ist. (Der Einfachheit 
halber werden wir im folgenden auch 
EPROMs als ROMs bezeichnen.) 

Bild 1 zeigt, wie die ROM-Box am 
CPCangeschlossen wird, und aufBild 
2 erkennt man das geöffnete Gehäuse 
mit fünf ROMs auf der Platine. 

Die ROM-Box arbeitet mit allen drei 
CPC-Modellen zusammen und wird 
auf den Erweiterungsanschluß aufge- 
steckt. Beim CPC 6128 ist zusätzlich 
ein Adapter für 30 Mark erforderlich. 
Sämtliche Signale des Erweiterungs- 
anschlusses sind auf einen zweiten 
Stecker herausgeführt, so daß bereits 
vorhandene Erweiterungen weiterhin 
betrieben werden können. Auch hier 
ist beim CPC 6128 wieder ein Adapter 
nötig, wenn die Peripherie über einen 
50poligen Amphenolstecker verfügt. 
Allerdings arbeitet die ROM-Box nicht 
mit den Produkten von Vortex zusam- 
men, weder mit den Laufwerken noch 
mit der Speichererweiterung. 
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Bild 2. Die ROM-Box mit fünf belegten und zehn freien 
EPROM-Steckplätzen 


Sämtliche ROMs in der Box werden 
beim Einschalten des Computers ini- 
tialisiert und in das Betriebssystem 
des CPC eingebunden, sofern sie den 
Amstrad-Spezifikationen für Erweite- 
rungs-ROMs entsprechen. Die Tabelle 
zeigt, wie ein Erweiterungs-ROM auf- 
gebaut sein muß, damit es das Be- 
triebssystem des CPC auch korrekt 
initialisieren und einbinden kann. 

Das Betriebssystem der ROM-Box 
übernimmt nach der Initialisierung der 
ROMs die Kontrolle über den Compu- 
ter und zeigt auf dem Bildschirm ein 
Menü, das sich aus vier Fenstern 
zusammensetzt (Bild 3). 

Im ersten Fenster sind alle Vorder- 
grund-ROMs (zum Beispiel das Basic 
des CPC) aufgeführt, die sich auf 
Tastendruck auswählen und aktivie- 
ren lassen. Das zweite Fenster zeigt 
die Hintergrund-ROMSs (zum Beispiel 
das Disketten-Betriebssystem), die 


sich auf Tastendruck ein- und ausblen- 
den lassen. 


Bild 4. Ein Unterpunkt des Menüs untersucht die ROM-Box 


auf freie und belegte Steckplätze 
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Inhalt 

Kennung für Speichertyp (128=Vordergrund-ROM, 1=Hintergrund-ROM) 
Vorkommateil.der Versionsnummer (ohne Einfiuß) 

Nachkommateil der Versionsnummer (ohne Einfluß) 


Unteres Byte der Adresse der Befehlswort-Tabelle 
Oberes Byte der Adresse der Befehlswort-Tabelle 


0 
1 
2 
3 Modifikationsnummer (ohne Einfluß) 
4 
5 
6 


das Betriebssystem ist) 


Sprung (JP) zur Routine für das erste Befehlswort in der Befehlswort-Tabelle (in der Regel 
eine Initialisierungsroutine, weil 6 auch der Einstiegspunkt bei der Initialisierung durch 


9 ‚Sprung (JP) zur Routine für das zweite Befehlswort in der Befehlswort-Tabelle 


12 | Sprung (JP) zur Routine für das dritte Befehlswort 


n | Sprung (JP) zur Routine für das letzte Befehlswort. 


Buchstaben gekennzeichnet) 


Befehlswort-Tabelle (jedes Befehlswortende wird duch ein gesetztes achtes Bit im letzten 


m__| Befehlswort-Tabellenende (0) 


Initialisierungs-Routine und Routinen für die einzelnen Befehlswörter 


Nach diesem Schema muß ein Erweiterungs-ROM aufgebaut sein, damit der 
CPC den Baustein initialisieren und einbinden kann 


„Durch die ESC-Taste läßt sich eine 
Übersicht, die die Belegung der Steck- 
plätze in der ROM-Box zeigt, aufrufen 
(Bild 4). 

Als besonderes Extra erlaubt die 
ROM-Box auch den Einsatz von stati- 
schen RAM-Bausteinen (sogenannte 
Sideways-RAMs) als Speichererwei- 
terung. Das Betriebssystem kann 
diese RAMs als Druckerpuffer ver- 
wenden, um Wartezeit beim Ausdruck 
von Programmen oder Texten zu spa- 
ren oder von Diskette beziehungs- 
weise Kassette mit Daten laden, so 
daß jedes Sideways-RAM als ROM- 
Emulator zum- Austesten von Soft- 
ware, die später in einen EPROM 
gebrannt werden soll, geeignet ist. 

Das Betriebssystem der ROM-Box 
enthält neben den Routinen zur Ver- 


waltung der ROMs zusätzlich 20 lei- 
stungsfähige RSX-Befehle, die aus 
der Basic-Ebene heraus aufgerufen 
werden können. Drei Befehle listen all- 
gemeine Informationen zu allen vor- 
handenen ROMs oder zeigen detail- 
lierte Informationen zu einem einzel- 
nen ROM an. Drei weitere Befehle 
dienen zur Verwaltung der 
Sideways-RAMs in der ROM-Box, ein 
RSX-Befehl paßt CP/M Plus an das 
ROM-Box-Betriebssystem an. Die 
restlichen 13 RSX-Befehle sind für die 
Ansteuerung von (Epson-kompati- 
blen) Druckern zuständig, um Schrift- 
art und Vorschub einzustellen. 

Im Lieferumfang der ROM-Box ist 
eine ausführliche englische und deut- 
sche Anleitung enthalten. Sind Sie 
jedoch im Englischen etwas bewan- 
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Bild 1. Die »Super-ROM-Box« präsentiert 
sich farblich abgestimmt zum CPC 


dert, werden Sie mit der Bedienung 
der ROM-Box ohnehin keine Pro- 
bleme haben, weil das Betriebssy- 
stem der ROM-Box genügend Hin- 
weise zur Bedienung gibt. 
Zusammenfassend beurteilt, erhält 
man mit der ROM-Box für den CPC 
eine leistungsfähige Erweiterung zu 
einem fairen Preis. Sie bietet durch 
das eingebaute Betriebssystem eine 
komfortable Verwaltung von gekauf- 
ten und selbstprogrammierten 
EPROMs und erweitert dadurch die 
Fähigkeiten des CPC beträchtlich. Mit 
Ihren »Lieblings-EPROMs« bestückt, 
werden Sie die ROM-Box schon nach 
kurzer Zeit nicht mehr missen wollen. 
(ma) 
PRE-Soft, Klaus-M. Pracht, Erbachshef 1, 8702 Eisingen, Tel. 
(09306) 8735 


Kampf der 
Speicher-Giganten 


RAM-Erweiterungen zweier Her- 
steller im Vergleichstest: Welche 
bietet den optimalen Nutzen? 


t's British - it won’t work. Dieser 

scherzhafte Ausspruch amerikani- 

scher Techniker hat in der jetzigen 
Computer-Generation eher einen Bu- 
merang-Effekt für seine Erfinder. Ge- 
rade die findigen Engländer zeigen 
nämlich deutlich, daß sie sehr gut in 
der Elektronikentwicklung und der 
Programmierung Bescheid wissen. 
So zählte zu den ersten Firmen, die 
Hard- und Software für den CPC anbo- 


ten, die britische Firma dk’tronics. Sie 
ist in erster Linie in ihrer Heimat 
bekannt, wo sie ihre Produkte vor- 
nehmlich verkauft. Zu diesen Produk- 
ten, die nun seit einiger Zeit auch auf 
dem deutschen Markt erhältlich sind, 
gehören 64- und 256-KByte-Speicher- 
erweiterungen für den CPC 464 und 
664 sowie weitere Hardware-Erweite- 
rungen für alle CPCs mit eigenem 64- 
oder 256-KByte-Speicherbereich, der 
als virtuelles Diskettenlaufwerk anzu- 
sprechen ist (Silicon Disc). 

‚Auf dem Gebiet der Speichererwei- 
terungen war eine deutsche Firma 


schneller: Vortex entwickelte eine auf 
512 KByte aufrüstbare 256-KByte- 
Erweiterung, die allerdings nur mit 
den CPC-Modellen 464 und 664 zu 
betreiben ist. Dafür vereint sie Fähig- 
keiten, die man bei dk’tronics nur 
durch Kombination der Speicherer- 
weiterung mit der Silicon Disc erhält. 

Die Rollen in diesem Vergleichs- 
kampf sind klar verteilt: Auf der einen 
Seite steht die Vortex-Erweiterung, die 
in Deutschland einige Unterstützung 
seitens der Software-Industrie findet. 
Auf der anderen Seite steht der hierzu- 
lande relativ unbekannte Herausfor- 
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derer von der britischen Insel, der dort 
ein hohes Ansehen genießt. Wer 
macht das Rennen? 

Eine Speichererweiterung funktio- 
niert natürlich nicht ohne unterstüt- 
zende Software, denn der Prozessor 
der CPCs, ein Zilog Z80, adressiert 
bekanntlich nur einen Speicherbe- 
reich von 64 KByte direkt. Und so bie- 
tet die dk’tronics-Erweiterung unter 
Basic 12 RSX-Befehle, die zum Bei- 
spiel das schnelle Speichern und 
Laden von Bildschirminhalten als Win- 
dows im zusätzlichen RAM-Bereich 
erlauben. Die Bilder in den einzelnen 
Speicherbänken sind auch blitz- 
schnell zur Anzeige auf dem Bild- 
schirm auszutauschen, um trickfilm- 
ähnliche Effekte zu erzielen. Durch 
Variablenablage im zusätzlichen 
Speicherbereich spart man kostbaren 
Platz im normalen Arbeitsspeicher, 
der dadurch umfangreichere Basic- 
Programme faßt. Damit ähneln die 
Fähigkeiten eines CPC 464 oder 664 
mit dieser Erweiterung denen des 
CPC 6128. Die maximale Menge der 
Bilder und Daten hängt selbstver- 
ständlich von der Größe der Erweite- 
rung ab. Der Nutzen der Speicher- 
erweiterung unter Basic läßt sich 
durch gemeinsamen Betrieb mit der 
Silicon Disc steigern. Das Betriebs- 
system der Silicon Disc macht deren 
RAM-Bereich nämlich als Pseudo- 
Diskettenlaufwerk mit einer maxima- 
len Kapazität von 444 KByte nutzbar, 
was beim häufigen Wechsel zwischen 
mehreren Programmen, intensivem 
Datentransfer sowie beim Kopieren 
wesentliche Geschwindigkeitsvorteile 
mit sich bringt. Der Zugriff auf Daten in 
der RAM-Disk geschieht dermaßen 
schnell, daß Ladezeiten kaum mehr 
ins Gewicht fallen. 

Vortex dagegen bietet 66 neue 
Befehle. Mit der neuesten Version des 
Vortex-BOS (Bank Operating 
System«) steht wie bei dk’tronics unter 
Basic eine RAM-Disk mit ebenfalls 
444 KByte (im Vollausbau) bereit. Die 
neuen Befehle zur relativen Dateiver- 
waltung erlauben völlig neue Daten- 
strukturen. 


Vortex SP 256 — 
ein wahres Füllhorn 


Auch die Fähigkeit, in komfortabel- 
ster Weise Bildschirme zu speichern 
und eine Art Trickfilm ablaufen zu las- 
sen, fehlt hier nicht. 

Ein im Umfang variabler Drucker- 
Spooler sorgt dafür, daß man selbst 
beim Druck langer Texte am Computer 
normal weiterarbeiten kann, während 
der Drucker noch fleißig rattert. 


512 KByte RAM 


Bild 2. Die Vortex 
SP 512 und SP 256 
werden als Platinen 
zum Einbau in den 
Computer geliefert. 
Steckverbindungen 
reduzieren die 
»Bastelei« jedoch 
auf ein Minimum. 


Einzigartig ist die Fähigkeit der Ver- 
waltung größerer Basic-Programme, 
deren Programmcode einen Umfang 
von bis zu 320 KByte erreichen darf. 

Eine besonders interessante der 
zusätzlichen Funktionen ist das einge- 
baute Monitorprogramm. Mit ihm las- 
sen sich nicht nur kleine Maschinen- 
code-Routinen schreiben, sondern 
auch Programme vom Datenträger 
einlesen, verändern und anschlie- 
Bend speichern. 

Viele zusätzliche nützliche Befehle 
runden das Gesamtbild der Ausstat- 
tung ab. 

Beide Speichererweiterungen bie- 
ten auch unter CP/M 2.2 wahlweise 
einen vergrößerten Programmspei- 
cher (TPA) von 61 KByte (dk’tronics) 
beziehungsweise 62 KByte (Vortex) 
anstelle der normalen 43 KByte. 
Umfangreiche professionelle CP/M- 
Programmpakete arbeiten oft nur mit 
diesem größeren Arbeitsspeicher. Da- 
zu zählen Programme wie dBase Il 
und Multiplan. Andere, wie beispiels- 
weise Wordstar oder Turbo-Pascal, um 
nür zwei bekannte Namen zu nennen, 
arbeiten zwar unter dem »kleinen« 
CP/M 2.2 zufriedenstellend, gelangen 
jedoch erst mit der größeren TPA zu 
ihrer vollen Leistungsfähigkeit. 

Sowohl die Silicon Disc als auch die 
Vortex-Erweiterung bieten die Vor- 
züge ihrer RAM-Disks auch unter 
CP/M. Dazu kommt bei Vortex noch 
der Drucker-Spooler. 

Dafür bieten die Speichererweite- 
rungen von dk’tronics unter CP/M 
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Bild 1. Die dk’ 
tronics-Silicon- 
Disc besteht in 
der 256-KByte- 
Version aus zwei 
Modulen; dem Be- 
triebssystem 

und dem Speicher, 
während die 
Arbeitsspeicher- 
Erweiterung in 
einem Gehäuse 
Platz findet. 


‚Stecker für ‚Klemme für 5-Volt- 
Z80-Sockel Spannungsversorgung 
Stecker für 


Gate-Array-Sockel 


‚Sockel für 
Gate-Array 


Sockel für Z8O 


andere Vorzüge. Sie machen nämlich 
auf den kleinen CPC-Modellen 464 
und 664 auch CP/M Plus verfügbar - 
vorausgesetzt, man hat einen CPC 
6128 als Zweitcomputer, denn das 
Kopieren der CP/M-Plus-Systemdis- 
kette des Freundes ist selbstverständ- 
lich illegal. Hat man aber diese Klippe 
umschifft, steht der Freude über den 
neuen Bedienungskomfort dieses Be- 
triebssystems nichts mehr im Weg. 


In der Handhabun: 
recht unterschiedlic 


Ein sehr wichtiges Vergleichskrite- 
rium ist die Bedienungsfreundlichkeit. 
Die Entwickler bei dk’tronics sind 
davon ausgegangen, daß der durch- 
schnittliche Anwender nur ungern sei- 
nen heißgeliebten Computer ausein- 
anderschraubt. Die Erweiterungen 
stecken deshalb in eigenen Gehäusen 
(Bild 1), die ihren Platz am Expansion- 
Port des CPC finden. In Fällen 
mangelnder Software-Kompatibilität 
braucht man sie nur abzuziehen und 
hat im Nu einen ganz normalen CPC. 
Am CPC 464 können Probleme auftre- 
ten, für die jedoch die Amstrad- 
Entwickler die Verantwortung tragen, 
nicht etwa dk’tronics. Die Rede ist vom 
berüchtigten »CAT-Syndrom«. Für 
unsere Leser, die es noch nicht ken- 
nen: Bei Verwendung eines externen 
Diskettenlaufwerks wird die Einschalt- 
meldung nicht korrekt ausgegeben 
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Top-Listings dieser Ausgabe: 


ANWENDUNGEN Shares Verwaltet Ihren privaten Aktienbestand und gibt Ihnen detall- 
Iierte Auskunft über die Kursentwicklung. Multi-RAM-Disk Ein Datenverwaltungsprogramm 
exklusiv für Benutzer einer Vortex-Speichererweiterung. Nutzt den zusätzlichen Speicher- 
platz optimal. Boxenkit Viele bauen sich heute Ihre Lautsprecherboxen selbst. Die zeitauf- 
endigen und komplizierten Berechnungen für Frequenzweichen, Gehäusevolumen etc. 
übernimmt jetzt Ihr CPC, 

SPIELE Stone-Runner Ein Kletter- und Geschicklichkeitsspiel der Extraklasse. Zu den 
neun integrierten Levels entwerfen Sie mit Hilfe des ebenfalls vorhandenen Editors beliebig 
viele eigene. Eine Highscore-Tabelle speichert Ihre Erfolge dauerhaft. Spacetrap Dieses 
Spiel entsteht Im Laufe unseres Kurses zur stlistisch besseren Basic-Programmierung 
Trotzdem oder gerade deswegen istesein vollwertiges, schnelles Aciion- und Strategiespiel, 
das auch durch seine optische Gestaltung anspricht. 

UTILITIES_ Super-Utility Der erste Teil enthält einen komfortablen Disketten-Datei-Editor 
für lsichte Eingriffe in fertige (auch professionelle) Programme. 

GRAFIK Apfelmännchen Die faszinierenden Grafiken erzeugt ein relativ kurzes Pro- 
gramm in Hisoft-Pasoal. Damit Sie die Effekte auch ohne den Hisoft-Compiler nutzen kön- 
nen, enthält die Diskette neben dem Pascal-Quellisting auch den compüierten Maschinen- 
code, der selbständig auf jedem OPC lauffähig ist. 

Und natürlich alle anderen Programme aus dieser Ausgabe. 


1 Diskette für Schneider-Computer ” 
We znnas u. 7. DM 34.00) 


Bestell-Nr. 25718 


Weitere Angebote zum Thema 


Schneider-Computer 


Happy-Computer, Ausgabe 3/87 

Happy-Painter: Super-Malprogramm mit vorbildlicher Bedienerführung und fantasti- 
schen Fähigkeiten füralle CPCs (Listing des Monats 1/97). Disccopy: Kopiert nahezu alle 
$-Zoll-Disketten. Selbst »überlange« Spuren mit zehn Sektoren oder illegale Sektornum- 
mern stellen kein Problem dar. Copyit: Auch Besitzern eines Kassattenrecorders als Spei- 
‚chermedium steht mit Copyit ein leistungsfähiges Backup-Programm zur Verfügung. 
Discservice: Völlig neue und überaus praktische Funktionen. Bruch: Findet und zeigt 
sämtliche REMarks in Basic-Listings auf Bildschirm oder Drucker. 

Und alle weiteren Programme aus den Happy-Computer-Ausgaben 1, 2 und 3/87 für die 
Schneider GPCs. 

Diskette für Schnelder-Computer 

Bestell-Nr. 21703 


DM 29,90 sFr24,90/68 299,-" 


Happy-Computer, Ausgabe 12/86 

Goldrain. Wertet Ihre Spielkarten des Bild-Goldregen-Spiels aus. Sereen-Compressor. 
Speichert Bildschirminhalte platzsparend und mit erheblichem Geschwindigkeitsge- 
winn. Sie haben dabei die Wahl zwischen ganzen Bildschirmen, Ausschnitte und Win- 
dows. Kurslv, Ideal für Textverarbeitung: Verwenden Sie auf dem Bildschirm denselben 
kursivon Zeichensatz wie auf dem Drucker. Super-CLS. Neuer RSX-Befohl zur effektvol- 
Ion Bildschirmlöschung. Newgosub. Ein Patch des GOSUB-Befehls erlaubt strukturierte 
Basic-Programmierung mit Unterprogrammnamen (nur GPC 464). DEC$-Patch. Endlich 
die perfekte Abhilfe für einen Fehler im Basic-Interpreter des CPC 464: Die Syntax des 
Befehls DECS ist nun korrigiert und somit kompatibel zu den beiden anderen CPC- 
Modellen (nur CPC 464). Public-Domain. Als besonderen Leckerbissen bieten wir Ihnen 
verschledene Public-Domain-Programme. Darunter finden Sie je einen Interpreter der Kı- 
Sprachen Lisp und Prolog mit Dokumentation und Beispielen sowie einen Forth-Compiler 
und einen Makroassembler. 

1 Diskette für Schneider-Computer 
Bestell-Nr. LH 8612 SD 

DM 34,90*/sFr 29,50, 349, 


"inkl.MwSt. Unverbindliche Preisempfehlung. 


2 Kassetten für Schneider-Computer 
Bestell-Nr. LH 8612 SK 


DM 34,90*/sFr 29,50168 343, 


Ausgabe Thema Bestell-Nr. Dm 
57 Schneider 20705 Diskette 2990" 
387 Schneider 21703 Diskette 2980° 

1286 Schneider LHB612SD Diskette 34,90" 
UHBSTZSK 2 Kassetten. 340° 

TB Schneider UHBETISD Diskette 3490" 
IHBSIISK__ Kasselie 3480" 

"388 Schneider LH 8609 SD Diskette 3490" 
z IH8509SK_ Kassette 3430: 

788 Schneider LH 8607SD Diskette 3490° 
#86 Schneider LH8604 SD Diskette 2980" 
LH8604SK Kassette 290° 

12/85 Schneider UH8St2D _Diskelte 3480" 
IH8512@ Kassstie 290° 


Programme aus früheren Happy-Sonderheften 


Ausgabe Thema Bestell-Nr. 
18187 Schneider 25716 Diskette 
zerı6 Disk. (Demo Giga-CAD) 
z7rıs 2 Disk. im Paket 
1387 Schneider _2s7a Diskette 
E22 Kassette 
10186 Schneider IHBSSIOD Diskette 
IH86S10K 2 Kassetten 
7186 Schneider LH 8657 SD Diskette 
IH8ss7sK 
486 Schneider LH 8884 D 
IHB6saK x 
186 Schneider LHBBS1D Dicke — 
IHB6SıK_ Kansatte 
2185 LH8SS2D Diskete 
IH8SS2V _514”.Diskette 
IH 8s82 K te 


Kası 


Einige Tips zum Umgang mit den Leserservice-Disketten: 

Auf der Diskette zu dieser Ausgabe finden Sie ein Basic-Programm namens 
»README.BAS«. Da es am Anfang gespeichert ist, starten Sie es bitte zuerst 
Sie erhalten dadurch Informationen über die enthaltenen Programme. Dort 
erfahren Sie zu jeder Datei, was sie bewirkt und wo der gedruckte Beitrag dazu 
in der Ausgabe zu finden ist. 

Bei früheren Ausgaben hieß dieses Inhaltsverzeichnis ebenso beziehungs- 
weise »LISTME.BAS«. Dort besteht es aus einer ASCII-Datei, die Sie mit»LOAD 
" README ” « im normalen Locomotive-Basic laden und durch »LIST« auf den 
Bildschirm beziehungsweise mit »LIST #8« auf dem Drucker ausgeben. 


Bestellungen bitte an: Markt &Technik Verlag AG, Unternehmensbereich Buchverlag, Hans-Pinsel-Straße 2, D-8013 Haar, Telefon (089) 4613-0. Schweiz: Markt& Technik Vertriebs 
AG, Kollerstrasse 3, CH-6300 Zug, Telefon (042) 415656. Österreich: Ueberreuter Media Handels- und Verlagsgesellschaft mbH (Großhandel), Alser Straße 24, A-1091 Wien, 
Telefon (0222) 4815380, Microcomput-ique E. Schiller, Fasangasse 24, A-1030 Wien, Telefon (0222) 785681, Bücherzentrum Meidling, Schönbrunner Straße 261, A-1120 Wien, 


Telefon (0222) 833196 Bestellungen aus anderen Ländern bitte nur schriftlich aı 
Bezahlung einer Rechnung im voraus. 


Markt & Technik Verlag AG, Abt. Buchvertrieb, Hans-Pinsel-Straße 2, D-8013 Haar, und gegen 


Bitte verwenden Sie für Ihre Bestellung und Überweisung die eingeheftete Postgiro-Zahlkarte, oder senden Sie uns einen Verrechnungs-Scheck mit Ihrer Bestellung. Sie erleich- 
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und der Computer »hängt«, oder die 
Meldung »Press PLAY then any key:« 
erscheint. Oft ist auch das Directory 
beim. Basic-Befehl CAT bis zur 
Unkenntlichkeit zerstückelt. Meist tritt 
das CAT-Syndrom bei Computern auf, 
an denen mehrere Hardware-Erweite- 
rungen betrieben werden. Ursache für 
dieses ebenso störende wie auch 
unnötige Phänomen ist der ungepuf- 
ferte Bus, über den der gesamte 
Datentransfer zwischen Computer 
und Erweiterungen am Expansion- 
Port läuft. Abhilfe bringt der Austausch 
des Amsdos-ROM (der Sitz des Dis- 
kettenbetriebssystems im Controller) 
gegen ein EPROM vom Typ 27128. Die 
geringere Stromaufnahme dieses 
Bauteils sorgt für die nötige Ent- 
lastung und somit für einen fehler- 
freien Betrieb. Voraussetzung für die- 
sen Eingriff ist natürlich, daß man den 
Inhalt des ROMs mit Hilfe eines 
EPROM-Brenners in das EPROM 
kopiert. 

Während die dk’tronics-Erweiterun- 
gen einfach anzustecken sind, kommt 


dk’tronics-Erweiterungen. Allerdings 
arbeitet der CPC 6128 damit geradezu 
ideal zusammen. Die Speichererwei- 
terung bringt in Verbindung mit der 
Silicon Disc eine bis zu 444 KByte 
große RAM-Disk unter CP/M 2.2 und 
Plus. Aber bereits mit der 256 KByte 
großen Silicon Disc allein läßt sich her- 
vorragend arbeiten. 

Die 64-KByte-Erweiterung für die 
beiden kleineren Modelle CPC 464 
und 664 macht am CPC 6128 keinen 
Sinn, denn seine zweite 64-KByte- 
RAM-Bank leistet denselben Dienst. 

Es ist wirklich nicht einfach, allen 
Details der beiden Erweiterungen 
gerecht zu werden. Eine grobe Tren- 
nung bietet sich aber an. Besitzern 
eines CPC 6128 ist zweifelsohne mit 
der dk’tronics-Silicon-Disc und even- 
tuell einer zusätzlichen 256-KByte- 
Erweiterung hervorragend gedient. 
Diese Erweiterungen sind ohnehin die 
einzig verwendbaren für diesen Com- 


putertyp, da Vortex noch kein Pendant 
anbietet. 

Deutschen Besitzern eines CPC 
464 oder 664 dürfte die Vortex-Erwei- 
terung durch die große Verbreitung 
und die fertige Anpassung vieler 
Standard-Programme von größerem 
Reiz sein, wenn auch die Installations- 
prozeduren durch Umbauarbeiten er- 
heblich komplizierter sind als bei 
dk’tronics. Geht es nur um das grö- 
Bere CP/M, ist die 64-KByte-Erweite- 
rung von dk’tronics für 129 Mark ein 
preisgünstiger Griff. Alle anderen 
Kombinationen liegen preislich über 
dem Vortex-Komplettpreis. Wer sei- 
nen Computer optimal ausnutzen 
möchte, sollte diese Tatsachen ge- 
geneinander abwägen. 

(Helmut Jungkunz/gn/ja) 


SP256/512: Vortex Computersysteme, Falterstraße 51.53, 7101 
lein 
dX'ronics: Michael Naujoks, Rottmannstraße 40, 6900 Heidel- 
berg. 


die Platine (siehe Bild 2) der Vortex. | Ausstattung ee Au onen 
Speichererweiterung ins Computer- a en SIIESEDISE 
gehäuse. Man braucht für den Einbau 
ein wenig handwerkliches Geschick, | CPC 454 x x (64/256 KByte) | (256 KByte) 
was sicher nicht jedermanns Sache CPC654 I x (641256 KByte) | (256. KByte) 
ist. Man muß sich immer der Konse- 
quenz bewußt sein, daß die Garantie | “PC &'28 SIEZEREBOR A EEE) 
für den Computer erlischt. Auch ent- | größere TPA unter CPIM2.2 | x x 
stehen im Gebrauch einiger Pro- | opm Plus für 
gramme Probleme, die sich miteinem | cpc 464 und 664 
eigens zu diesem Zweck vorhande- 
nen Basic-Befehl leider nicht injedem | Prücker-Spooler bis 512 KByte 
Fall umgehen lassen. Wenn ein Pro- RAM-Disk unter CP/M bis 444 KByte bis 444 KByte 
gramm wegen der eingebauten Spei- | CP/M und Basic 
chererweiterung und trotz der Verwen- Bi 
dung des Befehls DISBOS (desakti- [ ee BE = 
viert das Betriebssystem der Erweite- | relativer Dateizugriff x 
rung) nicht richtig arbeitet, ist man in RSX-Befehlserweiterung | 66 (resident) 12 (Software): 3 (resident) 
der Regel machtlos. = z 3 
größerer Basic-Variablen- x x 
speicher 
4 4 ‚größerer Basic-Programm- x 
Die Brass zeigt, ae 
was Sache ist residenter Monitor x 


Wie bewähren sich nun Speicher- 
erweiterungen im täglichen Einsatz? 
Das Arbeiten mit dem großen CP/M 
gestaltet sich sehr angenehm und 
macht einige Programme überhaupt 
erst zugänglich. Vor allem beim Voll- 
ausbau ist die 444 KByte große RAM- 
Disk bald nicht mehr wegzudenken. 
Man gewöhnt sich schnell an die 
immensen Vorteile im Gebrauch und 
ärgert sich bei fehlender RAM-Disk 
über den »langsamen« Diskettenzu- 
griff. Leider steht die Vortex-Speicher- 
erweiterung nur den Besitzern eines 
CPC 4864 oder 664 zur Wahl. Für den 
CPC 6128 gibt es bis heute nur die 


SP 256 298 Mark 
SP 512 (nur CPC 464/664) 398 Mark 
dk'tronics = = 
‚Speichererweiterung 

64 Köyte (4641664) 129 Mark 
256. KByte (464/664) 298 Mark 
256 KByte (6128) 298 Mark 
Silicon Disc 

64 KByte (6128) 98 Mark 
256 KByte (464/664) 298 Mark 
256 KByte (6128) 298 Mark 
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Trickreiches Trio: 
Kopiermodule im Vergleich 


er schon einmal die leid- 
volle Erfahrung machte, 
daß ein für teures Geld 


erworbenes Programm plötzlich auf 
dem Datenträger nicht mehr lesbar 
war, weiß Sicherheitskopien sehr zu 
schätzen. Umsoärgerlicheristes, daß 
viele Softwarehersteller immer noch 
ihre Programme mit allerlei Kopier- 
schutzmechanismen versehen. Eben- 
soviel praktischen Nutzen bringt die 
Übertragung von langsam ladender 
Kassettensoftware auf das schnellere 
Speichermedium Diskette. 

Ein Kopiermodul, so die Verspre- 
chungen der Hersteller, räumt mit die- 
sen Mißständen endgültig auf. Ein ein- 
facher Knopfdruck soll den Benutzer 
in die glückliche Lage versetzen, alles 
zu kopieren, was in den Arbeitsspei- 
cher seines Computers kommt. Aus- 
geschlossen davon sind allerdings bei 
allen Modulen Programme, die Grafi- 
ken oder sonstige Daten oder Pro- 
grammteile nachladen. 


Mirage Imager — 
der »Stammvater« 


In der Tat ist der Imager das älteste 
und mit zirka 180 Mark auch eines der 
teuersten der getesteten Module. Sein 
Design paßt sich - am Expansionsport 
angeschlossen - sowohl farblich als 
auch vom Volumen her tadellos an das 
des CPC an. An seiner Oberseite fällt 
jedoch, ein kleiner roter Knopf ins 
Auge. Übrigens gibt es, und das trifft 
auf jedes der getesteten Module zu, 
für den mit anderen Steckanschlüs- 
sen (Amphenolbuchsen) ausgestatte- 
ten CPC 6128 einen Adapter für zwi- 
schen knapp 30 und 40 Mark. 

Einmal am CPC (mit oder ohne 
Laufwerk) angeschlossen, deutet 
zunächst gar nichts auf die Anwesen- 
heit des Moduls hin. 

Erst nachdem sämtliche Ladepro- 
zeduren vollzogen sind und das zu 
kopierende Programm komplett im 
Arbeitsspeicher steht, folgt der Druck 
auf das rote Knöpfchen. Nun grüßt die 
zweizeilige Einschaltmeldung des 
Imagers. Darunter hat der Bildschirm- 
inhalt des öfteren jedoch vorüberge- 
hend recht heftig zu leiden. Ein 
anschließender Druck auf die ENTER- 
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Dem Herstellen von Sicher- 
heitskopien bereiten ausgeklü- 
gelte Kopierschutzverfahren oft 
ein jähes Ende. Um diesem 
Umstand Abhilfe zu schaffen, 
gibt es neben Kopierprogram- 
men auch Hardware-Lösungen. 
Wir stellen Ihnen erstmals in 
einem Vergleichstest alle drei 
verfügbaren Kopiermodule vor. 


Taste bringt die Hauptmenüleiste auf 
den Bildschirm. 

Das Menü bietet eine ganze Reihe 
Funktionen. Als wohl wichtigste 
betrachten wir zunächst die »Save«- 
Funktion. Nach Eingabe des Anfangs- 
buchstaben <S> wählt man 
zunächst den gewünschten Datenträ- 
ger. Der Imager bietet die Auswahl zwi- 
schen den Diskettenlaufwerken A und 
B (sofern vorhanden) sowie dem Kas- 
settenrecorder mit variabler Übertra- 
gungsrate bis 3000 Baud. 

Nach anschließender Eingabe des 
Dateinamens startet der Speichervor- 
gang: Der Bildschirm erlischt und es 
beginnt das äußerst langwierige Spei- 
chern, das bis zu zwei Minuten (Dis- 
kette) dauert. 

Mit der erneuten Anzeige des 
Hauptmenüs meldet sich der Compu- 
ter danach wieder zur Stelle. Ein 
Druck auf die Taste <C> zeigt den 
Disketteninhalt an und offenbart, daß 
der Imager das Programm als bis zu 


Alle getesteten 
Kopiermodule auf 
einen Blick: Rechts 
oben erkennen Sie 
den Mirage Imager, 
darunter das Multi- 
face Two und auf 
der linken Seite 
den Disc Wizard 


60 KByte lange Datei ablegt. Das liegt 
an der Arbeitsweise des Moduls. Es 
durchforstet den gesamten Arbeits- 
speicher und berücksichtigt dabei 
auch die zweite 64-KByte-RAM-Bank 
des CPC 6128. 

Eine vom Imager gespeicherte 
Datei läßtsich auch nur mitdem Modul 
wieder laden; die Kopien sind ohne 
den Imager nicht lauffähig. Damit ist 
sichergestellt, daß der Benutzer keine 
Raubkopien mit dem Imager anferti- 
gen kann. 

Um eine gespeicherte Programm- 
kopie zu laden, drückt man wiederum 
den roten Knopf. Auch die weitere Vor- 
gehensweise ähnelt dem Speichern, 
nur daß man <L> für »Load« drückt. 
Anschließend startet das kopierte Pro- 
gramm mit <R> genau an der Stelle, 
an der es zum Speichern unterbro- 
chen wurde. 


Der Imager erlaubt 
diverse Eingriffe 


Nebenbei bietet der Imager noch 
die Wahl, die Bildschirmfarben zu 
wechseln, was besonders Besitzern 
eines Grünmonitors zustatten kommt. 
Auch das Format der Bildschirmdar- 
stellung sowie - falls nötig - die Basis- 
adressen des Bildschirmspeichers 
lassen sich beeinflussen. Sogar eine 
Abschaltung der externen ROMs ist 
vorgesehen. Das erweist sich mitunter 
vor allem bei sehr langen Kassetten- 
Programmen als nötig. 
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Die Dokumentation ist leider wie so 
oft vollständig in Englisch gehalten, 
läßt aber die wesentlichen Funktions- 
Prinzipien klar erkennen. 


Außerlich gibt sich das Multiface 
Two dem Mirage Imager gegenüber 
recht verschieden. Während der Ima- 
ger sich förmlich an das Gehäuse des 
OPC schmiegt, ist das Multiface über 
ein Flachbandkabel mit dem Erweite- 
rungsport verbunden und findet so 
hinter dem Computer liegend auf dem 
Tisch Platz. Im praktischen Einsatz 
jedoch offenbart sich eine nähere Ver- 
wandtschaft, als man zunächst ver- 
mutet. Ähnlich dem Imager zeigt auch 
das Multiface einen roten Knopf an 
seiner Oberseite. Daneben sitzt 
jedoch noch ein zusätzlicher grüner 
Resetknopf, den man am CPC oft ver- 
mißt. 

Das Modul-eigene 8-KByte-RAM 
läßt sich vom Anwender für eigene 
Maschinencode-Routinen nutzen. 
Darüber weiß das zweiseitige, eng- 
lischsprachige »Handbuch« jedoch 
nur wenig zu berichten. 

Istdas Programm vollständig in den 
Speicher geladen und das Modul 
angeschlossen, aktiviert man es wie 
den Imager per Knopfdruck. Der Bild- 
schirm gerät auch hier ein wenig in 
Unordnung, wenn am unteren Bild- 
rand das Hauptmenü erscheint. Dort 
stehen vier Menüpunkte bereit. Wie 
beim Imager dient <S> dem Spei- 
chern. Auch die Auswahl der Spei- 
chermedien ist dem Konkurrenten 
ähnlich: Diskette oder Band mit bis zu 
3000 Baud. Die Multiface-Kopien sind 
ohne das Modul ebenfalls nicht lauffä- 
hig. 

Der Speichervorgang geht hier aber 
erheblich flotter vonstatten; das Multi- 
face arbeitet bis zu dreimal schneller. 
Es legt den Speicherinhalt in mehre- 
ren Dateien ab. Das Programm startet, 
wenn man die erste dieser Dateien mit 
»RUN ”NAME”« lädt. Genau wie 
beim Imager startet der Lauf des 
kopierten Programms durch <R> 
(für »RETURN«) wieder an der Stelle, 
an der er gestoppt wurde. 

Zusätzlich spendierten die Entwick- 
ler dem Multiface einen einfachen 
Maschinencode-Monitor. So lassen 
sich einzelne Register lesen und belie- 
bige Adressen in den Programmen 
ändern. Spielefreaks können sich 
damit beispielsweise ihre individuelle 
Spieleversion »zurechtbasteln« oder 
Spielfiguren zum unendlichen Leben 
verdammen. Für zirka 180 Mark ist der 
Imager eines der teuersten Module. 
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Disc Wizard unterscheidet sich in 
vielerlei Hinsicht von seinen beiden 
Artgenossen. So ist es das einzige 
Modul, zu dessen Lieferumfang eine 
Diskette gehört. 

Das äußere Erscheinungsbild unse- 
res Dritten im Bunde ist ebenfalls 
ungewöhnlich. Am Expansions-Port 
angeschlossen, ragt das Modul etwa 
10 cm hoch über die Tastatur. An der 
Vorderseite fanden neben dem obliga- 
torischen roten Knöpfchen zwei Kipp- 
schalter Platz. Die Schalterstellungen 
sind mit »Load« und »Save«, bezie- 
hungsweise »1« und »2« gekennzeich- 
net. Damit sind wir beim zweiten 
wesentlichen Unterscheidungsmerk- 
mal des Wizard zu seinen Konkurren- 
ten. Pro Diskettenseite bietet es nur 
Platz für zwei Programm-Kopien. Disc 
Wizard unterteilt nämlich den Spei- 
cherplatz einer Diskette im Data- 
Format in zwei getrennte Bereiche für 
je ein Programm. Leider darf man auf 
diesen präparierten Diskettenseiten 
keine zusätzlichen normalen Dateien 
speichern. Diesem eigensinnigen Ver- 
halten steht jedoch eine wirklich kin- 
derleichte Handhabung des Wizard 
gegenüber. Zum Kopieren des Pro- 
gramms im Speicher ist nur der linke 
Kippschalter auf »Save« und der 
rechte auf »1« oder »2« (zur Wahl eben 
jener Bereiche) zu bewegen und 
anschließend der Knopf zu drücken. 


Utilities erleichtern 
die Arbeit 
Ladevorgänge gestalten sich 


genauso unkompliziert. Diesmal steht 
der erste Schalter beim Knopfdruck 
auf »Load«. Damit entfällt bei diesen 
Prozeduren jede Eingabe via Tastatur. 
Das Modul benennt die Dateien auto- 
matisch mit den Namen »DRAY- 
SOFT.ONE« und »DRAYSOFT.TWO«. 
Damit die Kopien verschiedener Pro- 
gramme auf den ersten Blick zu unter- 
scheiden sind, findet sich auf der mit- 
gelieferten Diskette eine Utility zum 
Umbenennen der Dateien. Aber auch 
andere Dienstprogramme sind darauf 
enthalten. So lassen sich sogenannte 
»Screenshots«, also Bildschirminhalte 
(Titelbilder etc.) im normalen Dateifor- 
mat erzeugen, aber auch Farben, Bild- 
schirmmodi' und Startadressen 
ändern. Die Hilfsprogramme erlauben 
damit ähnliche Eingriffe wie die ande- 
ren Module es aus ihren Menüs her- 
aus tun. 

Beim Studium des Handbuchs fin- 
det man mehr durch Zufall den Hin- 
weis auf eine ganz bedeutsame Ei- 
genart des Wizard. Einige Kopien las- 
sen sich nämlich mit einer der Utilities 
so umwandeln, daß sie auch ohne 


Modul lauffähig sind. Eine Tatsache, 
die Softwarehersteller sicherlich nicht 
gerade zum Jubeln veranlassen wird. 
Der Disc Wizard kostet inklusive der 
Diskette etwa 150 Mark. 

Ihre Aufgabe erfüllen alle drei Test- 
kandidaten zur vollen Zufriedenheit. 
Und doch lassen sich einige deutliche 
Unterschiede in der Handhabung aus- 
machen. So fallen beim Imager die 
unnötig langen Speicher- und Lade- 
zeiten negativ ins Gewicht. Verglichen 
mitihm sind das Multiface Two und der 
Disc Wizard wahre »Turbo«-Module. 
Als besonders positiv ist jedoch die 
Konstruktion seines Gehäuses zu wer- 
ten, das sich nahtlos an die Rückseite 
des CPC anfügt. Damit empfiehlt sich 
der Mirage Imager besonders Benut- 
zern mit großer Geduld und kleinem 
Schreibtisch, zumal man mit dem Mul- 
tiface oder dem Wizard vergleichbare 
Leistung zum gleichen oder gar niedri- 
geren Preis erhält. 


„Dreigesti rn 
im Vergleich 


Der leider nur mit Diskette erhältli- 
che Disc Wizard beispielsweise 
erzeugt, wie schon erwähnt, Pro- 
grammkopien, von denen nach Aufbe- 
reitung 70 Prozent auch ohne Modul 
lauffähig sind. Damit wartet der 
Wizard mit einem Ausstattungsmerk- 
mal auf, das keine der beiden anderen 
Erweiterungen zu bieten hat. Einzigar- 
tig ist auch sein Bedienungskomfort. 
Zu seinen unangenehmeren Eigen- 
schaften zählt sein spezielles Auf- 
zeichnungsformat, das nur vier 
Kopien pro Diskette zuläßt. 

Ganz anders präsentiertsich da das 
Multiface Two, das sowohl schnell 
arbeitet, als auch keine eigens vorbe- 
reiteten Disketten verlangt. Sein ein- 
gebauter Resetknopf und der für Ma- 
schinensprache-Programmierer in- 
teressante Speichermonitor machen 
ihn zur lohnenswerten Anschaffung. 

Eine Warnung sei jedoch an dieser 
Stelle ausgesprochen: Jedes der drei 
Module reagiert empfindlich auf die 
Anwesenheit fast jedweder Fremd- 
peripherie am CPC. Unter anderem 
läßt sich nämlich keines auf eine fried- 
liche Koexistenz mit Vortex-Laufwer- 
ken ein. Wir können Ihnen daher nur 
raten, vor dem Kauf eines der Module 
die Funktion mit Ihrer Systemkonfigu- 
ration ausgiebig zu testen. 

(Ralf Hinnenberg/kl/ja) 


Mirage Imager: Mirage Mierocomputers Deutschland, Post- 
fach 160155, 5400 Koblenz 16 

Multiface Two: Romantic Robot, Ben-Gurlon-Ring 80, 6000. 
Frankfurt am Main 56 

Disc Wizard: Waldeok Software, Tulpenstraße 30, 2870 Del- 
menhorst 


Wieviel Computer 


können Sie für 7499: kaufen? 


ca. soviel von Vielen ||soviel von Schneider | 


Ab DM 1.499,— erhalten Sie einen 
IBM-kompatiblen Komplett-Computer: 
Monitor, Zentraleinheit, 54” Disketten- 
laufwerk, Tastatur und... 

% 16 Bit-Prozessor 8086 mit 8 MHz Taktfrequenz 
%* 512 Kilobyte Hauptspeicher 

%* Betriebssysteme MSDOS3.2 und DOS PLUS 
% grafische Benutzeroberfläche GEM 

%* Microsoft-kompatible Maus 

x eingebaute Schnittstellen für 


Peripherie und Daten- 
fernübertragung 
%* Auflösung 720 x 348 


Bildpunkte monochrom (Option) 
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Vielseitig, bedienungsfreundlich 
und sagenhaft preiswert. 
Der neue Schneider »PC 1512«. 


Mit Industriestandard, GEM und 
Maus bietet er komplett, was bisher 
nur einzeln zu haben war: 


Die IBM-Kompatibllität für den Zugriff 
zur größten Softwarebibliothek der 
Weit. Die Schnelligkeit für professio- 
nelle Anwendung. Die GEM-Benutzer- 
oberfläche, die auch den Anfänger 
‚ohne großes Computerwissen im 
Handumdrehen zum Computerprofi 
macht 

Die Zukunftssicherheit durch nahezu 
unbegrenzte Ausbau- und Anschluß- 
möglichkeiten (Modems, Netzwerke, 
vielfältige Peripherie) 

Und den Preis, der für eine erfolg- 
reiche Zukunft völlig neue Perspek- 
tiven eröffnet. 


Die Produktfamilie: Irbindlohe 
Modell Preempfonung 
Schwarz-/Weiß-Monitor, 


ein Diskettenlaufwerk — 1,499, DM 
Schwarz-/Welß-Monitor, 
zwei Diskettenlaufwerke — —— 1,999,- DM 


Schwarz-/Weiß-Monitor, 

ein Diskettenlaufwork, 

20 MB Magnetplattenlaufwerk _ 2.999,- DM 
Farbmonitor, 


ein Diskettenlaufwerk 1.999,- DM 
Farbmonitor, 
zwei Diskettenlaufwerke 2.499,- DM 


Farbmonitor, ein Diskettenlaufwark, 
20 MB Magnetplattenlaufwerk_. 2499,- DM 


Mönchen22 


> Schneider 


weil Leistung überzeugt 


Der Happy-EPROMer: 
ein Tausendsassa 


Jetzt ist es soweit - der Happy- 
EPROMer für den CPC ist da. 
Einfach nachbauen, aufstecken 
sowie die zugehörige Software 
starten, und schon sind Sie in 
der Lage, eigene Programme in 
EPROMs zu brennen und bei- 
spielsweise das Betriebssystem 
des CPC Ihren eigenen Wün- 
schen anzupassen. 


iel Mühe und Schweiß hat uns 
W: Entwicklung des Happy- 

EPROMers gekostet, doch 
das Ergebnis kann sich sehen lassen! 
Sie erhalten mit dem Happy- 
EPROMer eine komplett softwarege- 
steuerte Schaltung, die EPROMs mit 
einer Speicherkapazität von 8 bis 32 
KByte über einen intelligenten 
Programmier-Algorithmus program- 
miert und direkt am CPC aufgesteckt 
werden kann (Bild 1). 


Sie können sowohl die normalen 
EPROMs benutzen, die mit einer 
Spannung von 21 Volt programmiert 
werden, als auch die A-Typen, die nur 
125 Volt Programmierspannung 
benötigen 

Der Clou der Schaltung ist, daß die 
Spannung intern mit einem Span- 
nungswandler erzeugt wird, so daß 
keine externe Spannungsquelle not- 
wendig ist. 

Selbstverständlich liefern wir Ihnen 
auch die passende Software zum 
Happy-EPROMer, denn ohne Soft- 
ware ist die schönste Schaltung wert- 
los. 

Mit dem Happy-EPROMer eröffnet 
sich für Sie ein weites Feld an Anwen- 
dungsgebieten. Von der residenten 
RSX-Befehlserweiterung im EPROM 
über die selbstgeschriebene oder 
gekaufte Software, die nach Einschal- 
ten des Gerätes sofort verfügbar ist, 
bis hin zur gepatchten Version des 
CPC-Betriebssystems ist nun alles 
machbar. 


Besonders günstig ist, daß das 
Betriebssystem des Schneider CPC 
für den Anschluß von bis zu 252 
EPROMs vorbereitet ist. So lassen 
sich die programmierten EPROMs 
beispielsweise über eine ROM-Box 
(siehe auch Testbericht in dieser Aus- 
gabe) oder über die im 7. Schneider- 
Sonderheft vorgestellte Happy-Mega- 
bitkarte anschließen und komfortabel 
in das Betriebssystem einbinden. 


Wenden wir uns nun dem konkreten 
Aufbau des Happy-EPROMers zu. 
Bild 2 zeigt seine wichtigsten Kompo- 
nenten, die aus nur vier ICs bestehen. 
Lediglich der Schaltungsteil zur 
Erzeugung der Programmierspan- 
nung und der Textool-Sockel, in den 
die EPROMs gesteckt werden, sind 
aus Gründen der Übersichtlichkeit 
nicht eingezeichnet. 

Wenn man die EPROMer-Schal- 
tung betrachtet, fällt zuerst das IC 
8255 ins Auge. Bei diesem Baustein 
handeltessich um ein IC mit drei 8-Bit- 
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Ports zur parallelen Datenein- und 
„ausgabe (PIO). A 

Dieser Baustein ist das Herz des 
Happy-EPROMers. Hier werden 
Daten aus dem CPC an das EPROM 
übergeben und Daten vom EPROM in 
den CPC übernommen. 

Über ein 0-Signal auf den Adreßlei- 
tungen AB bis A10 adressiert der CPC 
den 8255 (Portadresse F8XX), und 
über die beiden Adreßbits Ai und A2 
wählt er einen Port (A, B und C) oder 
das Steuerregister zur Wahl der 
Betriebsart des 8255 aus. 

Die Signale RD und IORG sowie 
WR und [ORG werden jeweils über ein 
ODER-Gatter miteinander verknüpft 
und an den RD-Eingang beziehungs- 
weise WR-Eingang des 8255 gelegt. 
Diese beiden Signale geben an, ob 
Daten in den 8255 geschrieben oder 
aus dem Baustein gelesen werden. 

Der Datenaustausch zwischen CPC 
und 8255 erfolgt über den Datenbus 
(DO bis D7). Weil die Signale des 
Datenbus nicht durch einen Treiber 
(zum Beispiel 74LS245) verstärkt wer- 
den, müssen diese Leitungen so kurz 
wie möglich gehalten werden. Der 
8255 sollte folglich auf der Platine 
direkt am Stecker zum CPC sitzen. Im 
anderen Fall müssen Sie noch ein IC 
74LS245 zur Verstärkung der Daten- 
signale einfügen. 


Drei Ports im Streß 


Port A des 8255 gibt die zu schrei- 
benden Daten an das EPROM aus 
und liest bei Bedarf die Daten vom 
EPROM ein. 

Port B erzeugt die Signale zur 
Adressierung der Speicherzellen des 
EPROM. Zuerst werden die Adreßbits 
AB bis A13 ausgegeben und in dem 
8-Bit-Register 74HC0573 zwischenge- 
speichert. Sofern das EPROM gele- 
sen werden soll, wird zusätzlich das 
OE-Signal aktiviert. 

Darauf wird über Port B das untere 
Byte der EPROM-Adresse, nämlich 
die Adreßbits AO bis A7 ausgegeben 
und an den Textool-Sockel angelegt. 
(Die Zahlen in Klammern hinter den 
Signalen auf der rechten Seite des 
8255 geben jeweils die Nummer des 
angeschlossenen Pin am Textool- 
Sockel an.) 

Port C schließlich erzeugt die Steu- 
ersignale für die EPROMer-Schal- 
tung. Bit 0 aktiviert das 8-Bit-Register, 
um das obere Adreßbyte von Port Bzu 
übernehmen, und Bit 1 schaltet das 
EPROM über die CE-Leitung in den 
aktiven Zustand. 

Bit 2 schaltet die Programmierspan- 
nung für das EPROM ein, und Bit 6 
wählt aus, ob die Programmierspan- 
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nung 21 Volt oder 12,5 Volt beträgt. 
Beide Signale sind mit einem Inverter 
aus dem IC 74LS06 gepuffert. Die 
Ausgänge der Gatter dieses IC verfü- 
gen über offene Kollektoren, so daß 
die Ausgangsspannung eines Gatters 
bei entsprechender Beschaltung bis 
zu 30 Volt betragen darf. Auf diese 
Weise lassen sich bequem die TTL- 
Signale der digitalen Elektronik (+5 
Volt und O Volt) mit den Spannungen 
zum Programmieren eines EPROM 
koppeln. 

Bit 7 von Port C erzeugt das Pro- 
grammiersignal PGM für das EPROM 
und wählt beim EPROM-Typ 27256 als 
Adreßbit A14 die untere oder obere 
Speicherhälfte aus. 

Bit 3, Bit 4 und Bit 5 von Port C wer- 
den in der Schaltung nicht verwendet 
und bleiben unbeschaltet. 

Der Schaltungsteil des Happy- 
EPROMers, der die Programmier- 
spannungen für das EPROM erzeugt, 
besteht aus dem Spannungswandler 
TL 497 von Texas Instruments und sei- 
ner Beschaltung, die aus nur wenigen 
Bauteilen besteht. 

Der TL 497 istin der Lage, aus einer 
bestimmten Eingangsspannung Aus- 
gangsspannungen von bis zu 35 Volt 
bei einer maximalen Stromstärke von 
0,5 Ampere zuerzeugen. Mitderange- 
gebenen Beschaltung erzeugt er aus 
den 5 Volt, die der CPC am Erweite- 
rungsanschluß zur Verfügung stellt, 
eine Spannung, die je nach Einstel- 
lung des Potentiometers Ri zwischen 
20 und 32 Volt liegt. 

Für dieses kleine Wunder benötigt 
das ICjedoch die Unterstützung durch 
eine Spule, die Sie selbst herstellen 
müssen, sofern Sie im Fachhandel 
nicht eine passende Spule mit dem Al- 
Wert von etwa 250 finden. 

Doch keine Angst, der Selbstbau 
der Spule ist völlig unproblematisch. 
Aus einem Elektronikladen besorgen 
Sie sich dazu einen Spulenbausatz, 
bestehend aus zwei Kammerhälften 
Ferritschalen, einem Spulensockel 
mit Wickelzylinder und einem Klam- 
merbügel. Empfehlenswert sind die 
Spulenbausätze von Valvo oder Sie- 
mens. Der Al-Wert des Ferritmaterials 
muß ungefähr 250 (zum Beispiel 


Bild 1. 

So läßt sich der 
Happy-EPROMer 
ohne Aufwand am 
CPC anschließen 


Siemens-Schalenkern RM 5, N28) 
betragen. 

Wie die Erfahrung zeigt, sind diese 
Werte jedoch relativ unkritisch. Den 
dem Bausatz beiliegenden Wickelzy- 
linder bewickeln Sie bitte mit 15 Win- 
dungen Kupferlackdraht, der eine 
Drahtstärke von 0,3 bis 0,4 Millimeter 
besitzen sollte und setzen darauf die 
Spule gemäß beiliegender Anleitung 
zusammen. 

Für die Qualität der Ausgangsspan- 
nung ist es hilfreich, wenn Sie die 
Beschaltung des TL 497, wie im Ver- 
drahtungsplan auf Bild 3 zu sehen, so 
nahe wie möglich am Sockel des IC 
aufbauen. Dadurch werden Rück- 
kopplungen vermieden. 

Es ist sinnvoll, den Programmier- 
spannung erzeugenden Teil der 
Schaltung zuerst aufzubauen und 
eine externe Spannungsquelle (zum 
Beispiel eine 9-Volt-Blockbatterie) 
anzuschließen. So können Sie mit 
dem Potentiometer Ri die Ausgangs- 
spannung der Schaltung auf 22 Volt 
voreinstellen. 


Der Programmier- 
spannung 
auf der Spur 


Die Programmierspannung, die 
vom TL 497 erzeugt wird, liegt direkt 
an der Zenerdiode D1 an, die eine 
Zenerspanhung von 22 Volt aufweist, 
und bei einer Fehlfunktion des TL 497 
oder der Beschaltung (Kurzschluß im 
IC, defekter Kondensator oder ver- 
drehtes Potentiometer) dafür sorgt, 
daß Überspannungen kurzgeschlos- 
sen werden. Dadurch besteht keine 
Gefahr, daß ein EPROM durch zu 
hohe Spannungen zerstört wird. 

In dieser Richtung finden Sie im Ver- 
drahtungsplan auch die beiden Transi- 
storen T1 und T2, eine weitere Zener- 
diode D2, eine Germaniumdiode D3 
undeine Siliziumdiode D4. Diese Bau- 
teile erzeugen die beiden Program- 
mierspannungen von 21 und 12,5 Volt 
für Pin 1 des Textool-Sockels. 

Die Widerstände dienen lediglich 
zur Strombegrenzung, doch ein 
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——CE (20) 
STROBE 


12,5V/21V 


= 


Do (11) 
Di (12) 
D2 (13) 
D3 (15) 
D4 (16) 
D5 (17) 
D6 (18) 
D7 (18) 


> PGMIA1A (27) 


AB (25) 
Ag (24) 
A1O (21) 
At (23) 
A12 (2) 
A13 (26) 
DE (22) 


Bild 2. Der Schaltplan zeigt die digitale Logik des EPROMers und die Anschlüsse für den Textool-Sockel 


0-Volt-Impuls an der Basis von T1 
( BE) schaltet die Transistor- 
strecke zwischen Emitter und Kollek- 
tor frei und damit die um ein knappes 
halbes Volt reduzierte Programmier- 
spannung über T2 oder D2 an das 
EPROM. 

Liegt STROBE dagegen auf 1, so ist 
der Transistor T1 gesperrt, und über 
die Diode D3 liegen knapp 5 Volt an 
Pin 1 desEPROM, so daßessichnicht 
programmieren läßt. 

Das Signal an der Basis von T2 
(12,5/21) kann die Programmierspan- 
nung von 21 auf 12,5 Volt begrenzen, 
indem es den Transistor gesperrt hält. 
In diesem Fall muß sich die Program- 
mierspannung ihren Weg über die 
Zenerdiode D2 suchen, die den Span- 
nungswert um ungefähr 9 Volt redu- 
ziert. 

Ist T2 jedoch durchgeschaltet, so 
wird die Programmierspannung über 
die Emitter-Kollektor-Strecke des 
Transistors zum EPROM geleitet und 
verliert wiederum nur ein knappes hal- 

_ bes Volt an Spannung. Dadurch liegen 
ziemlich genau 21 Volt an Pin 1 des 

Textool-Sockels, sofern der Transistor 
- Ti durchgeschaltet ist. 
| Viele Leser werden sich fragen, 

wozu der Aufwand mit der Program- 
mierspannung notwendig ist und 
" warum man nicht die Betriebsspan- 
nung von 5 Volt, die der CPC serien- 


mäßig liefert, verwenden kann. Die 
Antwort istkurz, die Begründung dafür 
etwas länger: Der interne Aufbau 
eines EPROM erfordert diese relativ 
hohen Spannungen, um eine Spei- 
cherzelle dauerhaft (für mindestens 10 
Jahre) zu programmieren. 

Ein EPROM enthält im Inneren viele 
tausend kleine MOSFET-Transisto- 
ren, die sperrend geschaltet sind, folg- 
lich den Transport von Ladungsträ- 
gern verhindern. Normale Transisto- 
ren lassen sich über eine Spannung 
an der Basis freischalten, im EPROM 
ist dies jedoch nicht möglich. 


Wie ein EPROM 
funktioniert 


Das im EPROM für den Transistor 
verwendete Material leitet den Strom 
schlecht und wird in der Elektrotech- 
nik als Isolator bezeichnet. Nur mit 
einer zur Betriebsspannung von +5 
Volt relativ hohen Spannung läßt sich 
ein von der Zenerdiode bekannter 
Lawineneffekt auslösen, durch den 
Ladungsträger über den MOSFET- 
Transistor transportiert werden. 

Nach Abschalten der Programmier- 
spannung bleiben die verschobenen 
Ladungsträger dann auf der gegen- 
überliegenden Seite des Transistors 
eingesperrt. Wenn Sie diesen pro- 


grammierten Zustand des EPROM 
rückgängig machen wollen, müssen 
Sie den umgekehrten Weggehen, das 
heißt eine hohe Energie einbringen, 
die den Rückfluß der eingesperrten 
Ladungsträger über den Transistor 
veranlaßt. Dieser Vorgang, der dem 
Löschen einer Speicherzelle ent- 
spricht, wird nicht durch das Anlegen 
einer hohen Programmierspannung, 
sondern durch die Einwirkung von UV- 
Strahlen auf den Baustein ausgelöst. 
Die UV-Strahlen setzen einen foto- 
elektrischen Strom in Gang, der die 
Ladungsträger in ihre Ausgangsstel- 
lung zurückfließen läßt. 

Beim Löschen eines EPROMs läßt 
sich natürlich nicht eine einzelne Spei- 
cherzelle adressieren. Deshalb kann 
man mit einer UV-Lampe jeweils nur 
den kompletten Speicherinhalt eines 
EPROMs löschen. 

Damit die UV-Strahlen auch die 
MOSFET-Transistoren des EPROM 
beleuchten können, bauen die 
EPROM-Hersteller in jeden Baustein 
ein kleines Fenster aus Quarzglas ein. 
(Quarzglas deshalb, weilesim Gegen- 
satz zum normalem Fensterglas den 
UV-Anteil des Lichts nicht ausfiltert.) 
Dieses Fenster sollte bei einem pro- 
grammierten EPROM abgedeckt wer- 
den, damit der Speicherinhalt durch 
die kontinuierliche Einwirkung des 
Tageslichts nicht gelöscht wird. 
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Wenn Sie zum Aufbau des Happy- 
EPROMers schreiten, wählen Sie als 
Basis am besten eine Lochstreifenra- 
sterplaiine oder eine IC-Experi- 
mentierplatine. Gehen Sie beim Ver- 
drahten der Schaltung getrost ein 
wenig chaotisch vor; durch sauber 
gezogene Kabelbäume kann es näm- 
lich zum induktiven und kapazitiven 
Übersprechen der Signalpegel kom- 


men, so daß Fehlfunktionen auftreten 
können oder die Schaltung von vorn- 
herein nicht korrekt arbeitet. 

Der in Bild 3 dargestellte Verdrah- 
tungsplan gibt auch den im Schal- 
tungslesen ungeübten Bastlern die 
Gelegenheit, einmal »richtig loszule- 
gen«, indem sie deutlich jede Leiter- 
bahn vom Ausgangspunkt bis zum 
Endpunkt verfolgen können. 


Bild 3. So müssen Sie die Bauteile auf der Platine verdrahten 


Selbstverständlich sollten Sie, wie 
bei unserem Testmuster in Bild 4, alle 
ICs sockeln. So ersparen Sie sich bei 
einer Fehlersuche oder im Reparatur- 
fall eine Menge Arbeit. 

Nochmals an dieser Stelle der Hin- 
weis, den 8255 so nah wie möglich am 
Stecker zum Erweiterungsanschluß 
einzulöen, um Signalstörungen 
durch zu lange Übertragungswege zu 
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vermeiden. Die Leitungen für die Port- 
signale des 8255 dürfen dagegen 
etwas länger ausfallen, weil diese 
Signale vom 8255 intern verstärkt wer- 
den. 

Achten Sie bitte ebenfalls darauf, 
die Programmierspannung erzeugen- 
den Bauteile dicht am ICTL 497 einzu- 
bauen, um störende Rückkopplungen 
zu vermeiden. 


Tips aus 
der Bastelküche 


Verdrahten Sie die Schaltung, 
indem Sie sich vorher eine Kopie von 
Bild 3 anfertigen und jeder gezoge- 
nen Draht im Plan farbig markieren. 
Beginnen Sie, nachdem Sie alle 
Sockel eingelötet haben, immer an Pin 
1 eines Sockels und arbeiten Sie sich 
bis zum Pin mit der höchsten Nummer 
vor. So haben Sie die Gewähr, keine 
Leitung übersehen zu haben. 

‚Auf die Platine unseres Testmusters 
ist ein Direktstecker für den Anschluß 
an den CPC und ein Direktstecker für 
die Verbindung zu weiteren Periphe- 
riegeräten aufgelötet. Welche Kombi- 
nation Sie wählen, bleibt selbstver- 
ständlich Ihnen überlassen. 

Wenn Sie die Schaltung aufgebaut 
haben, können Sie den Happy- 
EPROMer im ausgeschalteten (!) 
Zustand des Computers auf den 
Erweiterungsanschluß stecken. Beim 
Einschalten des CPC muß sich die 
gewohnte Einschaltmeldung zeigen. 
Wenn nicht, dann schalten Sie den 
Computer schleunigst aus und bege- 
ben Siessich auf Fehlersuche. Istein IC 
mehr als handwarm geworden? Sind 
alle Verbindungen ordentlich verlötet 
(notfalls mit einem Durchgangsprüfer 
nachmessen)? Haben Sie den 
Stecker richtig herum aufgesetzt? 

Wenn Ihr Computer mit angeschlos- 
senem EPROMer einwandfrei arbei- 
tet, können Sie sich der Software 
zuwenden, die zum weiteren Überprü- 
fen der Schaltung und selbstverständ- 


lich zum Programmieren eines 
EPROM unerläßlich ist. 
Die Software für den Happy- 


EPROMer besteht einerseits aus dem 
Programm »Eprom«, das die EPROM- 
er-Schaltung verwaltet, indem es die 
verschiedenen Speicherbausteine 
programmiert, ausliest und vergleicht, 
und andererseits aus einer angepaB- 
ten Version des CPC-Monitors 
»Smon«, der in der ersten ‚Version 
bereits im 2. Schneider-Sonderheft 
abgedruckt wurde. 

Beide Programme können sich 
gegenseitig aufrufen, so daß sie sich 
wie ein einziges Programm verhalten. 


Bei Eprom geschieht der Aufruf über 
einen eigenen Menüpunkt und beim 
Smon mit dem Befehl »J 9000«. 

Aus Platzgründen haben wir die 
Programme Eprom und Smon dies- 
mal nicht als DATA-Lader, sondern 
abtippfertig für die Eingabehilfe 
»CPC« (siehe entsprechender Beitrag) 
abgedruckt (Listing 1 und Listing 2). 

Gestartet werden beide Programme 
mit der Routine »Promon« in Listing 3. 
Besitzer des CPC 464 müssen Zeile 
160 von Promon wie folgt ändern: 
160 LOAD”smon.bin”,&8000 

Wenn Sie das Modell CPC 464 oder 
CPC 664 besitzen, müssen Sie die 
Routine »Patch« aus Listing 4 starten, 
die den Maschinencode von Smon 
nachlädt und abhängig von der 
Modellversion patcht. Anschließend 
wird der geänderte Maschinencode 
wieder auf Datenträger geschrieben. 

Haben Sie die Software startbereit 
auf Diskette vorliegen, dann starten 
Sie sie nur noch mit »RUN” Eprom« 
gefolgt von <ENTER>. 

Zur Bedienung von Eprom gibt es 
nicht viel zu sagen. Das Programm 
arbeitet mit einem intelligenten 
Programmier-Algorithmus, der ein 
16-KByte-EPROM in weniger als zwei 
Minuten komplett programmiert. 

Im Hauptmenü können Sie zwi- 
schen den verschiedenen EPROM- 
Typen wählen. Wenn Sie einen 27128 
für 21 Volt Programmierspannung ver- 
wenden, müssen Sie das Untermenü 
für den 27128, ansonsten (12,5 Volt) 
das Untermenü für den 27128A aus- 
wählen. Das gleiche gilt für die beiden 
27256-Typen. 

Hüten Sie sich davor, beim Pro- 
grammieren eines A-Typs im Menü 
den Typ ohne A auszuwählen. In die- 
sem Fallwird das EPROM durch diezu 
hohe Programmierspannung zerstört. 
Damit Sie sich jederzeit über den 


Bild 4. 

Ein Muster des 
Happy-EPROMers, 
das sich in der 
Redaktion bereits 
viele Male 
bewährt hat 


8255 PIO 


gewählten EPROM-Typ_ informieren 
können, zeigt jedes Untermenü den 
aktuellen Typ in der Kopfzeile an. 
Haben Sie sich vertippt, so betätigen 
Sie die ENTER-Taste ohne Ihre Ein- 
gabe zu vervollständigen. In diesem 
Fall gelangen Sie in die Menüauswahl 
zurück. 


Zum Austesten der EPROMer- 
Schaltung überprüfen Sie zuerst, ob 
die Programmierspannungen auch 
tatsächlich 21 beziehungsweise 12,5 
Volt betragen. Dazu wählen Sie im 
Hauptmenü von Eprom den Menü- 
punkt 1 und darauf den Unterpunkt 
»Programmieren« (ebenfalls 1). Im 
Textool-Sockel darf natürlich kein 
EPROM stecken. 

‚Aufdie Frage nach dem zu program- 
mierenden Speicherbereich geben 
Sie als Anfangsadresse 4000 (hex) 
und als Endadresse 7FFF (hex) an, 
damit Sie während des Programmie- 
rens genügend Zeit zum Messen der 
Programmierspannung haben. 

Nach Eingabe der EPROM-Adresse 
(0000) startet der Happy-EPROMer 
die Programmierung und Sie müssen 
mit einem Spannungsmeßgerät oder 
einem Oszilloskop die Spannung an 
Pin 1 des Textool-Sockels überprüfen. 
Da die Programmierspannung in Form 
von Impulsen angelegt wird, ist ein 
analoges Spannungsmeßgerät 
wegen der Trägheit der Anzeige zum 
Messen besser geeignet als ein Digi- 
talvoltmeter. Bei einem Digitalvoltme- 
ter kann man sich notfalls mit dem 
Meßbereich Wechselspannung behel- 
fen. 

Stellen Sie das Potentiometer Ri 
mit einem kleinen Schraubenzieher 
so ein, daß die gemessene Spannung 
etwa 21 Volt beträgt. 

Zum Kontrollieren der Program- 
mierspannung von 12,5 Volt für die A- 
Typen wählen Sie im Hauptmenü von 


Textool-Sockel mit EPROM 
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Eprom den Punkt 4 aus. Nun können 
Sie einerseits an Pin 1 die Program- 
mierspannung überprüfen und ande- 
rerseitsan Pin 27 testen, ob das Adreß- 
signal A 14 für die Auswahl der unteren 
und oberen Speicherhälfte eines 
27256-EPROM korrekt erzeugt wird. 
Programmieren Sie das EPROM dazu 
einmal ab EPROM-Adresse 0000 und 
im anderen Fall ab EPROM-Adresse 
4000 (hex). Im ersten Fall muß A14 auf 
0 Volt und im zweiten Fall auf +5 Volt 
liegen. 

Für die Verwaltung des CPC- 
Speichers (ROM, RAM und Erweite- 
rungs-ROM) sowie für das Laden, 
Speichern und Ausführen von Pro- 
grammen ist der CPC-Monitor Smon 
zuständig. 

Für diejenigen Leser, die nicht das 
2. Schneider-Sonderheft besitzen, in 
dem bereits die Anleitung zum Smon 
abgedruckt wurde, haben wir in Bild 5 
alle Befehle in Kurzform zusammen- 
gefaßt. Die Befehle werden in der 
Regel durch Eingabe des Kennbuch- 
stabens und einer hexadezimalen 
Adresse, die vier Ziffern lang ist, akti- 
viert. 

Folgende Befehle, die insbeson- 
dere für die EPROM-Programmierung 
sehr wichtig sind, bedürfen einer aus- 
führlicheren Erklärung: 

Der Befehl 
X (start) (ende) (ziel) 
verschiebt den Speicherbereich von 
der Adresse <start> bis <ende> 
nach <ziel>. 

Der Befehl 
Z (start) (ende) (byte) 
füllt den Speicherbereich von der 
Adresse <start> bis <ende> mit 
dem Wert <byte>. 

Der Befehl 
: (byte) 
bestimmt die Speicherkonfiguration 
des CPC. Wenn Sie für <byte> die 
Werte 00 bis FB (hex) einsetzen, wird 
das Erweiterungs-ROM mit der ent- 
sprechenden Nummer in den Spei- 
cherbereich von C000 bis FFFF (hex) 
eingeblendet. Der Befehl »: 07« schal- 
tet beispielsweise das Disketten-ROM 
ein. 

Die Werte von FC bis FF (hex) wäh- 
len die interne Speicherverteilung des 
CPC nach folgendem Muster aus: 


FC: Unteres und oberes ROM 
eingeschaltet. 

FD: Unteres ROM aus- und oberes 
ROM eingeschaltet. 

FE: Unteres ROM ein- und oberes 
ROM ausgeschaltet. 

FF: Unteres und oberes ROM 
ausgeschaltet. 


Die Speicherverteilung nach dem 
Muster FF (hex) ist die Standardkonfi- 
guration des CPC. 
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Auf Wunsch schicken wir Ihnen 
gegen einen mit 1,30 Mark frankierten 
und an Sie selbst adressierten 
Rückumschlag auch gerne die aus- 
führliche Anleitung von SMON zu. 

Die oben besprochenen Befehle 
von SMON zeigen zugleich, wie man 
beispielsweise das Betriebssystem 
des CPC ausliest, umesin einer geän- 
derten Form in ein EPROM zu pro- 
grammieren. 

Mit 
: FE 
X 0000 3FFF 4000 
kopieren Sie den Inhalt des unteren 
ROM-Bereichs ab der Adresse 4000 
(hex) in den Arbeitsspeicher. Nun kön- 
nen Sie die gewünschten Änderungen 
vornehmen und darauf mit 
J 9000 
4 
1 
4000 7FFF 0000 
die gepatchte Version in die untere 
Hälfte eines 272564 (kein A-Typ: Menü- 
punkt 5 anwählen!) programmieren. 


Bauteil] Bezeichnung Wert/Typ 
3 IC-Sockel 14polig 
| 11C-Sockel 20polig 
11C-Sockel 40polig 
Textool-Sockel 28polig 
Lochstreifenrasterplatine 
‚oder IC-Experimentier- 
paltine 
Ri Potentiometer 2K0 
R2 Widerstand 1KQ 
R3 Widerstand 33 K2 
Ra Widerstand 7 680 
RS: ‚Widerstand 18 
R6 Widerstand 22Kn 
R7 ‚Widerstand 10K0 
R& Widerstand 22 K0 
Ag | Widerstand 10.KR 
R10 | Widerstand 47.K0 
a Elektrolytkondensator: 220 ,F 
C2 | Keramikkondensator 100. nF 
c3 Elektrolytkondensator 220 uF 
C4 | Kondensator ‚100 PF 
5 „| Elektrolytkondensator BB ur 
C6 | Keramikkondensator 100 nF 
IE Schalenkernspule 250.Al 
Di ‚Zenerdiode ZPD 22 Volt 
D2 | Zenerdiode ZPD 9,1 Volt 
D3 ‚Germaniumdiode BB 119 
D4 | Siliziumdiode 1N 4148 
T PNP-Transistor ‚BC 307 oder 
BC558 
ar} PNP-Transistor BC 307 oder 
BC558 
ICi | Parallelportbaustein 8255 PIO 
Ic2 | Spannungswandler TL497 
103 | Sechs Inverter mit 741506 
‚offenem Kollektor 
IC4 | 8-Bit-Register 7440573 
IC5 | Vier ODER-Gatter 741832 


Tabelle. Diese Bauteile benötigen Sie 
zum Bau des Happy-EPROMers 


Entsprechend lesen Sie mit 
: ED 
X CO00 FFFF 4000 
den Inhalt des oberen ROM-Bereichs 
in den Arbeitsspeicher und program- 
mieren ihn nach einer eventuellen 
Änderung durch 
J 9000 
4 


et 
4000 7FFF 4000 
in das EPROM. 

Sie sollten sich gleich angewöhnen, 
nur den CPC-Speicherbereich von 
4000 bis 7FFF (hex) für die Daten des 
EPROM zu verwenden, weil ab 
Adresse 8000 (hex) der Maschinen- 
code von Smon folgt und sich vor der 
Adresse 4000 (hex) residente Basic- 
Programme befinden könnten. Wenn 
Sie keine Basic-Programme benöti- 
gen, dürfen Sie als niedrigste Adresse 
den Wert 170 (hex) verwenden. 

Selbstverständlich können Sie auch 
kleinere Datenmengen als 16 KByte 
programmieren, indem Sie vorher 
einen kleineren Arbeitsspeicherbe- 
reich (zum Beispiel 5000 bis 5400 
(hex)) angeben. 

Wie bereits ausgeführt, erlaubt der 
Happy-EPROMer auch das Patchen 
des Betriebssystems Ihres CPC. Die 
Möglichkeiten, die sich auf diesem 
Gebiet ergeben, sind vielfältig und 
nahezu unbegrenzt. 

Wie wäre es beispielsweise mit 
einer individuellen Einschaltmeldung, 
mit deutschen Fehlermeldungen oder 
einer Reset-Routine, die den Arbeits- 
speicher nicht löscht? 2 

Wir sind gespannt, welche Ideen 
Sie entwickeln werden. Wenn Sie der 
Meinung sind, daß Sie einen interes- 
santen Patch für das Betriebssystem 
geschrieben haben, dann schicken 
Sie ihn uns doch mit einer Beschrei- 
bung zu. Wir werden dann die besten 
Patches für unsere Leser veröffentli- 
chen (selbstverständlich gegen ein 
angemessenes Honorar). 

Um Ihnen deprimierende Mißer- 
folge beim Patchen des Betriebssy- 
stems zu ersparen, darf ein Problem 
nicht unerwähnt bleiben: Für die Neu- 
programmierung des CPC-Betriebs- 
systems lassen sich nicht alle 
EPROMs verwenden, weil die Bau- 
steine einiger Hersteller zwar außer- 
halb des Computers als Erweiterungs- 
ROMs brav ihren Dienst tun, im Com- 
puter jedoch wegen zu geringer Aus- 
gangsleistungen versagen. Dieser 
Umstand zeigte sich bei Experimen- 
ten an vielen verschiedenen CPCs. 

Die EPROMs von Mitsubishi und 
den 27256-Typ von SGS können Sie 
dagegen für einen Betriebssystem- 
Patch bedenkenlos einsetzen. 

(Peter Bündgens/ma) 


»Finanzbuchhaltung«, eine praxiserprobte Sachkontenbuchhaltung mit 
Kostenstellenrechnung, ist ein menügesteuertes und bedienerfreundliches Pro- 
grammpaket. Sie können mit ihm schnell und unkompliziert ein EDV-unter- 
stütztes Informationssystem in Ihrem Betrieb installieren. 

Per Tastendruck können Sie sich jederzeit über die Finanzlage 
informieren. Das mitgelieferte ausführliche Handbuch erklärt Ihnen 
(anhand zahlreicher Buchungsbeispiele und Abbildungen die einfache Bedie- 
nung des Programms. 


ce) 
Schneider 


Praxiserprobte Finanzbuchhaltung 


und Fakturierung 
für den Einsatz im Klein- und Mittelbetrieb 


»Fakturierung«: Dos dBASE-II-Anwenderprogramm für den Klein- und 
Mittelbetrieb unterstützt und vereinfacht Ihre Routinetätigkeiten: 

® Angebotsschreibung ® Rechnungsschreibung (mit automatischem Ab- 
buchen aus der Artikeldatei) @ Offene-Posten-Verwaltung @ Adreßverwal- 
tung ® Artikelverwaltung. Programmspezifische Eigenschaften: ® Koopera- 
tion ‚elner Komponenten miteinander @ Individuelle Anpassung an Ihre 
Bedürfnisse möglich ® Ein sehr ausführliches Handbuch mit vielen Grafiken 
ist im Lieferumfang enthalten. 
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Hauptmenü 


Otene Poseniee 


Bezahung eintragen 


H Aosmmenzechen Fezegen nach 
Rechnungsnummer 

u Renser Ausanschennacn 1) 
Rechnungsnammer 


Hardware-Anforderung; ® Schneider Joyce PCW 8256 mit einem laufwerk 
Berne hnlarde Joyce POW 8512 und PCW 8256 mit zwei Isufwerken 


‚oder @ Schneider CPC 6128 und externes laufwerk M 
je DM 194,2 


Best.-Nr. 51618/516231/51615 


Hordwore-Anforderung; @ Schneider CPC 6128 mit extemem 3".laufwerk 
a AU, De SEC Ti eramen oe Joyce 
PCW 8256 mit zwei laufwerken und Schneider Joyce PCW 8312 
Schwore-Anforderung: Für den Einsatz der Faktuerung Ist des dBASE-I- 
Deienbanksystom, Verlog MarktäTechnik, erforderlich. 

je DM 94,2 


Best.-Nr. 51619 151624151616 
Dieses Markt&Technik-Softwareprodukt erhalten Sie in 


* inkl, MwSt. Unverbindliche Preisempfehlung 
den Fachabteilungen der Warenhäuser, im Versandhandel, 
in Computer-fochgeschäften oder im Buchhandel. 
Wenn Sie direkt beim Verlag bestellen wollen: 
gegen Vorauskasse durch Verrechnungsscheck 
oder mit der abgedruckten Zahlkarte. 


Markt&Technik 


Zeitschriften 


jücher 


Software - Schulung 


Markt& Technik Verlog AG, Buchverlag, Hans-Pinsel-Straße 2, 8013 Hoor bei München, Teleion [089] 4613-0 


tellungen im Auslond bitte an: SCHWEIZ: Morkt&Technik Vertriebs AG, Kollerstrasse 3, CH-5300 Zug, Telefon (042) 415656 - ÖSTERREICH: Rudolf Lechner & Sohn, 


WWW .HOMESOMPUTERWORLD.COM 


eizwerkstraße 10, A-1232 Wien, Telefon (0222) 677526 - Ueberreuter Medio Verlogsges. mbH [Großhandel], Alser Straße 24, A109] Wien, Telefon (0222) 481538-0. 


Ba20,31,00,C0,CD,00,BB,CD,4E,@F68 
@a08,BB,CD,FF,BB,CD,65,BC,CD,7CD9 
8910,47 ,BC,BE,00,CD, 15,B7,7C,7A72 
8018,32,2B,81,34,1D,81,3D,E6,8230 
8920,91 ,3C,32,FD,8@,CD,BE,BC,2184 
8028,AF ,32,FC,8@,3A,1E,81,47,4C4D 
8030,4F ‚AF,CD,32,BC,3A,1F 38151377 
8038,47,4F ,3E,@1,CD,52,BC,3A,3@72 
8040, 20,81,47,4F ,CD,38,BC,11,3BB1 
8048, 2E,81,CD,2D,82,31,00,C0,2824 
8050,CD,E8,81,AF,32,FC,80,3E,47@E 
8058, 3E,CD,FE,81,CD,44,82,CD,3D21 
8060,74,82,21 ,8A,80,4F ,23,23,1359 
8068, 7E,B7,28,F3,23,B9,20,F6,1BBA 
897@,CD,FE,81,11,7C,88,D5,7E,4804 
8978, 23,66, 6F,E9,11,8F,81,30,88F6 
8080,03,11,74,81,CD,E8,81,CD,1B77 
8088, 2D,82,18,C1,21,20,83,34,37A4 
8290,5C,83,41,F@,03,4D,@E,84,8054 
8098,57,39,84,48,5N,84,4C,9A,31@2 
80AQ,84,7C,80,83,40,36,85,53,46B1 
SaAB,FQ,84,43,3E,85,59,DC,84,56F® 
80B0,23,49,83,47,90,85,26,39,1159 
80B8,85,54,D4,85,44,FD,87,58,46D2 
80CB,B3,85,42,F8,85,52,65,86,7A2C 
80C8,4B,A9,86,46,BB,86,2B,78, 1084 
8000,87 ,2D,87,87,5€,93,87,55,5@77 
808, B5,87 ,44,B8,87,28,00,87,7C9F 
80E0,29,C9,87,38,D4,87,31,DB,3125 
80E8,87,5A,E5,87,@D,4D,88,05,418F 
8OF0,00,80,4F ,74,BC,2E,2F ,83,2B25 
Bar8,3F,80,89,20,00,08,00,08, 2280 
8100, 1F ‚Bi ,22,20,00,00,00,00,23C0 
8108,20,20,00,00,20,00,08,00,0000 
8110,00,00,00,20,02,08,00,00, 2208 
8118,20,20,20,08,00,02,00,1A,0012 
8128,00,22,00,20,20,20,00,00, 2000 
8128,00,08,00,00,08,AD,20,20,0274 
8130, 20,20,20,20,20,2A,2A,20,1FDC 
8138,53,55,50,45,52,4D,4F ,4E,31E4 


Befehlsübersicht Supermon CPC-1002 10. RR 
tasıcı 
A ASCII-Dump ! Bye (Monitor verlassen) Er EPROMMER - PROGRAMM 
B _ Breakpoint setzen : _ RAM/ROM-Bank wählen BE L96ECI 
© Copy (Datei kopieren) I Externes Kdo, aufrufen SER Lasscı 
D _ Disassembler @ _CAfalog-Funktion 40 ‘* (C) 05/1987 by Peter Buendgens 
F Find (Bytefolgen suchen) # Drucker ein e ee netrunca ost LF6ACI 
@ Go (Routine ausführen & 40/80 Zeichen umschalten 5 N [3Co81 
H Header anzeigen { User Jump definieren “a '* 5168 Dueren a 
J Jump (Programm aufrufen) ) User Jump anzeigen a, = % 
K Kill (Breakpoint löschen) O0 SPEED O wählen (Kassette) GL PL RESTE N 
L Load (Programm laden) 1 _SPEED 1 wählen (Kassette) gu ‘x as 
E * 
ME Mertory Dlmp, T/8:St-Mogus.Umecheiten 90. RAR 
© On/Off (Kass.Motorein/aus) + Hexadezimal addieren x. LFS2C9 
R Register anzeigen = Hexadezimal subtrahieren 198 MODE 2 [9c5@1 
S Save (Programm speichern) 1 Sprungdistanz berechnen a RENTELLDRN es 
T Text eingeben X _ Speicherbereich verschieben 128 PRINT". aktivieren (j/n) ?" LF37@] 
U User Jump ausführen Y__ Yank (Progr. verschob, laden) 15@ as=INKEYS:T THEN GOSUB 159 EL 
W Write (Bytesschreiben) Z il (Speicherber. belegen) a oa Eee 
150 FRINT"Rueckkehr mit dem Befehl >24 9 007 
Esc Funktion abbrechen IBASIC Basic-Kaltstart Ban Sin 
Y &IFFF:LOA 
Enter Monitor-Warmstart CtriC Monitor-Kaltstart a en EIUOT U Be) 
179 CALL %B008 [55641 
180 RETURN 13A321 
Externe DOS-Kommandos (nur bei angeschlossenem Laufwerk) Listing 3. Mit »Promon« können Sie starten 
IA ‚Aktuelles Laufwerk ist Laufwerk A 
IB ‚Aktuelles Laufwerk ist Laufwerk B 
IDRIVE Aktuelles Laufwerk wählen a schonen 
ee 4 re 
IERA Datei löschen 30 (6)=&7B THEN RES’ 
A@ IF PEEK(6)=&91 THEN 120 [615C] 
IREN Datei umbenennen 5@ READ z:POKE %BIDE,z [7684] 
DISC LOAD/SAVE von/auf Diskette 60 READ z:POKE yazcaızı :POKE %8573,2:POKE En 
IDISC.IN LOAD von Diskette 28617 ,zı POKl z 
! 988, 
IDISCOUT SAVE auf Diakette DauBeaDn. IPOKE 3B1E2,2!POKE &B9BB,z:POKE rag 
ITAPE LOAD/SAVE von/auf Kassette Be ar !POKE &B1ES,zıPOKE %89B9,2:POKE Fe 
ITAPE.IN LOAD von Kassette 2 
90 READ z:POKE &8100 L37BAJ 
ITMAPEOUT SAVE auf Kassette 100 READ zıPOKE wBl@lrz L&10C) 
ICPM CP/M aufrufen (danach kann mit S-MON nicht mehr 11@ SAVE"smon.bin",B, aaao, LFSA,&B00D C7BF2] 
jearbeitet werden) 120 END CAB1A] 
% 139 DATA &SE,%A4 ,%86,%B2,%07 ,&B8 caacaı 
IUSER (Von S-MON aus nicht verwendbar) 148 DATA &5B,&AB,%27,&B7 ,LIF,LBL t@1D61 
Bild 5. Die Befehle des Monitors »Smon« im Überblick Listing 4. Die Routine »Patch« paßt »Smon« an 


8149,20,43,50,43,2D,31,38,358,@F@C 
A,0A,@A,2D,20,16R2 
© 


8160,39,38, 35, 20,62,79,20,A8, 14DC 

8168,61,70,78,79,20,43,6F ‚6D,25AF 

8170,70,75,74,65,72,0A,0A,@D,2E31 

8178,00,25,25,25,20,56,6F ‚6C,OFSA 

8190,6B,65,72,20,45,76,65,72,23C8 

8188, 74; 73,20, En 25,25,00,4£,2162 
54,20 


81A0,48,2D,50,4E,43,20,20,41,2339 
B1AB,20,20,42,43,20,20,20,44,15F4 
81B0, 45,20, 20,20, 46,4C,20,20,2F9@ 
B1B0,20,47,58,20,20,20,49,59,BAQB 
81C0,00,42,52,45,41,4B, 20,07, 1DFS 
81C8,00,20,46,69,6C,65,6E,61,0419 
Er 2,00,3A,2B,296F 
81D8,81,B7,CA,3 
B1EB,FS,3A,27,B 
B1LEB,C9,F5,3E,@A,CD,FE,81,3E,5AQC 
S1F@,0D,CD,FE,B1,F1,C9,E&, FF ,278F 
S1F8,FE,20, 30,02, 3E,2E,F5,35A,71B8 
8200 ,FC,80,B7,28,23,F1,F5,FE,4948 
8208, 0D,28,@C,FE,@A,28,08,CB,@2CB 
8210,BF,FE,20,30,02,3E,2E,05,6771 
8218,06, 20,4F ,77,CD,2B,BD,38,02F6 
8220,05, 1®,F8,AF,32, Fi 
8228, F1,CD,54,BB,C9, F: c 
8230,87 ,28,06,CD,FE,81,13,18,585A 
8238,F6,D1,F1,09,F5,3E,20,CD,5A2D 
8240, FE,81,F1,C9,F5,3E,07,0D,463 
8248,5A,BB,F1,C9,7C,CD,51,82,1184 
8258 ,7D,FS,BF ‚OF ‚@F „Or ‚CD,5A,0354 
8258,82, F1,E6,8F,FE,@A,38,02,46DA 
8268 ,06,87 ‚06,38, CD,FE,81,C9,7D5B 
BB Bee ESe 


8288,CD,74,82,FE,FC,CB,FE,OD,6111 
8288,C8,D6,30,38,F3,FE,2A,38,584C 
8290, 0B,D6,@7,FE,10,30,E7,FE,3E6C 
8298, @A,3F ,30,E4,F5,CD,5A,82,062A 
82AQ,F1,C9,CD,3C0,82,CD,80,82,5696 
82A8,D0,C5,07,87,07,07,4F ,CD,5947 
82B0,00,82,30,02,B1,37,C1,C07,62BF 
82B8, CD,BD,82,D@,EB,CD,A2,82,512A 
82C0,D8,67,CD,A5,82,6F ,09,21 ,662F 
8208, AB,AC,3A,2B,81,B7,28,@3,7077 
8200,21 ,84,AC,36,00,CD,D6,81,24F9 
8209, D@,E5,AF,Q6, FF ‚04, BE,23,4277 
82E0,20,FB,E1,37,09,3A,FC,88,3648 
8268,06, 10,B7,C0,3A,FD,8@,@F,1ECB 
82F0,D8,86,08,07,CD,87,BB,3F,6315 
82F8,D8,FE,0D,28,08,FE,20,28,537@ 
8300,04 ,FE,FC,20,EF,CD,68,82,241E 
8308, FE,FC,C8,37,C7,CD,EQ,81,5EAD 
8318,CD,4C,82,CD,3C,82,CD,3C,6BSE 
8318,82,C9,7C,BA,CQ,7D,BB,C97,712B 
8320, 3E,FD,CD,60,83,AF,CD,60,S8BE 
8329,83,CD,E@,81,C3,64,00,3A,4BE2 
8330, F7,81 ,EE,88,32,F7,81,37,4D77 
8338,C9,3A,FD,80,3D,28,02,3E,7CF2 
8340, 02,32,FD,82,CD,GE,BC,37,1D3F 
8348,C9,3E,01,32,FC,88,0D,2E,6C054 
8350, BD,SF,D®,SE,@D,CD,2B,BD,4B17 
8358,E1,C3,5F,80,CD,A2,82,D9,4694 
8360, FE,FC,30,06,4F ‚CD,@F ,B7,478B 
8368,37,C9,@F,FS,DC,909,B9,F1,2037 
837@,F5,D4,06,B9,F1,@F,F5,D0,4252 
8378,03,B9,F1,D4,08,89,37,09,3EE3 
8388,CD,3C,82,3E,FF,32,E8,B4,7074 
8388,CD,C7,82,D8,78,87,C8,E5,4A69 
8390,48, 96, 00,3E,2C,ED,B1,E2,2534 


Listing 1. Die hexadezimalen Werte 
zu »Smon« (Eingabe mit dem Pro- 
gramm »CPC«) 


22. ‚HOMESOMPUTER 


Ev 


8398,9B,85,2B,2B,CB,FE,1E,08,6F@C 
83A2,DD,21,80,81,23,BE,20,15,6025 
83AB,23,FD,21,02,81,CD,CA,BS,2CEB 
8360, 30,@5,DD,2B,DD,2B,FD,21,044F 
8368, 05,81,CD,CA,8S,E1,D5,CD,313B 
83C9,D4,BC,D1 ,D@,7B,CD, 1B,8@,52FA 
8308,37,C9,FD,36,@B,FF ,FD,75,3773 
83D@,@1,FD,74,02, 1C,FD,ES,E3,335D 
83D8,DD,75,@0,DD,74,@1,E1,2B,7C5D 
8360, 23,FD,34,0@,7E,B7,C8,FE,2802 
83E8, 2C,20,F5,36,@0,23,37,C9,0SEB 
83F@,CD,BD,82,D8,CD,E5,82,CB,5@B3 
83F8,20,CB,20,C5,CD,@D,83,7E,2DB4 
8400,CD,F6,81,23,10,F9,C1,CD,4B3B 
84@8,F4,82,38,EF,3F,C9,CD,BD,S@@B 
8410,82,D®,CD,ES,82,C5,CD,0D,6463 
8418,83,E5,C5,7E,CD,51,82,CD,6165 
8428, 30,82,23,1@,F6,C1,E1,CD,3ESB 
8428, 30,82, 7E,CD,F6,81,23,10,3872 
8430, F9,C1 ‚CD, F4,82,38\DE)SF)SF53 
8438,C9,CD,BD,82,D@,CD,EQ@,81,4CB5 
8440,CD,ES,82,C5,CD,@D,83,3E,44B4 
8448, 08, CD, FE,81,CD,A2,82,30,2544 
8450,04,77,23,10,F7,C1,38,EB,1E87 
8458, 5F ,C9,2A,00,B1,CD)EQ,81,2EFD 
8460 ,ES,DD,E1,CD,67,85,CD,2D,55AB 
8448, 82,DD,7E,12,CD,E0,81,CD,7C87 
8470,51 ,82,CD,3C,82,DD,6E,15,15CD 
8478,DD,66, 16,CD,4C,82,DD,SE,789C 
8489, 18,DD,56,19,19,2B,CD,30,31D2 
8488,82,CD,4C,82,DD,6E, 1A,DD, 7459 
8490,66, 1B,CD,3C,8! C,82,289E 
8498,37,C9,CD,AQ,84,D8, 18,23,3D13 
84A@,11,C9,81,CD,2D,82,CD,C7,24@D 
B4AB,82,D@,AF ‚CD,6B,BC,11,00,&DBA 
84B0,08,CD,77,BC,30,21,22,00,3320 
8468, 81,CD,54,84,DD,6E, 15,DD, 7767 
8400,66, 16,09 ,CD,EB,81,E5,CD,2773 
84C8, 83, BC,E1,30,0A,DD,75,15,727B 
84D8,DD,74,16,CD,7A,BC,D8,CD,7DCD 
8408, 7D,BC,B7,C9,CD,AG,84,D@,QEc® 
84E0,CD,E0,81,11,97,81,CD,2D,48BB 
84E8,82,CD,BD,82,30,E 3,6F07 
84F@, 11,C9,81,CD,2D,82,CD,C7,240D 
&4F8,82,D0,11,00,08,CD,AC,BC,75F@ 
8580,30,2F ‚AF,CD,6B,BC,CD,E0,0R22 
8508, 81,CD,AS,82,30,23,ED)47,6FD1 
8510,CD,B8,82,30, 1C,B7,ED,52,5874 
8518,3F ,30,16,23,EB,ES,CD,ED, 169B 
8520,92,44,4D,E1,30,0B,ED,57,5791 
8528,CD,98,BC,30,@4,CD,8F,BC,S6B& 
8530,D8,CD,92,BC,B7,C9,11,88,407E 
853 D,9B,BC,37,C9,CD, 
8540,85, EB, 11,80, 08,CD,8C, 
8548, 30, E7,DD,2A,08,81,DD,66,3B18 
8550, 16,DD,6E,15,DD,56,19,DD,378F 
8550, 5€, 18,DD,46, 1B}DD,4E, 1A, 35EA 
856@,DD,7E,12,CB,87,18,C1,C5, 
8560,E5,2A,00,81,7E,FE,20,30,7068 
8579,01 ,23,11,A8,AC,D5,06,08,B6D2 
8578,CD,8F,85,30,09,3E,2E,12,561E 
8500, 13,06,05,CD}F ‚BS,AF, 120398 
1,93,E1,01,47,C9, 
8,FE,20,28,02,12, 
8598, 23, 10,F4,37,07,CD,BD)82,0CFa 
85AQ,DO,CD,EQ,81,11,AD,85,D5,4CB3 
BERG SERIEDLICJBESCHJEB.EDISSSAELS 


„SF ‚D®,44,4D,CD,BD,6ADS 
85C2,82,D@,CD, 1A,85,38,08,09,69€1 
BSCB,EB,@9,03,ED,B8,37,C9,EB,7D15 
6508, 83, ED,B8,C#,CD,ED,82,D0,2518 
85DB,CD,ES,82,CB,20,CB,20,48,4114 
6560, CD,0D,85,CD,68,82,FE,FC,7738 
8SE8, SF ‚C8,FE,@D,3F,CB,77,CD,306B 
B5F0,F&,81,23,18,EE,41,18,E8,S@BC 
&SF8,CD,ED,92,D0, 7C,B5,C8,ED,54C9 
8400,5B,@D,81,7A,B3,C0,E7,32,3E24 
8608,0C,81,36,F7,22,@D,B1,3E,2FEB 
8610,C3,21,4E,86,32,30,00,22,6912 
8618,31,08,37,C9,ED,4B,11,91,1417 
8620,ED,5B,13,81,24,0F,81,E5,6ABB 
8628,F1,2A,15,81,DD,2A,17,81, 
8630,FD,2A,19,81,C9,ED,43,11,7A5B 
8638,81,ED,53,13,81,22,15,81,74BB 
8640, FS,E1,22,@F ,81,DD,22,17,415F 
8648,81,FD,22,19,81,09,CD,35,7C93 
8650,86 ,E1,2B,CD,E9,81,11,C1,775F 
8658,81,CD,2D,82,CD,4C,82,CD,78D1 
9660 ,65,86,C3,7C,8@,CD,E@,81 ‚BADS 
8668,CD,E9,81,11,9D,81,CD,2D,4AAB 
8670,82,CD,E@,81,3A,@F,81,06,66B8 
8678,08,4F ,3E,58,CB,21,CE,00, 1448 
8688, CD,FE,81,10,F5,CD,30,82,4046 
8688, 5A,10,81,CD,51,82,21,11,0523 
8698,81 ,06,05,5E,23,56,23,CD,448B 


8698,3C,82,EB,CD,4C,82,EB,10,2E9E 
B6AB,F2,CD,EB,81,CD,E9,81,37,5AA9 
86AB,C9,2A,0D,81,7C,B5,C8,3A,672E 
96B8,0C,81,77,21,02,08,22,0D,2AF9 
84B8,81,37,C7,CD,B8,82,D@,B7,5E6F 
86CB,ED,52,3F,D8,23,44,4D,21,6853 
86C8,21,81,C5,C0,37,87,C1,D8,2646 
86D@,DD,21,21,81,EB,CD,E®,81,6FDD 
8&D8,DD,7E,@@,B7,C8,DD, 7E,@1,7FB9 
S6E@,ED,B1,37,E®,ES,FD,E1,CD,57F3 
86E8,F4,82,3F ‚D8,DD,7E,@2,B 
86F@,28,08,DD,7E,23,FD,BE,00, 0000 
84F8,20,E3,DD,7E,04,B7,28,08,3624 
8708,DD,7E,@5,FD,BE,81,20,D5,7B11 
8786, DD, 7E,06,87,28,08,DD,7E,7A14 
8718,07, FD,BE,82,20,C7,2B,CD,29A7 
8718,4C,82,CD,3C,82,7E,CD,51,18C3 
8720,82,23,7E,CD,51,82,FD,7E,4BD4 
8728,01 ,CD,51,82,FD,7E,@2,CD,3719 
8730,51,82,CD,E0,81,18,A6,86,1A82 
8738,84 ,36,FF,23,CD,3C,82,CD,15@1 
8740,80,82,30,1B,07,07,87,07,671D 
8748,E6,F0,77,CD,80,82,30,@7,4BSF 
8750,86,77,23,18,E4,37,C9,FE,453@ 
8758,FC,C8,3E,@8,CD,FE,B1,FE,AF2C 
876@,FC,C8,3E,58,CD,FE,81,CD,4niF 
8768, FE,81,2B,36,80,23, 18,E2,591E 
877@,CD,B8,82,D®,19,CD,7D,87,5641 
8778,CD,4C,82,37,C9,CD,30,82,6336 
8780,3E,3D,CD,FE,81,CD,3C,82,BiC& 
8788,C9,CD,B8,82,EB,D8,B7,ED,4D7B 
8790,52, 18,E2,CD,B8,82,D8,B7,374F 
8798,ED,52,2B,2B,7C,FE,FF,28,641E 
87A8,02,B7,C®,AD,E6,80,C@,CD,3A6D 
87A8,7D,87,7D,CD,51,82,37,C9,1C17 
87B0,CD,BD,82,D8,E9,CD,E@,81,51BD 
87B8,24,29,81,7C,B5,C8,37,E9,BEAF 
87C@,CD,BD,82,D8,22,29,81,37,5401 
87C8,C9,CD,3C,82,2A,29,81,CD,S85B 
87D@,40,82,37,C9,3E,19,21,4D,@D&B 
87D8,01,18,@5,3E,32,21,A7,00,059A 
87E0,CD,68,BC,37,C9,CD,B8,82,6CFE 
87E8,D0,B7,ED,52,3F,D2,CD,A2,5EC@ 
87F0,82,EB,13,4F,71,23,1B,7A,7E18 
87F8,B3,28,F7,37,C9,CD,BD,82,4954 
880@,D0,CD,F4,82,3F ‚D8,CD,2D,4EEF 
8008,85, 11,08,AD,ED,53,2C,81,48ED 


„FE4CB,CA,SSCH 
«3@,CB,77,61B1 
„CD, 1B,89,199B 
„47,CD,62,2F74 
‚FD,23,EB,7ED9 
78, 8A,FD,38B1 


8839, BA,88,CB, 
8838,20,@8,11,, 
8840, 18,BF,11, 

8848, 8A,FD,36,88 
8850,78, 0F ‚BF ‚Bar 


8858,36,20,2C,| ‚78,CD,78,1@4A 
8860 ,8A,CD,AC,, ,9B,CB,77,681D 
8868,20,2@,11,, 47, QF OF ‚1SAD 
8870,0F ‚E6,97,, „BA,EB,78,35CE 
8878,CD,78,8A,CD,AC,89,18,81,62E5 
888@,11,79,81,CD,EB,81,CD,2D,QE83 
8888,82,C9,11,5C,8C,E6,3F,CD,73EB 


8898,D6,40,38,18,11,C3,8D,FE,7FE® 
B8AQ,3C,38,08,D6,68,38,@D,11,1FEB 
SBAB,GE,BF,FE,1C,38,26,CD, 1B,3AD9 
8860,89,C3,81,88,CD,57,8A,C3,7A03 
88B8,01,88,C0,03,89,47,E6,C0,3F48 
88C8,20,17,78,11,C5,84,@F,@F,IFC1 
SECB, OF ‚E6,87,CD,8F ‚BA,78,CD,345D 
8800,78, 8A,EB,CD,AC,89,C3,01,09F3 
88D8,88,11,DD,84,17,17,17,E4,536C 
88E0,03,3D,CD,8F,8A,78,0F,BF,1AS1 
GBEB,OF ‚E6,07,C6,38,FD,77,00,301A 
S8F®,FD,23,FD,36,0@,2C,FD,23,6BE9 
88F8,78,CD,78,8A,EB,CD,AC,89,2D5D 
8980,C3,01,88,7E,23,F5,E5,24,74@C 
8908, 20,81 ,FE,20,36,2E,30,01,2AF9 
8910,77,23,22,2C,81,E1,CD,51,3387 
8918,82,F1,09,EB,47,B7,28,08,64AsC 
8920,23, 7E,FE,60,38,FA,18,F8,1530 
8928, 7E,FE,7B,20,85,CD,57,84,@ED& 
8930, 18,7A,D6,20,86,85,FD,77,@BE9 
8938,00,FD,23,23,85,7E,FE,40,375C 
8948, 350,6A,FE,20,20,F@,FD,77,1CQD 
8948 ,00,FD,23,18,F9,FD,2B,FD,SEB7 
8958,77,08,FD,23,23,7E,FE,68,276C 
8958,30,52,FE,5E,28,44,FE,21,172D 
8968, 28,45,FE,24,28,12,FE,2B,18FF 
8968,28, 1A,FE,48,20,E1,EB,FD,BAEF 
8970,77 ,08,FD,23,C0,03,87,EB,218D 
8978,FD,77,0@,FD,23,EB,CD,03,6FBD 
8980,89, EB, 18,CB,FD,36,08,48,7680 
8988,FD,23,EB,CD,03,89,EB,ES5,64FF 
8990,6F ‚26,00,87,30,02,26,FF,SF4B 


8998,19, FD,75,00,FD,23,7C,E1,3A1D 
87A@,18,AD,CD,11,84,18,AB,CD,SA5D 
87A8,2C,8A, 18, A3,FD, 36,20, 02, SAB@ 
B9BQ,FD,21,A8,AC,CD,30,82,3A,6EA& 
8988, 27,B7,FE,10,38,F6,FD,7E,231C 
89C0 ,08,FD,25,B7,28,2C,FE,42,3@1C 
89C8,29,@F ,FE,2A,28, 1A,FE,20,0A54 
89D8,30,02,3E,25,CD,FE,B1,18,199A 
89D8,E5,FD,sE,@0,FD,66,@1,CD,46BF 
89E0,4C,82,FD,23,FD,23,18,D6, 1092 
89E8,FD,7E,08,CD,51,82,FD,23,6089 
89F0,18,CC,ES,24,20,81,01,98,226E 
89F8,AD,B7 ,ED,42,EB,CD,30,82,4656 
BAQQ,3A,27,87,FE,23,38,F6,0A,QDDE 
SAQ8,CD,F6,81,05,1D,20,F8,D1,4459 
BA1B,C9 ‚ES,26,58,2E,49,CB,41,5D05 
8A18,20,04,26,59,CB,47,20,04,14E8 
8A28,26,4C ,2E,48,FD,75,00,FD,0781 
8A28,23,7C,E1,C9,FD,36,20,28, 1928 
aAS@,FD,23,CD, 11,8A,FD,77,00,69BA 
BA38,FD,23,FE,4C} 28, 16,FD,36,6D94 
8A49,00,25,FD,23,EB,CD,M3,89, 1383 
BA48,EB,FD, 36,80, 2A,FD,23,FD,4E1F 
8A58,77,00,F0,23,3E,29,C9,06,24D0 
BAS8,04,FD,36,00,3F,FD,23,10,39DA 
aR6B,F8,C9,F5,C5,06,03, 1A, FD,SC45 
8A48,77,00,13,FD,23,10,F7,FD,367B 
8A70,36,00,20,FD,25,C1,F1,C9,13E7 
8478, E6,07,DD,21,A5,84,32,83,4097 
BAG@,8A,DD,7E,@@,FE,21,CC,20,7540 
BAB8,8A,FD,77,00,FD,23,C9,B7 ,72E1 
8490,28,06,13,13,13,3D,20,FA,1604 
8498,CD,62,84,FD,36,00,20,FD,619D 
BAAB,23,C9,4C,44,20,42,43,44,2ECA 
BAAB,4S,48,40,21,41,41,44,44,30D@ 
OAB2,A1,44,43,53,95,42,53,42,3F94 
SABB,43,41,4E,44,58,4F ‚52, 4F ‚3657 
BACB 52, 20,43,50, 20,52, 40,43, 20F3 
SACB,52,52,43,52,40,20,52,52,32D& 
BADQ,20,53,40,41,53,52,41,53,0A51 
SADB,4C,4C,53,52,40,42,49,54, 39EE 
SAEQ,52,45,53,53,45,54,6E,AF ‚34FB 
BAE8,50,6C,44,20,42,43,20,40,3084 
SAFQ,6C,44,20,28,42,43,29,20,22E2 
BAFB,41,69,4E,43,20,42,43,69,37D7 
3500 ,46.,43,20,42,64,45,43,20,3572 
9508, 42,6C,44,20,42,20,24,72,3206 
8610,4C,43,41,65,58,20,41,46,3A34 
8B18,2C,41,46,27,61,44,44,20, 0640 
9B20 ,5E,20,42,43,6C,44,20,41,2AQ1 
8B28,2C,28,42,43,29,64,45,43,1D61 
8830,20,42,43,69,4E,43,20,43,0DOF 
8638,64,45,43,20,43,60,44,20,2A2@ 
8540,43,20,2A,72,52,43,41,64,259A 
9648, 4A,4E ‚5A, 20,2B,6C,44,20,3F8@ 
8550,44,45,2C,40,6C,44,20,28,30D8 
8B58,44,45,27,2C,41,69,4E,43,37D3 
8B60,20,44,45,69,4E,43,20,44,0C48 
@B68,44,45,43,20,44,6C,44,20,2A18 
8870,44 ,2C,2A,72,4C,41,6R,52,2882 
8578,20,25,61,44,44,20,5E,2C, 1090 
9590,44,45,6C,44,20,41,20,28, 3AF4 
8598,44,45,29,64,45,43,20,44,3300 
8B90,45,69,4E,43,20,45,64,45,35A9 
8698,43,20,45,6C,44,20,45,2C,25E6 
BBAQ,2A,72,52,41,64R,52,20,4E ‚OSC6 
8BAB,SA,2C,2B,6C,44,20,5E,2C,279@ 
SBBQ,40,6C,44,20,28,40,29,2C,31BE 
9BB8,5E,69,4E,43,20,5E,49,4E, 3854 
SBCQ,43,20,49,64,45,43,20,48,25EC 
8BC8,60,44,20,48,20,24,64,41,26C1 
8BD@,41,64,92,20,5A,2C,2B,61,3017 
@8D8,44,44,20,5E,2C,5E,60,44,3264 
SBEQ,20,3E,2C,28,49,29,64,45,02A9 
BBEB,43,2@,5E,69,4E,43,20,4C,27AQ 
BBF@,64,45,43,20,4C,6C,44,20,2A58 
SBF8,AC,2C,24,63,50,A0,6A,52,2D46 
ECQQ,20,4E,43,2C,2B,60,44,20,2960 
8C08,53,50,2C,40,4C,44,20,28,3E18 
8C10,40,29,2C,41,69,4E,43,20, 2906 
@C18,53,50,67,4E,43,20,21,44,364FE 
8C20,45,43,20,21,60,44,20,21,5641 
8C28,20,2A,73,43,46,44,52,20,1SCC 
8C30,43,2C,2B,61,44,44,20,5E ‚2ADE 
8C38,20,53,50,60,44,20,41,2C,@CQE 
8C40,28,40,29,64,45,43,20,53,0457 
8C48,50,69,4E,43,20,41,64,45,3F39 
8C5@,43,28,41,6C,44,20,41,2C,256E 
8C58,2A,63,43,46,72,45,54,20,03CC 
BC60,4E,54,7@,4F ,50,20,42,43,39E7 
SC6B,&4A,50,20,4E,50,20,40,64,236A 
8C70,58,20,40,63,41,4C,40,20,2DBQ 


Listing 1. Für Sonderheft-Stamm- 
leser ein alter Bekannter: 
Der CPC-Monitor »Smon« 


WW.HOMESOMP! 


23 


Die Schneider-Sonderhefte 
von Happy-Compufter: 
eine runde he 


SONDERHEFT 02/85: SCHNEIDER | 
Eins Fülle wertvoller Beiträge und 
lstings für ale Schneider-Annendk 


e Nertneirh 1, cm m 
NER Eee an 
Er a ramm-Lstings. 
COMPUTER = 


— 
SONDERHEFT 04/86: SCHHEIDER 3 
Eine Erweiterung Hr alle Schneider: 

er, Super-FrogrammLisings und 
grober EinsieigerTel, 


A eu Dr 
c UTE : 
SONDERHI IEIDER 
Bm 1er, sammins 
Wieser viele Hilesiellungen und kurse. 


a 
SONDERHEFT 13/86: SCHNEIDER & 
Neue a BSECRE Und Grund: 
iegendes für PC-Umsteiger. 


SONDERHEFT 16/86: SCHNEIDER 7 
Das StpacPibaramın CRC, Ciga-CAD» 
Dreidimensionales Zeichnen plus 
animierte Grafik. 


Nutzen Sie die Bestellmöglichkeit 
der Schneider-Sonderhefte 1 bis 7 mit der 
eingehefteten Zahlkarte im vorliegenden Sonderheft 


von »Happy-Computer«! 
WWW .HOMEGOMPUTERWORLB. COM 


8C78,4E,5A,2C,49,78,55,53,48,323A 
8C80,20,42,45,61,44,44,28,2A BDAR 
8C88,72,53,54,20,38,72,45,54,25D6 
8C98,20,5A,72,45,54,6A,58,2@,QFiS 
8C98,59,20,40,78,63,41,40,40,2B48 
BCAB,20,54,20,48,63,41,4C,40,85c8 
SCAB,20,40,61,44,43,20,24,72,GADE 
SCR@,53,54,20,31,72,45,54,20,399C 
SCB8,4E,43,70,4F ,50,20,44,45,3FFD 
8CC0,60,50,20,4£,43,2C,48,6F „23A7 
8008,55,54,28,2A,20,41,63,41,3903 
8CDQ,4C,4C,20,4E,43,20,48,70,5758 
8CD8,53,53,48,20,44,45,73,55, 3607 
SCE@,42,2@,2A,72,53,54,20,32,28DA 
SCEB,72,45,54,20,43,65,58,58,23A2 
SCF@,64,59,20,43,2C,42,69 ,4E 2100 
SCF8,20,41,20,2A,63,41,4C,40,2548 
8D@0,20,47,2C,49,78,73,42,43, 0588 
2099, 20,24,72,53,54,20,33,72,13C4 
8D10,45,54,20,50,4F ,7@,4F ‚50,35F6 
8018,20, 5E,64,5@,20,50,4F ,2C,0F32 
3020, 40,65,58,20,28,53,58,29,38C5 
8D29,2C,5E,63,41,4C,4C,20,50, 8ABQ 
8030, AF ‚20,40,70,55,53.48,20, 2004 
8038,5E,61,4E,44, 20,24, 72,53, 3BDF 
8040,54,28,34,72,45,54,20,50,20C8 
8048, 45,64,50,20,28,5E,29,6A,30@8 
8n50,59,20,50,45,2C,48,65,58,2EA2 
8058, 20,44, 45,2C,48,4C,63,41,0897 
8060,4C.,40,20,50,45,20,40,78,3668 
@D48, 78,4# ,52,20,24,72,53,54,27EA 
8070,29,55,72,45,54,28,50,70, 154 
8D78,4F ,50,20,41,46,6A,50,20, 3058 
8D80,50,2C,42,64,49,63,41,4C,2E4A 
8088, 4C,20,50,2C,48,70,55,53,25F9 
8070,48,2@,41,46,6F ,52,20,24,221A 
3D98,72,53,54,20,36,72,45,54,2SE6 
SDAQ,20,4D,6C,44,20,53,50,2C 2448 
8DA8, SE, 64,50, 20,4D,2C,40,65,3FED 
8DBQ,49,63,41,4C,4C,20,4D,2C,32F& 
SDBG,40,78,65,50,20,24,72,53,367F 
90CQ,54,20,37,69,4E,20,42,2C,2028 
8008, 28,43,29,6F ,55,54,20,28,8488 
80D@,43,29,20,42,73,42,43,20, 2056 
9DD8,48,40,2C,42,43,6C,44,22,35AB 
SDEB,28,48,29,20,42,43,6E,45,2865 
8DEB,47,72,45,54,4E,69,4D,20,318E 
BDF®,30,60,44,20,49,2C,41,69,0B93 
8DF8,4E,28,43,20,28,43,29,6F ,25D1 
BE@B,55,54,20,28,43,29,2C0,43,3B47 
BE@B,61,44,43,20,42,43,6C,44 2868 
8E19,20,42,43,2C,28,40,29,7B,0n47 
8E18,72,45,54,49,7B,60,44,20,249@ 
BE20,52,2C,41,69,4E,20,44,2C,2EE4 
E28, 28,43,29,6F ,55,54,20,28,0488 
8E3@,43,29,20,44,73,42,43,20,2836 
BE3B,48,4C,20,44,45,6C,44,20,33F@ 
8E48,28,40,29,2C,44,45,7B,78,0857 
8E48,69,4D,20,31,60,44,29,41,22A1 
BES®,2C,49,69,4E,20,45,20,28,8DE4 
9ESB,43,29,4F ,55,54,20,28,45,2143 
BE6B,29,20,45,61,44,43,20,48,1214 
8E68,4C,2C,44,45,6C,44,20,44,23A4 
BE7®,45,20,28,48,29,7B,7B,69,28BB 
8E78,4D,20,32,6C,44,28,41,2C,2CBE 
BEBB,52,67,4E,28,48,20,28,43,3A63 
888, 29,6F,55,54,20,28,43,27,B1AF 
BE9B,2C,48,73,42,43,20,48,4C;8C84 
8E98,2C,48,AC,6C,44,20,28,40,29F@ 
SEAB,29,2C,48,4C,7B,7B,7B,72,10F® 
BEAB,52,44,69,4E,20,4C,20,28,318@ 
SEB®,43,27,6F ,55,54,28,28,43,2143 
SEBB,29,2C,4C,61,44,43,20,48,1334 
SECB,AC,20,48,4C,6C,44,28,48,22B8 
SEC8,AC,2C,28,40,29,7B,7B,7B,2C29 
BEDQ,72,4C,44,7B,78,73,42,43,27E3 
GEDB,20,48,4C,2C,53,50,60,44,BAB4 
SEEQ,20,28,49,29,2C,53,50,7B,1867 
SEEB,7B,7B,7B,69,4E,20,41,2C,28EE 
GEF@,28,43,29,6F ‚35,54, 20,28, 8488 
BEFB,43,29,2C,41,61,44,43,20,28EE 
BF@Q,48,40,2C,53,50,60,44,20, 3228 
8F@8,53,58,2C,28,40,27,6C,44,38B8 
8F10,49,63,50,49,69,4E,49,6F „385D 
8F18,55,54,49,7B,7B,7B,7B,6C,33BE 
8F20,44,44,63,90,44,69,48,44,393C 
@F28,6F ,55,54,44,7B,7B,7B,7B,2EB9 
8F3B,6C,44,49,52,63,50,49 ,52,2998 
8FSB,69,4E,49,52,6F,54,49,52,29E8 
8F4Q,76,7B,7B,7B,6C,44,44,52,2934 
8F48,63,50,44,52,69,4E,44,52, 2AgA 
BFS@,6F ,54,44,52,7B,7B,7B,7B,2D99 
SFS8,75,20,08,00,20,00,00,00,3DEB 


Listing. 1. Der CPC-Monitor »>Smons 
(Schluß) 


9002,CD,63,76,37,[7,20,20,22,6958 
7028,22,2@,20,2@,20,20,22,28,iFE@ 
9018,20,20,20,28,20,28,28,28,1FE® 
7018,20,20,20,20,20,2@,2@,31,1FF1 
9020, 2E,27,28,58,72,6F,67,72,1ED@ 
9@28,61,6D,6D,69,65,72,65,6£ ,22B4 
9032 ,BA,2D,2A,0D,2@,22,28,20,2630 
9038,20,20,20,20,20,28,28,2@,1FEQ 
9920,20,20,20,20,20,20,28,2@,1FE@ 
9@42,20,28,20,28,20,20,52,2E,1FCA 
9058,27,20,40,65,73,65,6E,@A,118A 
9058,2D,@A,0D,28,20,20,28,20,0630 
9260, 20,28,28,20,20,20,20,22, 1FE® 
7068,20,28,20,2@,20,28,20,2@,1FE® 
9@78,20,20,20,20,28,33,2E,29,1FB9 
9978,20,56,65,72,67,6C,65,69 ,0C2B 
9088,63,68,65,6E,2A,@D,@N,@D,21BD 
9258, 20,28, 20,20,20,20,28,20,1FE@ 
9098 ,20,29,28,20,20,20,28,2@,1FEB 
9098,20,20,28,22,20,20,20,2®, FE 
FOAB,20,20,54,2E,29,28,48,61,1D57 
9@AB,75,70,74,&D,65,6E,75,65,2CCF 
FOBB,2A,0D,@R,0D,20,20,28,20,0630 


90B8,20,20,20,28,20,20,20,22,1FEQ 
90C0,20,28,20,28,20,20,28,20,1FEB 
92C8,20,20,20,20,2@,20,35,2E,1FC4 
9208,29,20,45,6£,64,65,2@,20,1014 
9QD8 ,2A,@D,24,0D,20,22,28,20,0730 
90ED,20,20,20,20,20,28,28,2A,ıFER 
9GEB,2A,2A,2A,2A,2A,20,20,20,19D8 
9QF8,20,20,45,5@,52,4F ,4D,2@,16B& 
90F8,20,20,5@,52,4F,47,52,41,1221 
91@2,4D,4D,45,52,28,28,56,65,3987 
9188,72,73,67,6F ,6E,2@,31,2E,2DAC 
9118,30,20,20,28,20,2A,2A,2A,17D& 
9118,2A,2A,@A,0D,@A,@D,20,2@,1E14 
9129,20,20,20,20,20,20,22,2@,1FEO 
9128,20,20,20,20,20,20,20,20,1FE® 
9130,20,28,20,20,A4,28,31,37,1BFB 
9158,38,37,20,62,79,28,58,65,1B6D 
9148,74,65,72,20,42,75,65,6£,2C60 
9148,64,67,65,6E,73,28,@A,@D, 2281 
7158,04,00,20,28,20,20,28,20,21AB 
9158,20,20,20,20,5F,5F ,5F ‚SF ,1D65 


160,5 ‚SF ,SF,SF,SF, 
9148,5F ,5F,5F,5F,5F, 
9178,56 „SF ,5F,5F,5F, 

9178,5F ,5F,5F,5F,5F, 

9180 ,5F „SF ,5F,3F,5F, 

9188,5F ,5F,5F „SF ,5F,5F 
9190,2A,0D,@A,@D,2A,0D,20,20,0774 
9178,20,20,20,20,28,20,20,2@,1FE@ 


91AB,20,28,28,20,22,28,28,53,1F95 
P1AB,69,65,20,6B,6F ,65,6E,6E ,2D2E 
F1B0,65,6E,28,7A,77,69,73,63,2839 
91B8,68,65,6E ,28,35,20,54,79,2379 
91C0,78,65,6£,28,77,61,65,68,2C1E 
91C8,6C,65,6E,21,@4,@0D,BA,0D,2BED 
91D8,20,28,20,20,28,20,20,20,1FEB 
91D8,28,28,20,28,2@,20,28,20,1FE® 
N1EB,20,28,2@,28,31,2E,29,28,1F42 
91E8,20,44,61,73,20,28,38,2D,QBCD 
91F0,48,42,79,74,65,2D,45,58,3E26 
91F8,52,4F,4D,20,28,32,37,36,30F@ 
9200 ,34,20,84,@D,BA,@D,22,20,1394 
9298,20,28,20,20,20,20,20,20,1FEB 
9210,20,28,20,28,20,28,20,28,1FE® 
9218,20,28,32,2E,27,20,2@,44, 1D&C 
9220,61 ,73,20,31,3&,2D,4B,42, 2488 
9228,79,74,65,2D,45,58,52,4F ‚2073 
9238,4D,20,32,37,31,32,38,@A,2ABA 
9238,2D,@4,02D,20,20,28,20,20,064@ 
9240, 20,20,20,28,20,20,20,20,1FEB 
9248,20,20,20,20,20,20,20,33,1FF3 
9250 ,2E,29,20,28,44,61,73,28,1822 
9258,31,36,2D,4B,42,79,74,65,1769 
9268 ,2D,45,5@,52,4F ,4D,20,32,GEDE 
9268,37,31,32,38,41,20,@4,@D,1@91 
9270,04,8D,20,22,22,28,20,20,21n@ 
9278,20,28,20,28,20,28,2@,28,1FE® 
9288,20,28,20,28,20,20,34,2E,1FC& 
9288,29,28,26,44,61,73,2@,33,1E77 
9729@,32,2D,4B,42,79,74,65,2D,1DFF 
9298,45,58,52,4F,4D,28,32,37,3AGB 
2AB,32,35,36,41,@4,0D,@A,@D,15ED 
92A8,20,28,20,28,22,20,28,20,1FEB 
92B0,28,22,20,28,28,28,20,22,1FEB 
9283,20,28,20,28,35,2E,29,2@,1F62 
92C0,20,44 ,61,73,2@,33,32,2D,2B95 
92C8,4B,32,79,74,65,2D,45,58,3E2& 
92D8,52,4F ,4D,28,32,37,32,35,387D 
9208,36, 84,@D,2A,@D,28,28,28, 18@8 
92E8,2@,20,20,28,22,28,20,20,1FE@ 
72E8,28,28,20,28,20,20,28,28,1FEB 
92F8,20,28,28,20,20,20,20,2@,1FE® 
92F8,20,20,2@,28,20,28,6F ‚44, 1FS# 


9302 ,65,72,20,04,@D,0A,@D,20,2ADA 
7328,20,20,20,20,20,20,20,20,1FEQ 
7318,20,20,20,20,20,20,20,20,1FE® 
'518,20,20,20,36,2E,29,20,20, 1ED4 
9328,41 ,75,66,72,75,66,20,64,3434 
9328,65,73,20,43,50,43,2D,AD,2DEB 
9330,6F ,6E,69,74,6F,72,73,20,2416 
9338,22,53,4D,4F ,4E,22,2E,QA, BASE 
9340,0D,24,2D,08,2D,04,28,20,0582 
9248,20, 28,20,20,20,20,20,20,1FE® 
9350,20,20,20,20,20,20,20,20,1FEB 
9358,20,20,20,20,20,20,42,49,1F&D 
9360,74,74,65,20,77,61,65,68,2B3E 
9368,6C,63,6E,20,53,69,65,21,2357 
93570,20,00,22,20,20,20,20,28,17E0 
9378,20,20,20,20,20,20,20,53,1F93 
9780,67,65,20,68,61,62,65,6E,2Da4 
7388,20,64,65,6E,20,38,2D,4B,02B1 
9390,42,79,74,65,2D,54,77,70,372A 
9398,20,32,37,36,34,20,61,75,1897 
95AB,73,67,65,77,61,65,68,6C,29B8 
9348,74, 2E,@4,0D,20,20,20,20,31F@ 
93B8,20,20,20,28,20,20,20,20,1FE® 
7568,20, 5F ‚SF SF ‚SF ,5F,SF ‚SF ‚@ABS 
9SCB „SF „SF ‚SF „SF ‚SF ,5F,5F,5F 83535 
93CB,SF „SF ‚SF ,SF,SF,SF,SF,SF,3535 
9308,5F ‚SF SF „SF ,SF,SF,SF,SF,3535 
9308,56 ,5F ,5F ,5F ‚SF SF ,SF ‚SF ‚3935 
93EB,SF „SF SF ,5F,QA,0D,OR,@D,3562D 
9528, 0A,@D,2A,aD,@A,@D,20,20,0794 
93F0,20,20,20,20,20,20,20,20,1FEQ 
9578, 20,20,20,20,20,53,69,65, 1EFB 
9480,29,68,61,62,65,6E,20,64,82B4 
9408,65,6E,20,31,36,2D,4B,42,2FCQ 
9418,79,74,65,2D,54,79,70,20,2074 
9418,32,37,31,32,38,20,61,75,1037 
9428,73,67,65,77,61,65,68,40,29B2 
9428,74,2E,04,0D,20,20,20,20,31F® 
9450, 20,20,20,20,21 
9438, 20,5F ,5F,5F,5F, 
9440 ,5F „SF „SF „SF ‚SF ‚SF SF 356 33535 
9448 ,5F „SF ,5F ,5F,5F ,SF,5F ,5F ‚3535 
9450 ,5F „SF „SF „SF ‚SF ‚SF SF ,SF,3535 
9458,58 ,5F ‚SF ,5F ‚SF ‚SF ,SF,5F,3535 
9468 ,5F „SF „SF „SF ‚5F,5F ‚QA,@D,3SCD 
9468 ,0A,@D,@A,@D,@A,@D,BA,QD,@7AD 
97470,00,20,20,20,20,20,20,20,0FE@ 
9478,20,20,20,20,20,20,53,69, 1F4F 
9480,65,28,68,61,62,65,6E,28,33E8 
9488,64 ,65,6E,20,33,32,2D,4B,25C1 
7498,42,79,74,65,2D,54,79,70,372A 
9498,20,32,37,32,35,36,41,20, 1892 
94AB,61,75,73,67,65,77,61,65,2783 
F4AB,68,6C,74,2E,@A,@D,20,20,2364 
9420,20,20,20,28,20,20,20,20,1FEd 
7488,20, 20,20,5F,5F ,5F,5F,SF,1A95 
94C8 ‚SF „SF ‚SF „SF SF „SF ,SF,SF 43535 
94C8,SF ‚SF ‚SF ,SF ‚SF ,SF,Sf,SF,3535 
9408 ,5F „SF „SF ‚SF ,5F,SF,SF „SF ,3535 
9408 ,5F „SF ,5F „SF ,5F ‚SF ,SF SF ‚3535 
94E0 ,5F „SF ‚SF SF „SF „SF ,SF,SF ‚3535 
94E8,0A,@D,8A,2D,@A,@D,@A,QD,@7AD 
74FB,0A,2D,20,28,20,20,20,20,B5AB 
94F8,20,20,20,20,20,20,20,20,1FE@ 
9508,53,67,65,20,68,61,62,65,3F05 
95@8,6E,20,64,65,6E,20,31,36,3674 
9518,20,4B,42,79,74,65,2D,54,@9AA 
9518,79,70,20,32,37,31,32,28,2480 
9520,41,28,61,75,73,67,65,77,2149 
9528,61,65,68,6C,74,2E,@A,@D,21@1 
9530,20, 20,22,20,20,20,28,20,1FEB 
9538,20, 20,20,20,20,5F,5F,5F,1E9D 
9540 ,3° ,5F ,5F „SF ‚SF ‚SF, SF „SF ‚3535 
9548, 5F SF ,5F,5F ‚SF ,SF,SF ‚SF 33535 
9558 ,5F ,5F ‚SF „SF ‚SF ‚SF ,SF 55F 33535 
9558 ,5F ‚SF ,5F,SF,SF,SF,SF,5F,3535 
9560,58 ,5F ,5F „SF ‚SF ‚SF ,5F „SF ,3535 
9568,5F ,5F ‚0A, @D,@A,@D,@A,0D,S9AD 
9572, 2R,@D,2A,2D,00,20,20,22,8730 
9578,20,20,20,20,20,20,20,20,1FEQ 
9980,20,20,57,69,65,20,68,61,1769 
9588,62,65,6E,20,44,65,6E,20,25C08 
9570,33,32,2D,4B,42,79,74,65,1769 
9598,20,54,79,70,20,32,37,32,B434 
FSAB,35,36,20,61,75,73,67,65, 17DF 
95A8,77,61,65,68,6C,74,2E,BA,2B86 
9SBB,0D,28,20,20,20,28,20,28,8760 
9558, 20,20,20,28,20,20,5F,5F,1F61 
9500 ,5F ‚SF ‚SF SF ,5F,SF,SF,SF,3535 
95C8,5F ‚SF ,SF ‚SF ,SF,SF,SF,SF,3535 


Listing 2. hexadezimalen Werte 
von »Eprom« (Eingabe mit dem Pro- 
gramm »CPC«) 


AARB2 
KCONIFUTE 


WWW .HOMEGOMP! 


25 


95D0,5F „5F ‚SF „56 ,5F „SF SF ,5F, 33355 
9508 ,5F ‚SF ‚SF ‚SF ‚SF ,SF,SF,SF „3533 
| 9SEB,SF ‚SF ‚SF Sf ‚SF ‚SF „SF ‚SF 3535 
9SEB,SF ‚SF ‚SF ‚@A,@D,@A,@D,04,3350 
95F@,OD,OA,2D,OA,0D,28,80,C5,B4AE 
'95F8,44,90,86,04,00,46,44,00, 131@ 
9600 ,26,24,2D,2A,52,41,4D,41,004F 
J6Qd,4E,46,41,4E,47,20,2D,20,3882 
9610,52,41,4D,45,4£,44,45,20,377A 


9668,CD,, ee, BC,21,DD,98,CD,89,752B 
9670,96,21,97,91,CD,89,76,21,5DFi 
9678,44, 93,CD,89,96,CD,28,99, 1BD 
9680 ,CD,5A,BB,32,79,97,03,93,54C1 
9688,96, 7E,FE,@8,CD,SA,BB,23,4015 
9690, 20,F7,C9,FE,31,28,19,FE,SAEA 
9698, 32,28,75,FE,33,28,31,FE,13E4 
96AB,34 ,CA,3@,97 ,FE,35,CA,F@,21B@ 
96AB, 96, FE,36,28,CA,C3,78,97,757D 
96BQ,3E,82,CD,BE,BC,21,DD,92,828E 
96B8,CD,87,96,21,72,93,CD,89,54DF 
96C0,76,21,05,7@,CD,89,76,21,4FAi 
96CB,F6,95,CD,68,97,03,58,97,4663 
| 96D8,3E,02,CD,BE,BC,21,DD,70,028E 
96D8,CD,89,96,21,F3,74,CD,89,5@CB 
96EB,76,21,05,78,CD,89,76,21,4FAl 
96E8,F9,95,CD,60,97,03,58,97,41E3 
@EEB SE „2,CD BE »BC,21,D0, 98, @28E 

/6F8,CD,89,96,21,75,95,C0,89,54FF 


sran. ‚76 ,21,05,9@,CD,89,96,21,4FAi 


|CD,BE,BC,21,DD, 98,02€ 
9738,C0,89,96,21,71,94,CD,89,54DB 


9740 ,96,21,05,78,CD,89,96,21,4FAi 
9748, FF ,95,CD,60,97,03,30,97,42E3 
9758,F5,21,44,93,0D,89,96,F1,76E1 
9758,CD,28,97,CD,5A,BB,18,63,731F 
9768,11 ,6C,77 ,06,83,7E,12,23,DBE7 
9768,13,18,FA,07,20,00,00,08, 1E50 
2778,00,28,20,00,20,00,28,00,2000 
9778,00,08,00,3A,@0,80,FE,31,@@6D 
9780, 28,87 ,21,8C,77,CD,89,76,1F28 
9788,C9,C3,00,80,@C,42,69,74,5DBE 
9798,74,65,20,4D,6F ‚6E,69,74,21F& 
9798,6F ,72,20,6E,61,63,68,6C,2BD8 
9708,61 ,64,65,6E,20,75,6E,64,23AC 
97AB,20,45,70,72,6F ,6D,60,65,@Ai3 
9780,72,20,6) 5,20,73,74,392A 
9788,61,72,74,65,6E,0@,Di,F1,26F3 
97C0,03,58,97,FE,30,CA,58,97,6AiF 
97C8,FE,34,CA,63,96,FE,35,C8,6A9A 
97D8,D2,58,97,F5,FE,31,20,05,67C1 
9708,21,02,96,18,03,21,1A,96,037E 
97E8,C0,89,98,CD,78,99,D2,BF ,SaöF 
97E8,97,B7,ED,52,23,22,71,97,7F25 
97F0,22,73,97,F1,F5,D5,FE,31,15@1 
97F6, 20,05, 21,36,96,18,05,21,12F7 
9800,47 ,96,CD,89,76,CD,7D,99,18D7 
9808,30,B4,34,79,77,FE,34,38,32C8 
9818,22,D1,F1,FE,31,F5,D5,20,3756 
9818,@8,CB,74,28,16,CB,B4,18,382C 
9820,86,CB,72,28,@E,CB,B2,E5,SFDD 
9828, 21,6C,97,96,83,CB,FE,23,1BEB 
9830,10, FB,E1,D1,EB,86,F8,F1,21Bl 
9838, FE,33,CA,AB,97,FE,32,CA,67AE 
9840 ‚AF ‚99, FE,31,02,58,97,EB,6B85 
9848,36 ,85,32,&F ‚97,22,75,97,1ABD 
9858 ,ED,53,77,97,2A,71,97,7D,6417 
9858, B4,CA,ED,99,11,20,01,ED,7CD7 
9860,52, 7B,22,71,97,38,87,15,30F3 
9848 ,ED,53,71,97,24,7D,ED,47,6459 
9870,87 ,28,01,EB,22,73,97,2A,5CC8 
9878,75,97,ED,5B,77,97,CB,F4,07D& 
9888,CD,D1,99,@0D,3E,FB,CD,14,4242 
9888,99,CD,27,BB,30,05,FE,FC,75C4 
9898,CA,ED,99,D5,34,6D,97,F5,418F 
9898,CD,@5,39,1A,@D,ED,79,BE,7668 
98AB,E2,30,28,06,34,6E,97 ,ED,7ACB 
98AB,79,76,F1,ED,79,23,13,ED,327F 


9BE@,57,3D,ED,47,2@,DE,3D,ED,SFFF 
9868,47 ,CD,14,99,2A,75,97,D1,1AAB 
98C0,CD,E3,97,0A,48,98,3A,6F ,41FB 
98C8,97,3D,32,6F ,97,CA,B?,99,420B 
9eD2,E5,D5,2A,73,97,ED,5B,71,427B 
98D8,97,19,22,71,77,D1,E1,C3,486D 
9BEB,4D,98,3A,6C,97,CD,05,97,061F 
g98EB,@D,ED,48,ED,57,B7,77,28,3AAE 
IBF@,85,1A,B7,37,C0,3F,12,23,16AB 
g8FB,13,E5,2A,73,97,2B,7D,B4,36EA 
9900 ,22,73,97,E1,C9,BE,E1,ED,166F 
9908,61,@3,3C,ED,79,3D,ED,77,3BBF 
9910,0B,ED,69,09,E5,2A,60,77,38BD 
9918,A5,ED,79,EE,04,ED,79,E1,6B87 
9920 ,06,B1,76,10,FD,06,F8,09,2649 
9928,CD,84,BB,CD,@6,BB,FS,CD,5C4B 
9938 ,ED,BB,F1,C9,CD,28,99,FE,7DF4 


9948,C8,D6,30,38,F3,FE,2A,38,504C 
9950,98 ,D6,87,FE,12,30,E9,FE,3E4C 


9998, @F ‚CD, 90,97, F1,E6,QF,FE)2AGG 
99AB ‚BA, 38,02,C6,07,C6,30,CD,BAAD 
99AB,5A,BB,C9,3E,01,18,01,AF,19C5 
9950,ED,47,CB,B4,CD,E3,97,30,7186 
99E8,@F ‚22,6F ,77,21,56,96,CD,QA21 
99C8,89,96,2A,6F ,97,CD,BF,97,64BB 
99CB,3A,6C,97,21,00,40,CD,@S,166F 
9900,99, 3E,80,18,02,3E, 90, BE,5346 
99DB,E3,18,05,34,6C,97 ,BE,E2,7542 
99EB,ED,77,C9,CD,D5,77,CD,E2,7884 
99E8,98,D8,20,FA,C9,CD,C8,77,75D5 
99F8,C3,58,97,FF,BQ,FF,OQ,FF,6B93 


Listing 2. »Eprom« (Schluß) 


Pforten 


zur Hardwarewelt 


ardware-Freaks verschmähen 

beim Programmieren den Um- 

weg über das Betriebssystem, 
wenn sich einzelne Bausteine im 
Computer direkt ansprechen lassen. 
Und Maschinensprache-Programmie- 
rer wissen ohnehin, daß die direkte 
Programmierung über OUT- und IN- 
Befehle viel höhere Geschwindigkei- 
ten zuläßt als der Aufruf der zugehöri- 
gen Betriebssystem-Routinen über 
die Vektoren des CPC. 

Oft ist die unmittelbare Program- 
mierung der Hardware auch der ein- 
zige Weg, um eine gewünschte Funk- 
tion zu verwirklichen. Man denke nur 
an die Bild- und Toneffekte, die einige 
kommerzielle Spielprogramme erzeu- 
gen, indem sie direkt den Video- 
Controller und den Tongenerator des 
CPC programmieren. 

Der CPC enthält an wichtigen 
Hardware-Komponenten den Prozes- 
sor Z-80, der die restliche Hardware 
steuert, das Gate Array, den Video- 
Controller 6845, den Disketten- 


Mit den Assembler-Befehlen 
OUT und IN sowie den Basic- 
Befehlen OUT und INP sind Sie 
in der Lage, die Hardware Ihres 
CPC direkt anzusprechen und 
damit sämtliche Komponenten 
des Computers unmittelbar zu 
steuern (Daten schreiben) und 
zu kontrollieren (Daten lesen). 


Controller 765, den Parallel-Port- 
baustein 8255 und den Tongenerator 
8912. 

Das Programmieren dieser Bau- 
steine ist einfacher, als viele Compu- 
terbesitzer denk Der Speicher 
eines Computers läßt sich verwalten, 
indem man mit dem Assembler-Befehl 
LD oder den Basic-Befehlen POKE 
und PEEK Daten in den Speicher 
schreibt beziehungsweise aus dem 
Speicher liest. Damit der Computer 
weiß, in welche Speicherposition er 
schreiben oder aus welcher Speicher- 


position er lesen soll, müssen Sie bei 
jeder Operation eine Speicheradresse 
angeben. 

Das Programmieren der Computer- 
bausteine erfolgt nach dem gleichen 
Prinzip. Auch hier lassen sich Daten 
schreiben und lesen, indem man die 
Assembler-Befehle OUT und IN bezie- 
hungsweise die Basic-Befehle OUT 
und INP verwendet. Nur muß man In 
diesem Fall zur Adressierung nicht 
eine Speicheradresse, sondern eine 
sogenannte Portadresse angeben. 
Diese Portadresse bestimmt, welcher 
Baustein angesprochen ist. Die Port- 
adressen der einzelnen Bausteine 
sind durch die interne Verdrahtung 
des Computers bereits festgelegt. 

Benutzen Sie beispielsweise in 
Basic den Befehl »OUT &EF00,0«, so 
wird der Wert 0 auf den Drucker- 
anschluß gelegt. Umgekehrt können 
Sie mit dem INP-Befehl den Zustand 
eines Bausteins über eine Port- 
adresse erfragen. Da das Betriebs- 
system des Schneider CPC jedoch die 
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x: Bellebiger Bit-Wert 
Tabelle 1. Die wichtigsten Portadressen des Schneider CPC auf einen Blick 


‚Zahl der (teilweise unsichtbaren) Zeichen pro Zeile -1 
Zahl der tatsächlich angezeigten Zeichen pro Zeile 


TEXX | O111 1111 wa xxx Gate Array 

BCxx | 1011 1100 xxxx xxx Video-Controller 6845 (Adreßregister zur Auswahl eines 
Datenregisters) 

BDxx | ‚1011 1101 xxxx ox 'Video-Controller 6845 (Datenregister, schreiben) Bildschirmmodus 

BFxx | 1011 1111 xxxx wonx Video-Controller 6845 (Datenregister, lesen) Bildschirmmodus. 

DFxx | 1101 1111 xxux uxxx Nummer des ausgewählten Erweiterungs-ROM Bit 1=0 und Bit 0=0: Modus 0 

EFxx | 1110 1111 xxx noxx Druckeranschluß mit Blinken 

FAxx | 1111 0100 xxxx xaxx. Parallel-Portbaustein 8255 (Kanal A) Bit 1=0 und Bit 0=1: Modus 1 

Föxx | 1111 0101 xxxx xxx Parallel-Portbaustein 8255 (Kanal B) Bit 1=1 und Bit 0=0: Modus 2 

Föxx | 11110110 xxxx xxx Parallel-Portbaustein 8255 (Kanal C) Bit 1=1 und Bit 0=1: Modus 0 

F7xx | 1111 0111 xx nxx Parallel-Portbaustein 8255 (Steuerregister) ‚ohne Blinken 

FAZE | 1111 10100111 1110 | Laufwerks-Flipflop (Flipflop = 1: Internes ROM des CPC Unteres ROM (0000 bis SFFF hex) 
deaktiviert) ‚ausschalten (Bit 2=1) 

FB7E | 1111 1011 0111 1110 Disketten-Controller 765 (Statusregister) 

BTE | A111 101mm Amt | Disketton-Controller 765 (Datenregister) ee 


Interrupt-Zähler löschen 
Nicht benutzt 
Registerauswahl 


‚Registerauswahl 

Bit 7=0 und Bit 6=0: Bit 0 bis 5 in 
Farbnummer-Register (PEN) schrei- 
ben ; 


Bit 7=0 und Bit 6=1; Bit 0 bis 5 in 


Rasterzeilen-Position des HSYNC-Signals in CLK-Takten 
(bestimmt horizontale Verschiebung) 


‚Farbwert-Register (INK) schreiben 
Bit 7=1 und Bit 6=0: Bit 0 bis 5 in 


Länge des HSYNC-Impulses in CLK-Takten 


Multifunktions-Register schreiben 


Zahl der (teilweise unsichtbaren) Zeichenzeilen -1 
Feineinstellung für Register 4 in Rasterzeilen 


— 


Bit 7=1 und Bit 6=1: Bit 0 bis 2 zur 
RAM-Konfiguration verwenden (nur 
CPC 6128) \ 


Zahl der tatsächlich angezeigten Zeichenzeilen 


'Zeichenposition des VSYNC-Signals (bestimmt senkrechte Verschiebung) 


Tabelle 2. Auf diese Weise läßt sich 
das Gate Array programmieren 


Zeilensprungmodus (Interlace) ein/aus 
Höhe eines Zeichens in Rasterzeilen 


Da der Z80-Prozessor nur bei den 
Befehlen »OUT (C),Register« und »IN 


Erste Rasterzeile des Cursors 


Register,(C)« die Ein- und Ausgabe 


Letzte Rasterzeile des Cursors 
Bit 0 bis Bit 7 der Startadresse des Bildschirmspeichers 
Bit 8 bis 14 der Startadresse des Bildschirmspeichers 


von 16-Bit-Portadressen erlaubt, dür- 
fen beim CPC ausschließlich diese 
Befehle zur Adressierung der Ports 
verwendet werden. Der Inhalt des B- 


Bit 0 bis Bit 7. der Adresse des Cursors 


Registers bildet jeweils die obere 
Hälfte der Adresse, und die untere, 
meist nicht relevante Hälfte, steht in C. 


15 | 0bis5 | Bit 8 bis Bit 14 der Adresse des Cursors 
16 0 bis 7 | Bit 0 bis Bit 7 der Bildschirmadresse, bei der ein Lichtgriffelimpuls auftrat 
17 Obis 5 | Bit 8 bis Bit 14 der Bildschirmadresse, bei der ein Lichtgriffelimpuls auftrat 


Nur die Register 14 bis 17 können zusätzlich gelesen werden. 
Tabelle 3. Der umfangreiche Registersatz des Video-Controllers 8645 


Baustein gesperrt 
‚Adressierung eines gewünschten Registers über DAO bis DA7 


Eine typische Befehlsfolge zur Pro- 
grammierung eines Bausteins sieht 
folgendermaßen aus: 


ID A,H89 ;Wert laden, der in 
das. Gate Array 
geschrieben werden soll 

1D B,H7F ;Obere Hälfte der 
Portadresse laden 

OUT (C),A ;Wert in das Gate 


Array schreiben 
| Das Ganze läßt sich noch kürzer 


Eingabe eines Wertes in ein zuvor ausgewähltes Register über DAO bis DA7 


‚Auslesen eines Wertes aus einem zuvor gewählten Register über DAO bis DA7 


16-Bit-Register verwendet. 


undeleganter formulieren, indem man 
| LD BC,H7F89 ;Wert und Adresse laden 


Tabelle 5. Vier Betriebsarten kennt der Tongenerator des Schneider CPC 


meisten Portzustände der Bausteine 
gleich nach Ausführung des OUT- 
oder INP-Befehls automatisch zurück- 
setzt, läßt sich unter Basic die ge- 
wünschte Wirkung oft nicht erreichen. 
Besser istes deshalb, die Bausteinein 


cal, 
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Maschinencode beziehungsweise in 
Assemblersprache zu programmieren 
und auszulesen, weil man nur auf die- 
ser Ebene volle Kontrolle über die 
Hardware des Computers erlangen 
kann. 


OUT (C),C  ;Wert in das Gate Array 
schreiben 

Das Einlesen von Betriebszustän- 
den funktioniert auf die gleiche Art und 
Weise, sofern die Hardwarekonfigura- 
tion des CPC das Lesen aus den Port- 
adressen zuläßt. (So läßt sich bei- 
spielsweise ein Wert vom Druckeran- 
schluß einlesen, doch dieser Wert 
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„AASHTON TATE 


WordStar, dBASE 


Ein Bestseller unter den Textverarbeitungs- 
programmen, der Ihnen bildschirmorien- 
tierte Formatierung, deutschen Zeichen- 
satz und DIN-Tastatur sowie integrierte 
Hilfstexte bietet. Mit MailMerge können 
Sie Serienbriefe mit persönlicher Anrede 
an eine beliebige Anzahl von Adressen 
schreiben und auch die Adreßaufkleber 
ausdrucken. 


dBASE Il, das meistverkaufte Programm 
unter den Datenbanksystemen, eröffnet 
Ihnen optimale Möglichkeiten der Daten- 
und Dateihandhabung. Einfach und 
schnell können Datenstrukturen definiert, 
benutzt und geändert werden. Der 
Datenzugriff erfolgt sequentiell oder nach 
frei alles Kriterien, die integrierte 
Kommandosprache ermöglicht den 
Aufbau kompletter Anwendungen wie 
Finanzbuchhaltung, lagerverwoltung, 
Betriebsabrechnung usw. 


702201 


Wenn Sie die zeitraubende manuelle 
Verwaltung tabellarischer Aufstellungen 
mit Bleistift, Radiergummi und Rechen- 
maschine satt haben, dann ist MULTI- 
PLAN, das System zur Bearbeitung 
„elektronischer Datenblätter«, genau 
das Richtige für Sie! Das benutzer- 
freundliche und leistungsfähige Tabellen- 
kalkulationsprogramm kann bei allen 
Analyse- und Planungsberechnungen 
eingesetzt werden. 


Sie erhalten jedes WordStar-, 
dBASE Il- und MULTIPLAN- 
Programm für Ihren Schneider-Com- 
puter oder Commodore 128PC fertig 
angepaßt (Bildschirmsteuerung). 
Jeweils Originalproduktel Jedes 
Programmpaket enthält außerdem ein 
ausführliches Handbuch mit kompakter 
Befehlsübersicht. 


MICRSSO! 


MULI 


Diese Markt& Technik-Softwareprodukte erhalte 


in den Computer-Abteilungen der Kaufhäuser, bei Ihrem Computerhäi 
im Buchhandel oder direkt beim Verlag gegen Vorausk 


-für C/M Computer 


Best.-Nr. 90180, ISBN 3.89090:1808 
WordStar für den Commodore 128PC 
Best.-Nr. 90181, ISBN 3-89090-181-6 
dBASE Il für den Commodore 128PC 
Best.-Nr. 90189, ISBN 3-89090-189-] 
dBASE Il für den Schneider CPC 

Best.-Nr. 90188, ISBN 3-89090-188-3 
MULTIPLAN für den Schneider CPC 
Best.-Nr. MT 835, ISBN 3-89090-186-7 
MUITIPLAN für den Commodore 128PC 
Best.-Nr. MT 836, ISBN 3-89090-189-1 


Schneider CPC 464, CPC 664, 
CPC 6128, Joyce, beliebiger Drucker 
mit Centronics-Schnittstelle. 


Commodore 128/128D, Diskettenlaufwerk, 
80-Zeichen-Monitor, Commodore- 
Drucker oder Drucker mit Centronics- 
AN? Jedes Buch kostet Schnittstelle (ohne zwischengeschaltetes 


aeg 
DM 49,- Übrigens gibt es WordStar, 
‚. (SFr.45,10/ö8 982,20) dBASE und MULTIPLAN auch für 
Erhältlich bei Ihrem Buchhändle. MNDR-ı “Computer. Zu beziehen bei 
Graf Elektronik Systeme GmbH, 
Magnusstraße 13, 8960 Kempten. 


:SOFT. 
dVIULTIPLAN &u::iu sorco rowe2ss 


Ö 
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Markt&zfechnik 


Zeitschriften - Bücher Bestellungen im Ausland bitte an untenstehende Adressen. 
Schweiz; Markt& Technik Vertriebs AG, Kollerstr. 3, CH-6300 Zug, Tel. (042) 415656 
Software - Schulung Österreich: Ueberreuter Media Handels- und Verlagsges. mbH. Alser Str. 24, A-1091 Wien, Tel. (0222) 481538-0 


&xt& Technik Verlag Aktiengesellschaft 
S-Pinsel-Str. 2, 8013 Haar bei München 


EP — 


Der Parallel-Portbaustein 8255 
[on] Funkion 


1 Register des 


Kanal A (Faxx) 


0 | DAOfür Tongenerator 8912 
{ | DA1 für Tongenerator 8912 
‚DA2 für Tongenerator 8912 
'DA3 für Tongenerator 8912 
. DA4 für Tongenerator 8912 

DAS für Tongenerator 8912 

DA6 für Tongenerator 8912 


DAT für Tongenerator 8912 


VSYNC 
(vertikale Video-Synchronisation) 


Lötbrücke LK4 für Heystellercode 


EXP (Erweiterungseinheit übernimmt 
Kontrolle) 
BUSY (Drucker beschäftigt) 


RD DATA 
(Daten vom Kassettenrecorder) 


DO für Tastaturdekoder 
D1 für Tastaturdekoder 
D2 für Tastaturdekoder 


D3 für Tastaturdekoder 


MOTOR 
(Kassettenrecoder-Motor einschalten) 


5 | WRDATA 
(Daten für Kassettenrecoder) 

6 | BC1 (zur Auswahl der Tongenerator- 
Betriebsart) 


7 | BDIR (zur Auswahl der Tongenerator- 
Betriebsart) 


uerregister (F7xx) 
: Kanal C (Bit 0 bis Bit 3) ist 
inal 


! Kanal © (Bit Obis Bit 3) ist 
Eingabekanal 


: Kanal Bist Ausgabekanal 


Kanal Bist Eingabekanal 
Modus O0 
Modus 1 


Kanal € (Bit 4 bis Bit 7) ist 
inal 


Bit 2=0; 
Bit2=1: 


Bit3=0: 


‚Ausgabekaı 

Kanal C (Bit 4 bis Bit 7) ist 
Eingabekanal 

Kanal A ist Ausgabekanal 
Kanal A ist Eingabekanal 
und Bit 6=0: ModusO 
und Bit 6=0: Modus 1 

: Modus O.oder 1 

: Modus 2 


Bit 3=1: 


Bit 4=0: 
Bit 4=1: 


5 | Bit5=0 
Bit5=1 


Bit 0 bis Bit 7 des Fre- 
quenzteilers für Kanal A 


Bit 8.bis 11 des Fre- 
quenzteilers für Kanal A 


Bit 0 bis Bit 7 des Fre- 
quenzteilers für Kanal B 


Bit 8 bis 11 des Fre- 
quenzteilers für Kanal B 


Bit 0 bis Bit 7 des Fre- 
quenzteilers für Kanal C 


Bit 8 bis 11 des Fre- 
quenzteilers für Kanal C 


Frequenzkontrolle des 

Rauschgenerators 

Bit 0=0: Ton-Freigabe 
für Kanal A 

Bit 1=0: Ton-Freigabe 
für Kanal B 

Bit 2=0: Ton-Freigabe 
für Kanal C 

Bit 3=0: Rausch- 
Freigabe für 
Kanal A 

Bit 4=0: Rausch- 
Freigabe für 
Kanal B 

Bit 5=0: Rausch- 
Freigabe für 
Kanal C 

Bit 6=0: Freigabe für 
Datenkanal A 

Nicht'benutzt 


Lautstärke für Kanal A 

Bit 4=1: Hüllkurve be- 
stimmt Lautstär- 
ke für Kanal A 


Lautstärke für Kanal B 
Bit 4=1; Hüllkurve be- 
stimmt Lautstär-| 
ke für Kanal B 
Lautstärke für Kanal C 
Bit 4=1: Hüllkurve be- 
stimmt Lautstär- 
ke für Kanal C 
Bit 0 bis 7 des Hüll- 
kurven-Frequenzteilers 
Bit 8 bis 15 des Hüll- 
kurven-Frequenzteilers 
Bit 0=1: Hüllkurve 
konstant halten 
Bit 1=1: Richtung perio- 
disch wechseln 
Bit 2=0: Absteigende 
Hüllkurve 
Bit 2=1: Aufsteigende 
Hüllkurve 
Bit 3=1: Hüllkurve 
fortführen 
Bit 0 bis 7 des Daten- 
kanals A 


Tabelle 4. Der Parallel-Portbaustein 
8255 ist gleich für mehrere Aufgaben 
verantwortlich 
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Tabelle 6. Durch die Programmierung 
des Tongenerators 8912 lassen sich 
neue akustische Effekte erzielen 


beträgt immer 255, weil der Drucker- 
anschluß nur als Datenausgabe funk- 
tioniert.) 


ID B,FB ;Obere Hälfte der 
Portadresse laden 

ID 'C,7E ;Untere Hälfte der 
Portadresse laden 

IN A,(C) ;Wert aus dem Status- 


register des Disketten- 
Controllers lesen 


oder entsprechend kürzer 


LD BC,FB7E ;Portadresse laden 

IN A,(C) ;Wert aus dem Status- 
register des Disketten- 
Controllers lesen 


Tabelle 1 zeigt die wichtigsten Port- 
adressen des Schneider CPC. Eine 
besondere Rolle spielt das Gate Array, 
das einen Großteil der Funktionen im 
CPC steuert, jedoch nur über eine ein- 
zige Portadresse verfügt. Über diese 
Portadresse lassen sich aber drei 
(beim CPC 6128 vier) Register anspre- 
chen (Tabelle 2). 

Der Video-Controller 6845 ist für 
den Aufbau des Bildschirminhalts 
zuständig. Tabelle 3 zeigt den Regi- 
stersatz dieses Bausteins, der dem 
erfahrenen Programmierer viele 
Wege zur Bildgestaltung (zum Bei- 
spiel ein anderes Bildformat, eine 
andere Bildfrequenz oder die Fähig- 
keit zur Programmierung von Raster- 
interrupts) bietet. 

Der Parallel-Portbaustein 8255 ist 
für Tastatur- und Joystickabfrage, Pro- 
grammierung des Tongenerators, 
Steuerung des Kassettenrecorders 
und des Druckers zuständig. Tabelle 4 
zeigt die Funktionen der einzelnen 
Bits aller drei Kanäle und die Bedeu- 
tung des Steuerregisters. 

Wenn der Modus 0 des 8255 ausge- 
wählt ist, erfolgt die Ein- und Ausgabe 
von Daten unidirektiona ohne 
Handshake-Signale. Befindet sich der 
8255 dagegen im Modus 1, so werden 
zusätzlich Handshake-Signale er- 
zeugt, und arbeitet der 8255 im Modus 
2, so erfolgt die Datenein- und -aus- 
gabe (jedoch nur für Kanal A) bidirek- 
tional im Handshake-Betrieb. Der 
CPC nutzt jedoch ausschließlich den 
Modus 0. 

Wer über den Portbaustein 8255 
den Tongenerator 8912 programmie- 
ren möchte, der kann sich in Tabelle 5 
über die Betriebsarten des Bausteins 
und in Tabelle 6 über den Registersatz 
informieren. 

Auf die Programmierung des 
Disketten-Controllers 765 wird an die- 
ser Stelle nicht eingegangen, da eine 
Beschreibung der komplexen Fähig- 
keiten des 765-Bausteins den Rah- 
men dieses Beitrags sprengen würde. 

(Thomas Bullinger/ma) 


Die Diskette — (k)ein Buch 
mit sieben Siegeln 


In der Zwischenzeit ist die Dis- 
kette wohl das beliebteste Spei- 
chermedium - nicht nur für 
Schneider-Computer. Dazu 
haben nicht zuletzt die CPCs 
664 und 6128 durch ihre von 
vornherein eingebauten Dis- 
ketten-Laufwerke beigetragen. 
Die Dokumentation in den mit- 
gelieferten Handbüchern läßt 
jedoch viele Fragen offen. So 
haben wir die fehlende Informa- 
tion zusammengetragen. 


ie Geschwindigkeit, mit der die 

Diskette ihre Aufgabe erledigt, 

wird nur noch vom Komfort 
ihrer Handhabung überboten. In 
ihrem Preis-Leistungs-Verhältnis 
schlägt die Diskette jedes andere 
Speichermedium. Aber die Entwickler 
bei Amstrad taten einen Fehlgriff, als 
Sie entgegen allen anderen Compu- 
terherstellern, das 3-Zoll- dem 3'%- 
Zoll-Format vorzogen. Da Schneider 
und ihr englischer Partner Amstrad 
also die einzigen Anbieter dieses For- 
mats sind, hat sich der recht hohe Dis- 
kettenpreis leider nicht wesentlich 
nach unten entwickelt. Mitimmernoch 
zirka acht Mark pro Diskette sind diese 
Datenträger zwar im Preis gesunken, 
den Preis einer billigen 5"s-Zoll- 
Diskette von zum Teil nur noch ein bis 
zwei Mark werden sie aber nie errei- 
chen. Diesen Preisvorteil des »älte- 
ren« Formats machten sich Firmen wie 
Vortex und Cumana zunutze, indem 
sie schon bald 5"4-Zoll-Laufwerke für 
die CPC-Serie anboten. Vortex bietet 
alternativ auch Laufwerke im 3%%-Zoll- 
Format an. Disketten mit diesem Maß 
gehen mit den Vorteilen der beiden 
anderen Systeme einen guten Kom- 
promiß ein. Sie liegen preislich ziem- 
lich genau in der Mitte zwischen den 
beiden konkurrierenden Größen, ver- 
fügen (mit den entsprechenden Lauf- 
werken) über dieselbe hohe Speicher- 
kapazität wie die 5"%-Zoll-Disketten, 
bieten aber, ähnlich ihrem 3"%-Zoll- 
Pendant, den besseren Schutz der 
empfindlichen Diskettenoberfläche 
vor mechanischer Unbill. Bild 1 zeigt 
je einen typischen Vertreter der drei 
Diskettentypen. Mittlerweile besitzt 
also ein großer Teil der Schneider- 


Bild 2. Im geöffne- 
ten Controllerge- 
häuse erkennt man 
auf der Platine 
deutlich »Herz« 
und »Gehirn« des 
Controllers: den 
Mikroprozessor 
765 (FDC) und das 
ROM mit dem DOS 


Benutzer ein Diskettenlaufwerk zu sei- 
nem Computer. Leider weiß aber noch 
längst nicht jeder, was in dem »surren- 
den Kasten« genau vor sich geht. Die- 
sem Umstand wollen wir mit unserem 
Beitrag Abhilfe schaffen. Gehören Sie 
schon zu den »alten Hasen«, denen 
man in bezug auf die normale Disket- 
tenhandhabung nichts mehr vorma- 


Bild 1. Die drei für 
CPs erhältlichen 
Diskettenformate: 
3'% Zoll, 3 Zoll, 
und 5'/4 Zoll 


„PD 765 ‚Amsdos-ROM 


Bild 3. Das ge- 
öffnete Laufwerks- 
gehäuse einer 
DDI-1 offenbart das 
Innenleben 


chenkann, sollten Sie auf Seite38 den 
weiterführenden Beitrag studieren. 
Die Diskettenstation besteht im 
wesentlichen aus Mechanik (dem 
Laufwerk), Elektronik (dem Controller) 
und Software, dem Disc-Operating- 
System - kurz»DOS« genannt (Bild 2). 
Das Gehäuse des Schneider 3-Zoll- 
Laufwerks enthält neben dem Lauf- 


Haren Sie sich in dieser Ausgabe von Happy- 
Computer über die großartigen graphischen Fähigkeiten 
des Schneiders CPC. 


Die wichtigsten DIP-Programme haben wir für Sie gete- 
stet. Fortgeschrittene sollten sich den Programmierwett- 
u vormerken, den wir gemeinsam mit Atari veran- 
stalten. 


Wir beleuchten die Speicherlandschaft der nächsten 
Jahrzehnte, untersuchen günstige Harddisks und stellen 
ein CD-Rom vor, auf dem mehrere hundert MByte Public 
Domain-Software gespeichert sind. 


lesen Sie unseren interessanten Erlahrun: sbericht über 
den sensationellen »Mephisto Dallas 68020«. 


Mit unserem Listing »Happy-Packer« können Programme 
für den C64 im Durchschnitt auf weniger als 70 Prozent 
ihrer ursprünglichen länge gekürzt werden, ohne daß 
ein Bit verlorengeht. 
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werk auch das Netzteil zur Versorgung 
des Laufwerks und des Controllers mit 
Strom (Bild 3). Für den Betrieb stellt es 
zwei Spannungen von 12 und 5 Volt 
bereit, mit denen es die Laufwerks- 
elektronik zur Signalaufbereitung und 
Motorsteuerung sowie die zwei Moto- 
ren speist. Einer der beiden Motoren 
läßt die in der steifen Plastikhülle der 
Diskette steckende magnetisierbare 
Scheibe (Bild 4) mit 300 Umdrehun- 
gen pro Minute rotieren. Der zweite 
Motor, ein sogenannter »Schrittmo- 
tor«, dessen Achse sich bei jedem 
Stromimpuls um einen bestimmten 
Winkel dreht, ist in der Lage, Bewe- 
gungen mit großer Wiederholgenauig- 
keit auszuführen. Er bewegt einen 
Schlitten mit dem Schreib-/Lesekopf 
(mit einem Tonkopf im Kassettenrecor- 
der vergleichbar) in Schritten, die klei- 
ner sind als ein halber Millimeter. Die- 
ser Kopf magnetisiert die metallisch 
beschichtete Oberfläche der flexiblen 
Kunststoffolie in bestimmten magneti- 
schen »Mustern«, die beim späteren 
Lesen wieder einen Sinn ergeben. Die 
kleinste Bewegung des Kopfschlittens 
entspricht einer der 40 Spuren 
(Tracks), auf die wir später noch näher 
zu sprechen kommen. 

Ist nun eine 3-Zoll-Diskette im Lauf- 
werk eingerastet, hat sich zuerst beim 
Einführen ihre Schutzabdeckung 
(siehe Bild 1) beiseite geschoben, die 
Drehachse ist im Mittelloch der Dis- 
kette verankert und ein Filz drückt die 
dünne Plastikfolie von oben auf den 


unter ihr liegenden Schreib-/Lese- 
kopf. Daraus ergibtsich, daß die Daten 
immer auf die nach unten gewandte 
Seite der Diskette geschrieben wer- 
den. Istdas Laufwerk in Betrieb, treten 
zwei Lichtschranken (Bild 3) in Aktion. 
Die eine tastet den Schreibschutz der 
Diskette ab, mit der sie sich vor unbe- 
absichtigtem Beschreiben (und damit 
auch Löschen) schützen läßt. Die 
andere erkennt das Indexloch zur Mar- 
kierung einer bestimmten Stellung der 
Diskette. Dort nämlich beginnt der 
erste Sektor jeder Spur. Eine Diskette 
ist also nicht nur in Spuren unterteilt, 
sondern zusätzlich in Sektoren (siehe 
Bild 5). Diese zweite Aufteilung erfolgt 
jedoch nicht mechanisch wie bei den 
Spuren, sondern softwaregesteuert. 
Diese Einteilung der Diskette veran- 
schaulicht der Vergleich mit einer 
Torte: Stellen Sie sich vor, Sie haben 
eine Sahnetorte vor sich. Mit einem 
Messer zerschneiden Sie sie in neun 
gleich große Stücke. Danach ziehen 
Sie mit dem Finger 40 von außen nach 
innen kleiner werdende Kreise. Sie 
haben jetzt - abgesehen von einem 
beschmierten Finger - den Aufbau 
einer Diskette bildlich vor sich. Die 
Kreise entsprechen den Spuren, die 
Stücke den Sektoren. Ein solcher Dis- 
kettensektor beinhaltet bei normaler 
Formatierung 512 Byte beziehungs- 
weise ein halbes KByte. Da auf einer 
Spur jeweils neun Sektoren unterge- 
bracht sind, werden den Sektoren zur 
Unterscheidung beim Formatieren 


fortlaufende Nummern zugeordnet. 
Diese Nummern differieren bei den 
vier Schneider-Formaten. Durch eine 
Überprüfung dieser Sektornummern 
(nach dem englischen Begriff »Identi- 
fier« auch IDs genannt) erkennt das 
DOS bei jedem Diskettenzugriff auto- 
matisch das momentane Format. »For- 
matierung« nennt man die Vorberei- 
tung einer noch nicht benutzten, 
neuen Diskette zum ersten Beschrei- 
ben. Bei der Formatierung erfolgt die 
Einteilung in Spuren und Sektoren. 
Währenddessen wird die Diskette 
aber auch auf mechanische Fehler 
geprüft, die einen späteren Datenver- 
lustzur Folge hätten. Bei der Formatie- 
rung ist zwischen diesen vier Forma- 
ten zu wählen: 


- DATA-Format: Es stellt den größten 
Speicherplatz aller vier Formate 
(178 KByte) zur Verfügung. Von einer 
solchen Diskette läßt sich aber kein 
CPI/M laden (booten). Es besteht aus 
40 Spuren zu je neun Sektoren. Diese 
Sektoren tragen IDs von C1 hexbis C9 
hex. 


- IBM-Format (genauer gesagt IBM 
CPI/M 86 single sided): Es bietet die 
geringste Kapazität (152 KByte), hat 
aber den Vorteil, daß viele andere 
CP/M-Computer dieses Format (zu- 
mindest auf 5%-Zoll-Disketten) verar- 
beiten können. Seine geringe Kapazi- 
täterklärt sich daraus, daß es aufjeder 
seiner 40 Spuren nur acht Sektoren 
mit den Nummern 1 bis 8 bereitstellt. 


Diskette 


Mitnehmer 


Indexloch 


Schreibschutz-Schieber 


Drehrichtung (300 Umin), 


Bild 4. Hinter der stabilen Plastikhülle verbirgt sich neben 
aufwendiger Mechanik die Kunststoffolie der Diskette 


Bild 5. Schematisch betrachtet sieht so die Aufteilung der 
Diskette nach der Formatierung aus 


PUTER) 
WWW .HOMESOMPUTERWORLD.EOM 


33 


- CP/M-(System-)Format: Als meist- 
benutztes Format verfügt es über 
169 KByte Speicherplatz. Ähnlich 
dem DATA-Format besteht auch hier 
jede Spur aus neun Sektoren. Diese 
tragen allerdings IDs von 41 bis 49 
hex. Die gegenüber dem DATA-Format 
fehlenden 9 KByte belegt das Be- 
triebssystem CP/M. Da dieses 
Betriebssystem dem Copyright unter- 
liegt, darfman keine Disketten mit die- 
ser Formatierung weitergeben. Des- 
halb gibt es als Abwandlung des 
Systemformats noch das 

- Vendor-Format (deutsch: »Ver- 
käufer«-Format): Es ist von der Disket- 
tenaufteilung her mit dem CP/M- 
Format identisch, jedoch sind die 
CP/M-Spuren frei. Der Grund dafür 
sind die genannten rechtlichen Pro- 
bleme bei der Weitergabe des CP/M. 

‚Jede Diskette besitzt ein eigenes 
Inhaltsverzeichnis, auch »Directory« 
genannt. Dieses Directory enthält alle 
Informationen, die der Computer 
braucht, um gespeicherte Dateien auf 
der Diskette zu finden und zu laden. 
Der Basic-Befehl CAT zeigt auch dem 
Benutzer die wichtigsten Daten dieses 
Inhaltsverzeichnisses. Für bessere 
Übersicht sorgt dabei die wahlfreie 
Unterteilung des Directory in soge- 
nannte Benutzerbereiche. Der Basic- 
Befehl IUSER schaltet zwischen die- 
sen 16 Bereichen um. 


durch den 
»Daten-Dschungel« 


Je nach Format liegt das Directory 
an verschiedenen Stellen. Im DATA- 
Format ist es auf Spur 0 zu finden, im 
IBM-Format auf Spur 1 undim System- 
Format (einschließlich Vendor- 
Format) auf Spur 2. 

Sehen wir uns nun stellvertretend 
für alle Formate das CPM-Format 
genauer an. Jeder der maximal 
erlaubten 64 Einträge (Dateien) im 
Directory belegt 32 Byte. Daraus 
ergibt sich ein Speicherplatzbedarf 
von 2 KByte pro Directory. Diese 
2 KByte sind übrigens auch dann 
belegt, wenn nur eine oder noch gar 
keine Datei auf der Diskette steht. Der 
erste Directory-Eintrag beginnt am 
Anfang des ersten Sektors der 
Directory-Spur. Bild 6 zeigt zwei typi- 
sche Directory-Einträge als 
Bildschirm-Ausschnitt während der 
‚Arbeit mit einem Disketten-Editor. Die 
Bytes eines Eintrags (siehe auch 
Tabelle 1) sind wie folgt codiert: 

Byte 0: Die Nummer des Benutzer- 
bereichs, unter der der Eintrag beim 
Befehl CAT oder DIR angezeigt wird. 
Ein Wert von E5 hex (wie im zweiten 
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Dateiname mit 
Extension 


20 En 20 om 
49 4D 4F 4E 20 42 
2B 2\2D 00 20 an ao pa 2a 


Nummern der 
belegten Blöcke 


Zahl der belegten 
Regords 


2a 00 
20 oo a0 
41 4B 00 99 20 ın 
20 2n ao ao vo om 


-MINIMON BIN. ..- 


Bild 6. Der Ausschnitt zeigt zwei Einträge einer beispielhaften Directory 


Benutzer-Nummer 


aaao 
aoın aa 06 
aa2a aa aa 


\ 


Dateiname mit Extension 
(wird beim Umbenennen nicht geändert) 


Länge 


00 va ca am 


„MINIMON BIN 


22 00 ae\an oo 20 
c® 13 1865 1a FS 


Startadresse 


Bild 7. Diese Informationen finden Sie (und das DOS) im Datei-Header 


Eintrag in der dritten Zeile von Bild 6) 
sorgt dafür, daß der Computer die 
Datei als gelöscht betrachtet und er 
die durch sie belegten Blöcke der Dis- 
kette überschreiben darf. Hat man 
also eine Diskette mit »IERA,” *.*”« 
gelöscht, sind keineswegs Daten ver- 
loren; die durch Programme belegten 
Sektoren sind nur im Directory als 
überschreibbar deklariert. Deshalb ist 
die versehentliche Eingabe des 
Löschbefehls auch nicht tragisch, 
denn durch einfache Änderung dieses 
Bytes (mit einem Disketten- 
Monitorprogramm) sind die »gelösch- 
ten« Dateien wieder zum »Leben« zu 
erwecken. 

Byte 1 bis 11: Hier steht der Datei- 
name mit seiner Extension (die drei 
Buchstaben hinter dem Punkt). Da nur 
Großbuchstaben vorkommen dürfen, 
wandeln sowohl Amsdos als auch 
CPIM kleingeschriebene Namen bei 
der Eingabe automatisch um. Namen 
mit weniger als acht Buchstaben vor 
dem Punkt füllt das DOS ebenfalls 
automatisch mit Leerzeichen (ASCII 
32) auf acht Buchstaben auf. Der 
Punkt wird nicht mitgespeichert, daer 
grundsätzlich Verwendung findet und 
damit nur Platz verschwendet würde. 

Byte 9: Deklariert man eine Datei als 
R/O (Read-Only), ist sie nur noch zu 
lesen, nicht aber zu löschen oder zu 
überschreiben. Dazu wird der ASCII- 
Wert des Buchstaben an dieser Posi- 
tion des Dateinamens um 128 erhöht, 
also das Bit 7 gesetzt. Zum Beispiel 
wird aus dem »B« in »TEST.BAS« mit 
dem Code 42 hex ein »TEST.?AS«, 
denn das »?« entspricht dem Code C2 
hex (42 hex plus 80 hex ergibt nämlich 
genau C2 hex). Steht eine solche 
Datei auf der Diskette, ist sie bei CAT 


durch einen Stern hinter der Extension 
gekennzeichnet (bei unserem Bei- 
spiel »TEST.BAS*). Eine R/O- 
Deklaration wird durch ihr Pendant 
R/W aufgehoben. R/W steht für 
»Read/Write« und besagt, daß diese 
Datei jederzeit gelöscht oder über- 
schrieben werden darf. Alle Dateien 
auf der Diskette befinden sich 
zunächst im R/W-Status. 

Byte 10: Neben der R/O- und R/W- 
Deklaration gibt es auch den SYS- 
Status. SYS steht für »System« und 
besagt, daß der Computer diese Datei 
zwar als existent ansieht und er sie 
somit auch laden und starten kann. 
Bei einem CAT-Befehl jedoch verwei- 
gert das Betriebssystem die Anzeige 
des Eintrags. Diese SYS-Deklaration 
eignet sich unter anderem dazu, die 
Übersicht einer Directory zu erhöhen. 
Besteht beispielsweise ein Programm 
aus mehreren Teilen wie Basic-Lader, 
Maschinencode-Laderoutine, Titel- 
bild, Hauptprogramm und eventuell 
noch einigen Datenfeldern, kann man 
alle Teile außer dem Basic-Lader als 
SYS-Dateien kennzeichnen. Bei 
einem CAT-Befehl erscheint dann statt 
vier oder mehr Namen nur noch ein 
einziger auf dem Bildschirm. Das Ver- 
fahren der Codierung entspricht dem 
bei Byte 9 beschriebenen. 

Byte 12: In diesem Byte ist festge- 
halten, um den wievielten Eintrag für 
die Datei es sich handelt. Ein einzel- 
ner Eintrag reicht aus, um Dateien mit 
einer Länge von bis zu 16 KByte zu 
verwalten. Für umfangreichere 
Dateien (ein Bildschirminhalt belegt 
beispielsweise 17 KByte), benötigt das 
Betriebssystem mindestens einen 
weiteren Directory-Eintrag. Damit 
aber Amsdos die einzelnen Einträge 


Z 240 


Iron il 1% 
a ik PA 
DRUCKER a | = MDTD 


jebest 


Citzen "1200 463.00 & 


= 10 Drü Er Ze Ä 


1 643, 007, 
ı $21-23 


‚00 
u Merkenicher Str. 87-89 
5000 Köln 60 


Viele weitere interessante 
‚Angebote finden Sie in 


— 


189.00 


Besuchen Sie uns doch 
mal in 


Köln 1 
Maastrichter Str. 23 
Essen 
Schützenbahn 11-13 
München 22 
Bürklein Str. 10 


/ losen, farbigen Me 
Katalog mit 2 5 
Preisliste 


ham 

) | GCHEHEHOHC. 
schriftlich an [ Fü ur IBM f S 

W020 02.21/7 1517-0 
ESTPL El nf ZUBEHÖR / anzu ne Ta 2 


kin S Ai Anruf 
F- STEAMER pn CEon Ban | 4 Maior (BO01g DIE) / 
20 MB Seagate ST 22877) 0221/7151741 A 


10 Disk 
at Ma), Par 
666. u DELA T. 02207161750" 
798.00 ee 
zz 1095.00 


RB 


| 
B 3 
= so 


3 


Telefax 


———_ — 


unterscheiden kann, sind sie im 
Byte 12 mit Null beginnend fortlaufend 
durchnumeriert. 

Byte 13 und 14: Sie haben unter 
Amsdos und CP/M keine Bedeutung. 

Byte 15: Hier ist die Zahl der 
Records (Einheiten zu je 128 Byte) ver- 
merkt, die die Datei belegt. Steht hier 
eine 80 hex (128 dez), bedeutet dies, 
daß die Datei noch mindestens einen 
weiteren Directory-Eintrag besetzt. 
Die Einheit »Record« besitzt unter 
‚Amsdos keine Bedeutung. Sie wurde 
von den Entwicklern nur wegen des 
CP/M aus Kompatibilitätsgründen 
übernommen. 

Byte 16 bis 31: Hier stehen die Infor- 
mationen für das DOS, wo die Datei 
auf der Diskette zu finden ist. Der Spei- 
cherplatz der Diskette ist für jedes der 
vier Formate in Blöcke zu je 1024 Byte 
(ein KByte), also zwei Sektoren zu je 
512 Byte, aufgeteilt. Daher belegt 
auch ein noch so kleines Programm 
auf der Diskette immer mindestens 
1KByte. Der Block entspricht der 
kleinsten Einheit, die Amsdos verar- 
beitet. Sie werden jetzt sicher einwen- 
den, daß sich der Speicherplatz der 
Diskette mit kleineren Blöcken ökono- 
mischer nutzen ließe. Diese Annahme 
ist sogar richtig - zumindest auf den 
ersten Blick betrachtet. Bei Verwen- 
dung kleinerer Blöcke erhöht sich 
jedoch zwangsläufig auch deren Zahl. 
Da die Blöcke dem DOS maßgeblich 
zur Verwaltung der Diskettendaten 

‚ dienen, wächst mit steigender Block- 
zahl natürlich auch der Umfang der 
Directory immens. Und genau dort 
würden die eben mühevoll gesparten 
Byte wieder verbraucht. Sinnvoll ist 
diese Aufteilung also nur, wenn man 
mit sehr vielen, kleinsten Dateien 
arbeitet. Für die normal gebräuchli- 
chen Dateigrößen aber ist die 
gewählte Blockgröße ein günstiger 
Kompromiß. 

Doch nun wieder zurück zum 
eigentlichen Thema. Die beiden 
Directory-Blöcke sind bei allen Forma- 
ten einheitlich als Block O0 und 1 
codiert. Der erste Block zur Aufnahme 
von Daten ist also Block 2. Die Num- 
mern der Blöcke, die eine Datei auf der 
Diskette belegt, stehen in aufsteigen- 
der Reihenfolge in den letzten 16 Byte 
ihres Directory-Eintrags. Belegt sie 
weniger als 16 Blöcke in einem Ein- 
trag, sind die verbleibenden Byte mit 
Nullen aufgefüllt. 

Der R/O- und SYS-Status läßt sich 
nicht aus dem Basic heraus erzeugen. 
Hierzu bedient man sich des transien- 
ten CP/M-Befehls STAT oder eines der 
zahlreichen Hilfsprogramme (Disket- 
ten-Monitore beziehungsweise -Edi- 
toren), die auch als Public-Domain- 
Software erhältlich sind. 


Im Directory ist keine Unterschei- 
dung zwischen den verschiedenen 
Dateitypen (Basic-, Binär- oder ASCII- 
Dateien) getroffen. Diese Informatio- 
nen stehen im ersten Block der jeweili- 
gen Datei, der den sogenannten 
Datei-Header enthält. Bild 7 zeigt als 
Ausschnitt die ersten 80 Byte eines 
Header-Blocks. Die ersten 66 Byte 
enthalten alle wichtigen Datei- 
Informationen. Die einzige Ausnahme 
machen ASCII-Dateien, für die man 
keine Informationen wie Dateilänge 
oder ähnliches benötigt. Sie besitzen 
also auch keinen Header. Die Byte 0 
bis 11 des Datei-Headers sind mit 
denen des Directory-Eintrags iden- 
tisch (siehe auch Tabelle 2). Das DOS 
benutzt sie jedoch nicht. So verändert 
zum Beispiel ein REN-Befehl 
(Rename=Umbenennen) nur das 
Directory, niemals jedoch den Header. 
Wichtig ist das Byte 18, das die 
Angabe des Dateityps enthält. Ein 
Basic-Programm kennzeichnet die 
Nummer 0. Ist dieses Programm mit 
»SAVE "NAME ‚P« gespeichert, also 
gegen das Listen geschützt, findet 
sich hier eine 1. Die 2 steht für eine 
Binärdatei. In den Byte 21 und 22ist(in 
der Reihenfolge High-, Low-Byte) die 
Ladeadresse angegeben. Für Basic- 
Programme beispielsweise steht hier 
170 hex, gespeicherte Bildschirmin- 
halte beginnen bei C000 hex. Byte 24 
und 25 geben die Länge eines Pro- 
gramms an. Diese ist natürlich ebenso 
variabel (abhängig vom Programm) 
wie die Ladeadresse. In Byte 26 und 
27 folgt nun bei Maschinencode- 
Programmen die Startadresse, sofern 
sie beim Speichern angegeben 
wurde. Diese Angabe ist nötig, will 
man ein solches Programm mit »RUN 
"NAME « starten. Alle anderen Byte 
des Datei-Headers sind vom Betriebs- 
system nicht belegt und deshalb mit 
Null-Bytes aufgefüllt. Die folgenden 2 
Byte sind eine Prüfsumme, die sich 
aus der Addition der vorangegange- 
nen 66 Byte berechnen. Anhand die- 
ser Prüfsumme unterscheidet der 
Computer auch zwischen ASCIl- 
Dateien und anderen. Stimmt sie näm- 
lich nicht, liegt eine Text-Datei vor. 
Beim Laden eines Programms mit 
Header werden die beschriebenen 
Daten mit in den Arbeitsspeicher 
(RAM) des CPC geladen. Die Lade- 
adresse für die einzelnen Header- 
Daten variiert. Die wichtigsten Anga- 
ben jedoch, Dateityp und Adressen 
beispielsweise, stehen ab AE42 hex. 
Sie lassen sich also sehr einfach für 
eigene Zwecke verwenden. 

In erster Linie wird eine Diskette 
zum Speichern von Programmen mit 
dem Basic-Befehl »SAVE "NAME”« 
genutzt. Sie können ein Basic- 


Programm aber auch als ASCII-Datei 
speichern, indem Sie den Befehl 
»SAVE "NAME ” ‚A« (»A« für »ASClI«) 
verwenden. Auch haben Sie die Wahl, 
ein Basic-Programm so zu speichern, 
daß man es nach dem Laden nicht 
mehr listen kann. Die Befehlsfolge 
hierfür lautet »SAVE ”NAME”,P«. 
(Das »P« steht für »Protected«, also 
deutsch: geschützt). Bei praktischen 
Anwendungen (Textverarbeitung, 
Datenverwaltung und ähnlichem) wer- 
den aber oft weniger Programme als 
vielmehr Daten auf Diskette ausgela- 
gert. Will man zum Beispiel die Inhalte 
der beiden Textvariablen <a$> und 
<b$> auf Diskette ablegen, benutzt 
man folgende Programmzeilen: 
OPENOUT "NAME” 

PRINT #9,a$,b$ 

CLOSEOUT 


Disketten 
in der Praxis 


Für das Laden derso gespeicherten 
Daten benutzt man diese Zeilen: 
OPENIN "NAME” 

INPUT#9,2$,b$ 
CLOSEIN 

Mit der beschriebenen Methode las- 
sen sich natürlich auch numerische 
Variablen (die Zahlenwerte beinhal- 
ten) auf Diskette speichern. Um einen 
Text einzulesen, dessen Länge nicht 
bekannt ist, findet folgendes Pro- 
gramm Verwendung: 

OPENIN ”NAME” 
WHILE NOT EOF 
INPUT #9,a$ 
PRINT a$ 
WEND 
CLOSEIN 

Die Systemvariable EOF (»End Of 
Files, also »Ende der Datei«) nimmt 
den Wert -1 an, wenn der letzte Daten- 
satz der Datei gelesen ist, ansonsten 
ist sie gleich Null. 

Will man einen Teil des Arbeitsspei- 
chers auf Diskette ablegen, benutzt 
man den Befehl 
SAVE ”NAME”,b,anfang,länge,start 
wobei <anfang> der Adresse des 
ersten Byte entspricht und <länge> 
der Anzahl der Bytes. <start> gibt die 
Startadresse an, bei der ein 
Maschinencode-Programm nach dem 
Laden startet. Oft zum Einsatz kommt 
das Speichern von Computergrafiken. 
Die Befehlsfolge 
SAVE "BILDNAME”,b, &C000, &4000 
legt das sichtbare Monitorbild unter 
dem Dateinamen »BILDNAME« auf 
Diskette ab. Zum Laden genügt ein 
einfaches 
LOAD "BILDNAME” 

Es ist wichtig darauf zu achten, daß 
sich vor dem Laden eines Bildes der 
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Bildschirm nicht nach oben verscho- 
ben hat, also gescrollt wurde. Daher 
müssen Sie vor dem Laden des Bilds 
mit einem MODE-Befehl den Modus 
setzen, in dem es gespeichert wurde. 
Haben Sie vor dem Speichern die 
Farbregister des Computers mit INK- 
Befehlen verändert, müssen Sie diese 
auch vor dem Laden wieder eingeben, 
da sie nicht mit gespeichert sind. 

Um auf einen anderen Benutzer- 
Bereich der Diskette zu wechseln 
(siehe oben), verwenden Sie den 
Befehl 
| USER, nummer 

Der erlaubte Wertebereich der 
Variablen <nummer> liegt zwischen 
0 und 15. 

Wollen Sie eine Datei auf der Dis- 
kette umbenennen, benutzen Sie den 
Befehl REN (steht für Rename). Er ver- 
langt als Parameterübergaben den 
neuen und den alten Dateinamen. 
aß="altname” 
b$="neuname” 
| REN, @b$,@a$ 

Auch das gezielte Löschen einer 
Datei von der Diskette ist kein Pro- 
blem: 
a$="BEISPIEL.EXT” 
lERA,@a$ 
löscht nur die Datei mit dem Namen 
»BEISPIEL.EXT«. Wahlweise lassen 
sich aber auch mehrere Dateien mit 
einem Befehl löschen. Um beispiels- 
weise alle Backup-Dateien (.BAK) zu 
löschen, die bei mehrmaligem Spei- 
chern eines Programms unter demsel- 
ben Namen automatisch entstehen, 
genügt die Anweisung 
a$="x.BAK” 
lERA,@a$ 

Das Zeichen »+« ist eine soge- 
nannte »Wildcard« oder auch »Joker«. 
Es steht für eine beliebige Anzahl und 
Art von Buchstaben. Also löscht das 
Betriebssystem mit diesem Befehl alle 
Dateien, deren Extension »BAK« lau- 
tet. Eine komplette Diskette (nämlich 


alle Dateien) löscht demzufolge 
ad="g.x” 
| ERA,@a$ 

Die zweite Wildcard, »?«, steht stell- 
vertretend für einen einzelnen, belie- 
bigen Buchstaben. So spricht »*.BA?« 
alle Dateien an, deren Extension mit 
der Buchstabenkombination »BA« 
beginnt; also nicht nur die Backups 
(»BAK«) sondern zum Beispiel auch 
Basic-Programme mit der Extension 
»BASe«. 

Weitgehend unbekannt ist die 
Fähigkeit des Amsdos, wahlweise ein 


Beschreibung 


0 Benutzer-Nummer (ES hex 
bedeutet gelöscht) 

1bis 1] | Name mit Extension (ohne 

| Punkt) 

12 Nummer des Directory- 
Eintrags (beginnt bei 0) 

13 bis 14 | unbenutzt (immer 0) 

15 ‚Anzahl der belegten Records 
‚(zu je 128 Byte) 

16 bis 31 | belegte Blöcke, mit Nullen 


aufgefüllt 


Tabelle 1. Byte-Belegung eines 
Directory-Eintrags 


Byte Beschreibung 

0 Benutzer-Nummer 

1 bis 11 Name mit Extension (ohne 
Punkt) 


Dateityp 
0=Basic-Programm 
1=geschütztes Basic- 
Programm K 
2=Binär 

Ladeadresse des Programms 
(170 hex für Basic) 
Dateilänge \ 
Startadresse des Programms 


‚67 und 58 | Prüfsumme über die ersten 


„66 Byte des Headers h 


Tabelle 2. Byte-Belegung eines Datei- 
Headers 


21 und 22 


24 und 25 


Directory selektierter Dateien auszu- 
geben. Anstelle des CAT-Befehls ver- 
wendet man dann einfach den Befehl 
IDIR. Allerdings fehlt gegenüber CAT 
die Angabe der Dateilängen auf dem 
Bildschirm. Wollen Sie sich einen 
Überblick über alle Basic-Programme 
auf einer Diskette verschaffen, ver- 
wenden Sie die Befehle 

aß="x.BAS” 

IDIR,@a$ 

Besitzer zweier Diskettenlaufwerke 
schalten mit »lA« und »IB« zwischen 
den beiden Laufwerken hin und her. 
Aber auch mit gewählten A-Laufwerk 
läßt sich ohne Umschaltung direkt 
vom Laufwerk B laden: 

LOAD ”B:NAME” 

Im Dateinamen darf man bei 
»LOAD« auch noch die Nummer des 
Benutzer-Bereichs angeben, in dem 
eine Datei gespeichert ist. Soll bei- 
spielsweise ein Programm aus dem 
Benutzer-Bereich 12 vom B-Laufwerk 
geladen werden, lautet der Befehl 
LOAD ”12B:NAME” 

Ebenfalls vielfach unbekannt ist der 
Befehl DRIVE. Mit ihm läßt sich, 
abhängig vom Inhalt einer Variablen, 
das Laufwerk selektieren. 
ah="B" 
| DRIVE, @a$ 
bewirkt dasselbe wie »IB«. 

Bei den CPCs 664 und 6128 darf 
man den Amsdos-Befehlen Datei- 
namen auch direkt übergeben. Also 
lassen sich Befehlsfolgen wie 
aß="x.BAK” 

I ERA,@a$ 
durch 
ERA, "%.BAK” 
ersetzen. Wenn Sie noch tiefer in den 
Umgang mit den Schneider-Disketten- 
laufwerken einsteigen wollen, folgen 
Sie uns bitte im zweiten Teil dieses 
Beitrags ab Seite 38 auf unserer Ex- 
kursion in die vielfältigen Fähigkeiten 
des DOS und Controllers. 

(Oliver Suttorp/ja) 


1440 Records zu je 128 Byte 


Sskor22 ]Schora7 | ox0125 [Sanora8 ]Sakora3 ]Sonoran | Sanor3s [sororn [ser 
Eine Diskette im CPC-Systemformat besteht inklusive der Directory und beider Systemspuren aus: 
360 Sektoren zu je 512 Byte (vier Records) 


180 Blöcken zu je 1024 Byte (acht Records beziehungsweise zwei Sektoren) 
40 Spuren zu je 4608 Byte (4,5 Blöcke beziehungsweise neun Sektoren beziehungsweise 36 Records) 


Bild 8. Schematische Unterteilung einer Spur des CP/M-Formats 
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Was die Floppy sonst 


Wenn Sie sich bereits den 
ersten Teil des Beitrags einver- 
leibt haben, verfügen Sie über 
die nötigen Grundlagen für 
diese Fortsetzung. Wir steigen 
nun gemeinsam hinab in die 
Tiefen des DOS. 


ie in der Einführung ab Seite 

31 dieser Ausgabe beschrie- 

bene Art der Diskettenpro- 
grammierung ist die einfachste und 
oberflächlichste. Wir wollen sie 
als Stufe 1 bezeichnen, denn hier 
nimmt das Betriebssystem dem 
Anwender den Großteil der Arbeit aus 
den Händen. Er muß sich nur darum 
kümmern, genügend Platz auf einer 
formatierten Diskette bereitzustellen. 
Von den Problemen, die das DOS 
automatisch bewältigt, bemerkt er 
nichts. Ähnlich sieht es in der Stufe 2 
aus. Sie ist nicht mehr in Basic zu pro- 
grammieren, man muß sich auf die 
Ebene der Maschinensprache-Pro- 
grammierung hinunterbegeben. Aber 
keine Angst - durch die im Betriebs- 
system enthaltenen Vektoren gestaltet 
sich diese Programmierung recht ein- 
fach. Auch hier brauchen Sie sich 
nicht um die Verwaltung der Diskette 
zu kümmern. Sie müssen lediglich der 
jeweiligen ROM-Routine die nötigen 
Parameter übergeben, den Rest be- 
sorgt das DOS. 

Tabelle 1 zeigteine Liste der wichtig- 
sten Vektoren mit ihren Übergabepa- 
rametern. Damit läßt sich wie mit den 
äquivalenten Basic-Befehlen arbei- 
ten, wenn man über zumindest rudi- 


mentäre Kenntnisse der Assem- 
bler-Programmierung verfügt. Als Bei- 
spiele mögen Ihnen Listing 1 und 2 
dienen, die jeweils eine (Binär-) Datei 
laden beziehungsweise speichern. 
Wie Sie sehen, lassen sich mit dieser 
Art der Programmierung Speicherin- 
halte fast so einfach wie unter Basic 
speichern und laden. Sie dürfen die 
Dateien jedoch im Gegensatz zum 
Basic an jede beliebige Speicher- 
adresse laden. Sie müssen dabei nur 
darauf achten, keine Betriebssystem- 
Bereiche und -Variablen zu über- 
schreiben. Der Speicher von Adresse 
40 hex bis etwa A600 hex und von 
C000 hex bis FFFF hex steht norma- 
lerweise frei zur Verfügung. 

Mit der Vektorenbenutzung ist es 
noch immer nicht möglich, auf Daten 
einer Diskette direkt zuzugreifen. 


Immer noch kümmert sich das Ams- 
dos darum, auf welche Sektoren die 
Daten »wandern«. Dasändertsich erst 
in der Stufe 3 der Diskettenprogram- 
mierung. Sie geht auf alle Wünsche 
des Anwenders hinsichtlich des Dis- 
kettenzugriffs ein, erfordert aber fort- 
geschrittene Kenntnisse der Assem- 
bler-Programmierung sowie tiefgrei- 
fendes Wissen um die Datenorganisa- 
tion. Den letzteren Aspekt wollen wir 
Ihnen vermitteln. Im folgenden erfah- 
ren Sie deshalb, wie Sie auf einzelne 
Sektoren und Spuren zugreifen, Spu- 
ren formatieren und Fremdformate 
verarbeiten. Nehmen Sie keine Dis- 
kette mit wichtigen Daten als Ver- 
suchsobjekt, denn es ist zu minde- 
stens 95 Prozent sicher, daß solche 
Daten schon bei den ersten Versu- 
chen das Zeitliche segnen. 


5 
LOAD ID 


C 1D DE, 8&4000 ; 
CALL 88677 
’ 
EX DE,HL Oo; 
( ıD 


Systemvektoren 


; Laden einer Binärdatei in Assembler 
; entspricht dem Basic-Befehl ))LOAD "TEST.BIN”(( 


; Startadresse des Namens 

ID B,8 ; Anzahl der Buchstaben 
; Puffer, in diesem Fall nicht nötig) 
; Eröffne Eingabedatei 


Original-Ladeadresse übernehmen 
HL,&C000 ; Beispiel: Ladeadresse C000 hex) 


CALL &B083 ; gesamte Datei laden 
’ 

CALL &BC7A ; Eingabedatei schließen 
3 
NAME DEFM "TEST.BIN' 


Listing 1. Eine Assembler-Routine zum Laden einer Binärdatei via 


E:A = 0 für Basic-Programm. 


Schreiben eines kompletten 
rbereichs 


Speicher 
(kein Puffer nötig) 


Schreiben eines Zeichens in 
den Ausgabepuffer 


DE = 2-KByte-Puffer 


BC &- Schließen einer Eingabedatei BCBF &- Schließen einer Ausgabedatel 
‚AING = Fehler aufgetreten A:NC = Fehler aufgetreten 
Bcsc EB = Länge des Dateinamens Eröffnen einer Ausgabedatei BcsB EDE = 2-KByte-Puffer CAralog 


= 3 |E: und A: stehen für Übergabeparameter 
HL = Adresse des Dateinamens Ei und Ausgabe); 
AN = Fehler aufgetreten NC bedeutet =No 
HL = Adresse des Datei-Headers, ‚A, BC, DE und HL sind die Z80-Register 


Tabelle 1. Diese Firmwarevektoren dienen der Disketten-Dateiverwaltung 
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Schneider 


Professionelle Grafikprogramme 
für Schneider CPC 6128 + Joyce 


DIGITAL 
DR Draw: RESEARCH" = 
Macht aus Ihren Ideen DR Draw 
ein Kunstwerk. 


Verwenden Sie DR Draw, 
um Organisations-Dia- 
Sramme, Flußdiagramme, 
Logos, technische Zeich- 
nungen, Schaubilder, 
Platinenentwürfe und jede nur erdenkliche Art von Linien- und 
Formgrafiken zu entwerfen. Jeder Bestandteil Ihrer Zeichnung 
kann auf vielfältige Weise durch Farben und Schraffuren 
hervorgehoben werden. 


Die Fähigkeiten auf einen Blick: 

Erstellung beliebiger Zeichnungen 

® vorprogrammierte Figuren wie Kreise, Quader, Rechtecke, 
Kreisbögen, Polygone und Linien 

® freie Wahl der Gestaltungselemente wie Farben, Muster und 
Schriftarten 

® Vergrößerungen und Ausschnittdarstellungen 

® Teile einer Zeichnung können kopiert, verschoben oder 
gelöscht werden 

®% Grafiken können gespeichert, geplottet oder gedruckt werden 

® einfache Bedienung durch Menüauswahl 


Sardwarevoraussetzungen: 

DR Draw läuft auf jedem Schneider CPC 6128 oder Joyce PCW 8256 mit einem 
S5=1 zwei Diskettenlaufwerken. Die Grafiken können auf jedem Drucker oder 
Better ausgegeben werden, für den ein GSX-Treiber verfügbar ist. Dazu zählen 
Schneider-, Epson- und Shinwa-Drucker sowie der Plotter HP 7470A. 


Diese Markt & Technik-Software-Produkte 
Snalten Sie in den Computer-Abteilungen 
= Warenhäuser, bei Ihrem 
Computerfachhändler, im Buchhandel oder 
Srekt beim Verlag gegen Vorauskasse. 


[ee = DR Graph: 
DR Graph Präsentationsgrafiken 
mit professionellen 
(nom nem nam necaunser m Niveau. 
m: —- DR Graph ist ein interakti- 


ves Softwarepaket, mit 
dem Sie Ihren Mikro- 

> — * computer zur Erstellung 
von Geschäftsgrafiken und Text-Charts verwenden können. 


Die Fähigkeiten auf einen Blick: 

© Linien-Grafiken, Histogramme, Torten-Grafiken, Stufen-Gra- 
fiken, Strich-Histogramme, Punkte-Grafiken und Text-Grafiken 

@ freie Wahl der Gestaltungselemente wie Beschriftungen, Titel- 
zeilen, Legenden, Farben, Schriftarten und Ränder 

© frei wählbare Skalierung 

@ variable Linien- und Balkenbreite 

@ Schnittstelle zu anderen Programmen 

@ beliebig positionierbare Anmerkungen 

© Grafiken können gespeichert, geplottet oder gedruckt werden 

®@ einfache Bedienung durch Menüauswahl 


Hardwarevoraussetzungen: 

DR Graph läuft auf jedem Schneider CPC 6128 oder Joyce PCW 8258 mit 
einem oder zwei Diskettenlaufwerken. Die Grafiken können auf jedem Drucker 
‚oder Plotter ausgegeben werden, für den ein GSX-Treiber verfügbar ist. Dazu 
zählen Schneider-, Epson- und Shinwa-Drucker sowie der Plotter HP 7470A. 


Markt&@Technik 


Zeitschriften - Bücher 
Software - Schulung 
Markt&Technik Verlag AG, Buchverlag, Hans-Pinsel-Straße 2, 8013 Hoor bei München, Telefon (089) 4613-0 


Bestellungen im Ausland bitte an: SCHWEIZ: Markt&Technik Vertriebs AG, Kollerstrosse 3, CH-6300 Zug, Telefon (042) 41.5656 - ÖSTERREICH: Rudolf lechner & Sohn, 
Heizwerkstraße 10, A-1232 Wien, Telefon (0222) 677526 - Ueberreuter Medio Verlogsges. mbH (Großhandel), Alser Straße 24, A-1091 Wien, Telefon (0222) 481538-0. 
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; Adresse des Namens 

; Anzahl der Buchstaben 

; Puffer, in diesem Fall nicht nötig) 
; Eröffne Ausgabedatei 


Kennzeichen für Binärdatei 
ab Adresse C000 hex 

3FFF hex Byte speichern 
Startadresse, wenn Programm) 
gesamte Datei schreiben 


Schließe Ausgabedatei 


; Speichern einer Binärdatei in Assembler 
; entspricht dem Basic-Befehl ))SAVE ”TEST.BIN”,B, 
&C000, &3FFF, &C000( ( 
; 
SAVE ID HL,NAME 5; 
ID B,8 ; 
( ID DE,8&4000 ; 
CALL &BC8C ; 
; 
ID A,2 ; 
ID HL,&C000 ; 
ID DE,&3FFF ; 
( ID BC,&C000 ; 
CALL &BC98 ; 
; 
CALL &BCBF ; 
3 
NAME DEFM "TEST.BIN! 
Listing 2. Das Programm zum Speichern unterscheidet sich nur 
wenig von der Laderoutine 


Wie Sie bereits wissen, ist eine Dis- 
kette in Spuren und Sektoren unter- 
teilt. Normalerweise besteht jede Spur 
aus neun Sektoren zu je 512 Byte. Für 
die Unterscheidung dieser neun Sek- 
toren ordnet der Computer jedem Sek- 


tor einer Spur beim Formatieren eine 
eigene Nummer zu. Diese soge- 
nannte ID steht direkt vor dem eigentli- 
chen Datenfeld. Das vier Byte große 
ID-Feld hilft dem Controller bei der 
Identifizierung des folgenden Sektors. 


Im ersten Byte ist zur Kontrolle noch 
einmal die momentane Spurnummer 
vermerkt. Das zweite Byte ist für den 
Betrieb der Schneider-Laufwerke un- 
interessant, da sie nur mit einem 
Schreib-/Lese-Kopf arbeiten. Deshalb 
steht hier immer eine Null. Bei 
Doppelkopf-Laufwerken bestimmt die- 
ses Byte, auf welche Diskettenseite 
zugegriffen wird. Das dritte Byte ist 
nun die Sektor-ID, dieman beim Lesen 
und Schreiben eines Sektors natürlich 
immer mit angeben muß. Das DOS 
vergleicht die gesuchte ID mit der des 
aktuellen Sektors. Sind die Werte 
identisch, greift es auf diesen Sektor 
zu, ansonsten sucht es weiter. Das 
vierte und letzte Byte ist das interes- 
santeste von allen. Mit ihm läßtsich die 
physikalische Größe eines Sektors 
festlegen. Man ist nämlich nicht auf 
512 Byte pro Sektor beschränkt, son- 
dern kann zwischen 256, 512, 1024, 
2048 und 4096 Byte wählen. Da für 
diese Kapazitäts-Festlegung nur ein 
Byte zur Verfügung steht, erfolgt sie 
verschlüsselt. Den genannten Werten 
entsprechen in dieser Reihenfolge die 
Zahlen 1, 2, 3, 4 und 5. 


Um dem Programmierer auch in 


Wr Tabelle 2. Die »ver- h N 5 
ER _Beschreibur borgenen« ASK. dieser Stufe die Arbeit zu erleichtern, 
E:A=0 (Meldungen aus) ‚Ausschalten der Disketien- Befehle des Ams- haben sich die Programmierer des 
‚A=FF hex (Meldungen ein) | Fehlermeldungen dos sind nur per Amsdos etwas Besonderes einfallen 
E:HL=Tabellenadresse Lau werks-Parameter ändern Maschinen- lassen: Jede wichtige Funktion ist als 
? Byte der Tabelle Zweck Programmierung RSX-Befehl ins Betriebssytem einge- 
- — - — | zugänglich bunden. Diese Befehle in Form einer 
aa Sse Kunde srl, »residenten System-Erweiterung« er- 
rn GAP-Länge (normal AF hex) lauben einen komfortablen Aufruf der 
5 nicht benutzt Routinen. Doch noch einen weiteren 
ER : ln N nn wichtigen Vorteil bietet diese Technik. 
DEE UILOBLSELE (SEINEN Die Adresse des Befehls läßt sich 
8 Head-Load-Time (16ms) aa n Ä 
enale ——— em) nämlich durch eine Betriebssystem- 
ex| 0581 hex| E:A=Format (ID) Einstellen der Format- Routine (KL-FIND-COMMAND) auto- 
1: 1BM Parameter im RAM A 4 
65: System matisch berechnen. Falls es jemals 
12 93: DATA % eine geänderte Version des Amsdos 
84 hex| C666 hex| E:E=Drive D-Spur Lesen eines Sektors von 
E ‚©=Sektor HL=Puffer Diskette 18° ASCII-Disk-Monitor TEZECI 
| a. > 6052 
85 hex| C64E hex| E:E=Drive D=Spur ‚Schreiben eines Sektors ni ver Buttorpr Tehlener Kagszı 
C=Sektor HL=Puffer 40 : 5824 Pulheim, Tel.: 92258/56368 t817A] 
86 hex| C52hex| EiE=Drive D=Spur Spur formatieren TO EhORV LEEFE Ba 
©=erster Sektor der Spur 70 trackadr=tAD10: sekadr=&AD12 E11E6] 
HL=Adresse der Para- 30 FOR i=&AQaQ TO SADIA:READ as [8B26]1 
& metertabelle: 90 POKE i „VAL ("&"+a&) ıNEXT TEQ6B] 
= _ 100 DATA 21,1A,AB,CD,D4,BC,22,1B,AQ LeBBAl 
Byte Bedeutung 11® DATA 79,32,1D,AQ,1E,00,16,00,0E [61321 
128 DATA Q0,21,08,9@,DF,1B,AQ,C9,84 CCSSE1 
1 ‚Spur 130 MODE 2: INK 8,0: INK 1,26: BORDER ® LEC783 
2 Kopfnummer (0). 140 OPENQUT "d LOSEQUT: ° Login 13092] 
3 ‚Sektor-ID. 158 NO 1,23: INPUT "Track : (0-39) "st ash 
2 rac 
ei Sp 16@ LOGATE 1,24: PRINT"Sektor 1"; CA9DA1 
Bu 170 IF PEEK(&AB95)=179 THEN PRINT" (&ci-& 
und so weiter füralle | m" LEB7A1 
‚Sektoren &; 188 IF FEEK(&A895)=17@ THEN PRINT" (BAI-8 
\ eh COEAEI 
p positioniere Kopf über Spur 190 IF PEEK(%AB9S)=155 THEN PRINT" (1-8) " 2 
= — —— i C12. 
A=Laufwerk (0 für A; 1 200 INPUT sek EBBaA] 
für B) Laufwerk verfügbar? 218 POKE trackadr,track:POKE sekadr,sek [13021 
re ‚A:C=Laufwerk ready 22@ CALL %AQDD L7BCEI 
= = 238 LOCATE 1,1:FOR i=%9080 TO SI91FF L9FEBI 
C603 hex| ‚nzahl (0=256) „Anzahl der Leseversuche bei 240 a=PEEK(i):IF a<32 THEN a=46 L8@2A1 
5 & Lesefehlen 258 PRINT CHR&ta);:NEXT [669613 
A siehen für Übergabeparameler (Ein- und Ausgabe) ke ER 
er a Listing 3. Dieser ASCII-Monitor zeigt Ihnen den Inhalt 
A, BC, DE, und HL sind die Z80-Register eines beliebigen Diskettensektors 
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geben sollte, sind dann auch noch 
»alte« Programme ohne Anpassung 
lauffähig. 

Die insgesamt neun RSX-Befehle 
stehen in Tabelle 2. Beider Durchsicht 
dieser Tabelle werden Sie feststellen, 
daß es jetzt bei den Diskettenzugriffen 
nicht mehr um Dateien geht. Auch 
Directory oder Blöcke sind für diese 
Routinen ein Fremdwort. Vielmehr 
richten sich Zugriffe jetzt gezielt auf 
einzelne Sektoren der Diskette, was 
Sie anhand einiger kleiner Beispiele 
nachvollziehen können. Listing 3 liest 
einen Sektor von Diskette und stellt 
dessen Inhalt in Form von ASCII- 
Zeichen auf dem Bildschirm dar. Es 
besteht aus dem Basic-Hauptpro- 
gramm und einer wenige Byte umfas- 
senden Maschinencode-Routine zum 
Lesen des Sektors. Den ausführlich 
dokumentierten Assembler-Quell- 
code dieser Routine zeigt Listing 3a. 
Die Ermittlung der Befehlsadresse 
mag Ihnen zunächst etwas aufwendig 
erscheinen, sie hat aber wie bereits 
weiter oben erwähnt den Vorteil, daß 
das Programm auf allen ROM-Versio- 
nen läuft, also beispielsweise auch 
unter dem VDOS der Vortex-Lauf- 
werke. 

Der Rest der Routine besteht im 
wesentlichen nur noch aus dem 


Adresse des Befehlscode 
; Suche RSX-Befehl (KL-FIND-COMMAND) 
; Adresse speichern 


; ROM-Nummer sichern (normal 7) 


Drive nach E (O=A; 1=B) 

Spurnummer nach D (0 bis 42) 
Sektor-ID (-Nummer) 

Adresse des Puffers nach HL 
FAR-CALL zur gesuchten Adresse 
Zeiger auf Adresse 

und zurück 

512-Byte-Puffer für Sektorinhalt 
ein Byte Speicher für ROM-Nummer 
RSX-Befehlscode (Sektor lesen) 
Listing 3a. Der Assembler-Quellcode der kurzen Maschinencode-Routine im 
ASCII-Monitor zeigt, wie man in Maschinensprache einzelne Sektoren liest 


; Lesen eines Diskettensektors in Maschinensprache 
3 
ID HL,BEFEHL ; 
CALL &BCD4 ; 
ID (ADR),HL ; 
DD A0 
ID (ROMNR),A 5; 
3 
ID E,0 ; 
ID D,1 ; 
ID c,1 ; 
ID HL,BUFFER ; 
RST &18 ; 
DEFW ADR ; 
RET ; 
BUFFER DEFS &200 ; 
ROMNR DEFS 1 3 
BEFEHL DEFB &84 ; 


Laden der benötigten Register zur 
Parameterübergabe und dem Aufruf 
der Betriebssystemroutine mittels 
eines FAR-CALL (RST 18). Das auf 
den RST-Befehl folgende Byte deutet 
auf eine Tabelle, in der die Adresse 
und die ROM-Nummer der Routine 
stehen. In diesem Fall lautet die 
Adresse C666 hex im ROM Nummer 7. 
Diese »umständliche« Programmie- 
rung hat den weiteren Vorteil, daß 
durch einfache Änderung eines ein- 
zelnen Byte, des Befehls-Byte (letztes 
Byte in den DATA-Zeilen), in 85 hex 
der Sektor nicht gelesen, sondern 
geschrieben wird. Der Aufbau des 
Basic-Programms ist sehr leicht über- 
schaubar. Zeile 140 dient dazu, das 
RAM mit den Formatwerten der der- 
zeitigen Diskette zu laden. Die Zeilen 
170 bis 190 stellen anhand der Zahl 
der freien Blöcke fest, welche IDs auf 
der Diskette Verwendung finden. Die 
Angabe falscher IDs führt nämlich zur 
Fehlermeldung »READ FAlL«, da 
dann der FDC (»Floppy-Disc- 
Controller«) vergeblich nach dem Sek- 
tor sucht. 

Damit sind wir bei den RAM- 
Speicherbereichen des DOS ange- 
kommen, denen wir einen wesentli- 
chen Teil unserer Aufmerksamkeit 
schenken müssen. Sie enthalten 


‚pro Spur (9 Sektoren mal 4 Records) 


‚A880 bis AB91 


A892 


Informationen, die sonst nur schwer 
zugänglich sind. So halten wir den 


Programmieraufwand in Grenzen. 
Wurde einmal unter Basic auf die ein- 
gelegte Diskette zugegriffen, ist sie 
»eingelogt«, das heißt die Formatpara- 
meter des augenblicklichen Disket- 
tenformats sindim RAM abgelegt. Das 
»Login« einer Diskette geschieht am 
einfachsten mit der Befehlsfolge 
OPENOUT "DUNMY” 

CLOSEOUT 

(Die Bezeichnung »DUMMY« steht 
für einen beliebigen Dateinamen und 
besagt, daß diese Datei nur temporär 
genutzt wird und deshalb hinterher 
auch nicht im Directory steht.) Jetzt 
sind im DPB (Disk Parameter Block) 
wichtige Informationen zu finden, die 
sich ohne Probleme unter Basic mit 
PEEK auswerten lassen. In Adresse 
A895 hex steht beispielsweise die 
maximale Anzahl der Blöcke der ein- 
gelegten Diskette. Über diesen 
Umweg kann man das Forriat der Dis- 
kette feststellen, da jedes der Disket- 
tenformate eine andere Kapazität hat 
(170 entspricht dem System- und 
Vendor-, 179 dem DATA- und 155 dem 
IBM-Format). Ab Adresse A8B9 hex 
liegt die sogenannte »Allocation 
Table«, in der 22 Byte die Belegung der 
Diskette codieren. Gesetzte Bits ste- 
hen für belegte Blöcke, nicht gesetzte 
für freie. Mit dem Umweg über diese 
Tabelle ist der freie Speicherplatz 
einer Diskette aus dem Basic leicht 
festzustellen. Das ist wichtig, will man 
aus einem Programm heraus Daten 
auf Diskette speichern. Ist die Diskette 
nämlich voll, führt der Versuch zur 
DOS-Meldung »Disk full«e und zur 
Unterbrechung des laufenden Pro- 
gramms. Eine Liste der wichtigsten 
DPB-Adressen ist in Tabelle 3 zu fin- 
den. Ein Beispiel zur automatischen 
Formaterkennung und Ermittlung des 
freien Speicherplatzes sehen Sie im 
Listing 4. Dieses Programm macht 
ausschließlich Gebrauch von den 
beschriebenen Adressen. 

Mit dem ASCII-Monitor aus Listing 1 
lassen sich, wie Sie wissen, be- 
stimmte Sektoren der Diskette lesen 
beziehungsweise schreiben. Doch 


| masimaie Zah der Direstony-Einräge minus 1 


Tabelle 3. Die wichtigsten Adressen des Disk-Parameter-Blocks für Laufwerk A (für Laufwerk B 64 Byte höher) 


a HOMECOMPUTERWORLD.COM 


ee a 135 PRINT "Diskettenformat : "sformat$ LFF76] 
ee ee 149 "Speicherplatzermittelung [26Da1 
30 ° Oliver Suttorp, Johannisstr. 64 TOBE&] Be aittan tabs raktäravaesat en 

e a 539/52 1 oc ans 2i 
ELBE FTRL 02223/36568 NerzaT 160 FOR byte=@ TO 21: 22 Bytes [21221 
2D OPENOUT "d":CLOSEQUT: "Login Kıcraı 170 wert=PEEK (alltab+byte) [9EFB] 
58 altdrivesPEEK (RA70B) : "aktuelies Drive aan EREDEN 

SERRE Bea 19@ FOR bit=@ TO 7__ ai Ca2zEı 
8@ "Anzahl der Blocks (formatabhaengig) L[&SECI 208 IF (wert AND (2"bit)) THEN anz=anz+i (an 
90 blocks=PEEK (&ABIS+aKktdriver64) LAFCQI 3 Br Er EEE 
100 IF blocks=177 THEN format#="DATA TEsESI 210 NEXTsbalwgtshelsgt+anz:NEXT Kern 
118 IF block E28EC1 220 fressblocks+irbelegt er CES1A1 
2 =15 u TBM" 735 Von; ks-1; "kB sin res; 
129 IF blocks=155 THEN format+="IBM 1735A3 ee ve 


Listing 4. Ein Programm zur Analyse des Disk-Parameterblocks 


damit sind Sie noch immer auf die 
Standardformate System, DATA und 
IBM beschränkt. Andere (Fremd-)For- 
mate können Sie noch nicht bearbei- 
ten. Doch was ist überhaupt ein 
Fremdformat? Einfach ausgedrückt 
ist das ein Diskettenformat, das der 
CPC von Haus aus nicht erkennt, also 
auch nicht lesen oder schreiben kann. 
Demzufolge sind derartige Disketten 
auch mit normalen Kopierprogram- 
men wie »Disccopy« nicht zu kopieren. 
Damit ist auch die Hauptanwendung 
von Fremdformaten klar: Sie ergeben 
einen guten Kopierschutz. Um Pro- 
gramme gegen unerwünschtes Kopie- 
ren zu schützen, ist es ratsam, wich- 
tige Teilprogramme in einem Fremd- 
format zu speichern. Diese Teile benö- 
tigen dann natürlich spezielle eigene 
Laderoutinen. 

Zur Erzeugung eines »Fremdfor- 
mats« muß die Diskette zunächst - wie 
jede Diskette - formatiert werden. 
Allerdings nicht mit dem Programm 
»Format« oder »Disckit« der System- 
diskette, sondern durch eine eigene 
Formatierroutine. Das Formatieren ist 
fast so einfach wie das Lesen und 
Schreiben eines Sektors. Es ge- 
schieht ebenfalls über einen »ver- 
steckten« RSX-Befehl. Der Befehl 86 
hex verlangt im Prozessor-Register E 
die Laufwerksnummer und in D die 
Nummer der zu formatierenden Spur. 
Im C-Register teilen Sie der Routine 
den ersten Sektor mit, der auf die Spur 
geschrieben werden soll. Über das 
Doppelregister HL übergeben Sie nun 
einen Zeiger, der auf eine Tabelle mit 
den ID-Informationen deutet. In dieser 
Tabelle müssen die Werte aller Sekto- 
ren vermerkt sein, die später im jewei- 
ligen ID-Feld stehen sollen. Unser Bei- 
spielprogramm in Listing 5 formatiert 
eine komplette Spur im Systemformat. 
Durch Änderung der IDs (»DEFB &41« 
bis »DEFB &49« hinter dem Label 
»IDTAB«) lassen sich nun fast belie- 
bige Formate erzeugen. Beim ersten 
Blick auf das Beispielprogramm fällt 
Ihnen wahrscheinlich die ungewöhnli- 
che Verteilung der Sektoren auf der 
Spur auf. Die Numerierung erfolgt 
nämlich nicht fortlaufend, sondern in 
Sprüngen von je fünf Werten. Prinzi- 


piell ließen sich auch alle Sektoren 
nach IDs geordnet schreiben. 
Dadurch verlangsamen sich jedoch 
die Lese- und Schreibzugriffe, da der 
Computer zur Verarbeitung bezie- 
hungsweise Bereitstellung der Daten 
einige Zeit benötigt. Im ungünstigsten 
Fall müßte die Diskette beispielsweise 
eine gesamte Umdrehung vollziehen, 
ohne daß neue Daten gelesen oder 
geschrieben werden. Diese aus der 
Verärbeitungsgeschwindigkeit des 
Computers resultierende versetzte 
Verteilung der Sektoren einer Spur 
nennt man Skew-Faktor. 

Mit Änderung der ID eines Sektors 
sind noch lange nicht alle Möglichkei- 
ten der Fremdformatierung erschöpft. 
Wie wäre es beispielsweise mit Sekto- 
ren unterschiedlicher Länge? Bitte- 
schön, das vierte Byte des ID-Felds 
gibt die Anzahl der Datenbyte pro Sek- 
tor an. Setzen wir dort anstelle der 2 
eine 1, erfolgt die Formatierung mit 
Sektoren zu je 256 Byte. Das bedeutet 


natürlich, daß die doppelte Menge von 
Sektoren auf eine Spur paßt. 18 Sek- 
toren zu je 256 Byte ersetzen nun die 
neun normalen 512-Byte-Sektoren. 
Mit solchen »Mini-Sektoren« läßt sich 
zum Beispiel recht einfach eine 
schnelle relative Dateiverwaltung auf- 
bauen. Ein Datensatz entspricht dabei 
dem Inhalt eines Sektors. Benutzt 
man die letzten 30 Spuren der Diskette 
(Spur 10 bis 39) mit 18 Sektoren zu 256 
Byte und formatiert die Spuren 0 bis 9 
im DATA-Format, steht für das verwal- 
tende Programm immer noch eine 
Kapazität von 38 KByte zur Verfügung. 
In die Spuren 10 bis 39 passen 540 
Datensätze, die in Bruchteilen von 
Sekunden verfügbar sind, ohne den 
Arbeitsspeicher des CPC zu belasten. 

Das Lesen und Schreiben solcher 
Sektoren ist etwas aufwendiger als 
das Formatieren. Mit dem Befehl 84 
hex (Sektor lesen) wird nicht das 
gesamte ID-Feld an die Routine über- 
geben, sondern nur die Spur- und 


; Formatieren einer einzelnen Spur in Maschinensprache 
5 
LD HL,BEFEHL ; Adresse des Befehls 
CALL &BCD4 ; Suche RSX-Befehl (KL-FIND-COMMAND) 
ID (ADR) ‚HL ; Adresse speichern 
ID A,C 
ID (ROMNR),A 5; ROM-Nummer sichern (normal 7) 
; 
ID 0,841 ; erste Sektor-ID auf der Spur 
ID D,0 ; Spurnummer nach D (0 bis 42) 
ID E,0 ; Drive nach E (0=A; 1=B) 
ID HL, IDTAB ; Adresse der ID-Tabelle nach HL 
RST &18 ; FAR-CALL zur gesuchten Adresse 
DEFW ADR ; Zeiger auf Adresse 
RET ; und zurück 
ADR DEFS 2,0 ; zwei Byte Speicher für die Adresse 
ROMNR DEFS 1,0 ; ein Byte Speicher für ROM-Nummer 
IDTAB ; ID-Feld-Information Sektor 
DEFB 0 ; Spurnummer 1 
DEFB 0 ; Kopfnummer a 
DEFB &41 ; Sektornummer 1 
DEB 2 ; Sektorgröße (512 Byte) 1 
DEFB () ; 2 
DEFB 0 5 2 
DEFB &46 ; 2 
DEFB 2 5 2 
DEB 0 B 3 
DEFB 0 5 3 
DEFEB &42 ; 3 


; Tabelle 4. Bei 
— — - jedem Diskettenzu- 
ABSF “a Erster Sektor jeder Spur griff holt sich das 
ABAO 3 Anzahl der Sektoren pro Spur = er Aue 
5 = = n des 

has E3 Länge von GAP 3 beim Sektoriesen“ Paramasar Blocks 
ABA2 E Länge von GAP 3 beim Formatieren 

ABAa E55 Füll-Byte beim Formatieren 3 

ABAA Byte pro Sektor (codiert: entspricht 512 Byte) 

[3 4 __ Zahl der Records pro Sektor 


Sektornummer. Die anderen Informa- 
tionen für die Routine müssen also 
woanders stehen. Glücklicherweise 
hielten die Entwickler das Amsdos so 
flexibel, daß es keine festen Werte ver- 
wendet, sondern auf eine Tabelle im 
RAM zugreift, in der alle FDC- 
Parameter stehen. Aus diesem »FDC- 
Parameter-Block« beziehen alle DOS- 
Routinen ihre Werte. Tabelle 4 zeigt 
die Adressen mit den Werten der nor- 
malen Belegung. Daraus ist ersicht- 
lich, daß die Größe eines Sektors auf 
Adresse ABA4 hex zu finden ist. Zum 
Lesen eines Sektors mit 256 Byte muß 
man also vor dem Aufruf der Routine 
84 hex in diese Speicherstelle den 
Wert 1 laden. Das gleiche gilt analog 
für die Routine 85 hex (Sektor schrei- 
ben). Zwei Adressen des FDC-Para- 
meterblocks sind auf den ersten Blick 
etwas unverständlich. Es sind die 
Adressen A8A1 und A8A2 hex, die der 
Angabe der Länge des Gap 3 dienen. 
Ein Gap ist der Leerraum zwischen 
den Sektorteilen (ID- und Daten-Feld) 
und den einzelnen Sektoren einer 


DEFB 2 ; 3 
DEFB 0 3 4 
DEFB {v} ;’ 4 
DEFB 7 5 4 
DEFB 2 ; 4 
DEFB 0 ; 5 
DEFB 0 5 5 
DEFB &43 5 5 
DEFB 2 ; 2 
DEFB 0 ; 6 
DEFB 0 3 6 
DEFB KB; 6 
DEFB 2 ; 6 
DEFB 0 ; 7: 
DEFB 0 ; 7 
DEFB Bu; 7 
DEFB 2 ; X 
DEFB 0 5 8 
DEFB 0 ; 8 
DEFB I 5; 8 
DEFB 2 ; 8 
DEFB 0 3 3 
DEFB [) 3 9 
DEFB, 5 5 9 
DEFB 2 5 9 
BEFEHL DEFB &86 

Listing 5. Der Assembler-Quellcode 

eines Programms zur Formatierung 

einzelner Sektoren 


; RSK-Befenlscode (Spur formatieren) 
Eon EUER 


Spur. Dieser Leerraum gibt dem FDC 
Zeit, die gelesenen Daten (aus einem 
ID-Feld zum Beispiel) zu verarbeiten 
und an den Computer weiterzuleiten. 
Des weiteren dienen sie dazu, Gleich- 
laufschwankungen des Laufwerks 
auszugleichen. Dies ist besonders 
dann wichtig, wenn die Diskette nicht 
von dem Laufwerk beschrieben 
wurde, also zum Datenaustausch 
benutzt wird. Gap 3 beschreibt den 
Zwischenraum zweier Sektoren einer 
Spur. Durch geschickte Veränderung 
der Werte (Verkleinerung) in den 
genannten Adressen ist ein weiterer 
(zehnter) Sektor auf der Spur unterzu- 
bringen. Dabei ist lediglich zu berück- 
sichtigen, daß zu kleine Werte Lese- 
fehler zur Folge haben können. 
Besonders groß ist dieses Risiko, 
wenn die so behandelte Diskette spä- 
ter auf anderen Laufwerken zu laden 
sein soll. 

Die vorgestellten Tabellen im RAM 
sowie die ROM-Routinen erlauben 
bereits eine weitreichende Beeinflus- 
sung der Diskettenzugriffe. Aber 
immer nochistder Rahmen des Mach- 
baren längst nicht erschöpft. 

Die jetzt folgende Stufe 4 der 
Disketten-Programmierung beschäf- 
tigt sich nur noch direkt mit dem FDC. 
Das DOS benötigen wir nun nicht 
mehr. Selbstverständlich ist die 
direkte Programmierung des Control- 
lers sehr kompliziert, da man exakte 
Zeiten und Datenübergabe-»Zeremo- 
nien« einhalten muß. Für die exakte 
Einhaltung des Timing werden schon 
vom DOS sämtliche Interrupts bei Dis- 
kettenzugriffen gesperrt. 

Da man schon in Stufe 3 mit relativ 
geringem Aufwand und mittleren 
Kenntnissen vielfältige Manipulatio- 
nen vornehmen kann, wollen wir die 
Thematik der FDC-Programmierung 
jedoch nur der Vollständigkeit halber 
anschneiden. Der FDC ist nurüber die 
beiden Portadressen FB7E und FB7F 


„ hex mit dem Z80-Prozessor des CPC 


verbunden. Eine dritte Adresse, FA7E 
hex, spricht ein Flip-Flop an, das die 
Laufwerksmotore ein- beziehungs- 
weise ausschaltet. Der Datentransfer 
zwischen Computer und Controller ist 
im CPC so realisiert, daß der Compu- 
ter immer anhand des Haupt-Status- 
registers feststellt, ob der FDC zum 


Datenaustausch bereit ist. Das ist 
zwar die einfachste Art des Daten- 
austausches, hat aber den Nachteil, 
daß sich der Computer während die- 
ser Zeit um nichts anderes kümmern 
kann. Der Diskettenzugriff hat also 
absoluten Vorrang. Der FDC ist aber 
für zwei weitere Betriebsarten vorbe- 
reitet. Als erstes ist der DMA-Modus 
(Direct-Memory-Access) zu nennen. 
In diesem Modus hat der FDC in Zu- 
sammenarbeit mit einem DMA-Con- 
troller (findet in vielen Festplatten- 
Laufwerken Verwendung) direkten 
Zugriff auf den Arbeitsspeicher des 
Computers, das heißt, der Hauptpro- 
zessor ist dann von der Aufgabe ent- 
bunden, die Daten zu holen oder 
bereitzustellen. Das führt natürlich zu 
enormen Geschwindigkeitsvorteilen. 
Der zusätzliche Hardware-Aufwand 
eines DMA-Controllers hätte sich bei 
der Entwicklung der CPCs aber allein 
des Diskettenlaufwerks wegen kaum 
gelohnt, so daß wir heute auf diesen 
Komfort leider verzichten müssen. 

Der zweite Modus ist der Interrupt- 
Modus. Dabei signalisiert der FDC der 
CPU mit einem Interrupt seine Bereit- 
schaft zum Datentransfer. Auf diese 
Betriebsart wurde in den CPCs wahr- 
scheinlich verzichtet, da das CPC- 
Betriebssystem mit einer Vielzahl von 
Interrupts ohnehin schon an der 
Grenze seiner Leistungsfähigkeit 
betrieben wird. 

Die ganze Programmierung des 
FDC beschränkt sich also auf zwei 
(drei) Adressen. Das Haupt- 
Statusregister ist mit dem Flag- 
Register des Z80 vergleichbar (Tabelle 
5). Aus ihm lassen sich nur Daten 
lesen. Das Datenregister dagegen 
steht für Lese- und Schreibzugriffe zur 
Verfügung. Über das Datenregister 
erfolgt deshalb auch die Programmie- 
rung. Als Beispiel für die FDC- 
Programmierung dient ein Kom- 
mando, dessen Auswirkung aus den 
unteren drei Programmierungsstufen 
nicht erreichbar ist: das Lesen einer 
Sektor-ID. Bevor Sie mit der FDC- 
Programmierung beginnen, stellen 
Sie anhand des Haupt-Statusregisters 
fest, ob der Controller momentan zur 
Befehlsverarbeitung bereit ist. 
Danach schalten Sie die Laufwerks- 
Motore mit einem OUT-Befehl ein. Die 
eigentliche Programmierung ist in drei 
Phasen unterteilt: die Befehlsphase, 
die Ausführungsphase und die Ergeb- 
nisphase. 

Als erstes wird dem FDC in der 
Befehlsphase der Kommando-Code 
4A hex für das Lesen der ID übermit- 
telt. Danach folgt ein Datenbyte, das 
dem FDC sagt, auf welches Laufwerk 
sich der Befehl bezieht. Für Laufwerk 
Aschreiben Sie eine 1, für Laufwerk B 
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eine 2 in das Datenregister. Damit ist 
die Befehlsphase schon abgeschlos- 
sen. Zwischen den Datenübergaben 
dürfen Sie aber nicht vergessen, im 
Haupt-Statusregister abzufragen, ob 
der FDC empfangsbereit ist. In der 
jetzt folgenden Ausführungsphase 
erledigt der FDC seine Aufgabe; er 
sucht auf der aktuellen Spur nach 
einer Sektor-ID. Die erste gefundene 
liest er in sein Register ein. Der Com- 
puter muß in der Ausführungsphase 
keine Daten vom FDC holen. Das ist 
allerdings nur bei diesem Befehl so. 
Bei anderen, wie beispielsweise »Sek- 
tor lesen« oder »Sektor schreiben«, 
werden alle Datenbyte (normaler- 
weise 512 an der Zahl) in der Ausfüh- 
rungsphase zwischen CPU und FDC 
ausgetauscht. Nachdem jetzt mit der 
Ausführungsphase die zweite Phase 
endet, beginnt augenblicklich die 
dritte und letzte Phase. In dieser 
Ergebnisphase werden zuerst die drei 
internen Statusregister 0 bis 2 für den 
CPC zur Verfügung gestellt. Das Sta- 
tusregister 3 läßt sich nur über einen 
bestimmten Befehl auslesen. Es be- 
inhaltet den Laufwerksstatus, sagt 


also aus, ob das Laufwerk betriebs- 
bereitoder.der Schreibschutz aktiv ist. 
Aus diesen Registern kann der Com- 
puter eventuelle Fehler oder Hard- 
ware-Eigenschaften der Disketten- 
laufwerke abfragen. Auf diese drei 
Statusbyte folgen die erfragten vier 
Byte der Sektor-ID. Nacheinander 
stellt der FDC Spurnummer, Kopfa- 
dresse, Sektornummer und Sektor- 
größe bereit. In der Ergebnisphase ist 
zu beachten, daß immer alle Byte aus- 
gelesen werden müssen, auch wenn 
man sie nicht benötigt. Der FDC kann 
einen neuen Befehl nur dann ausfüh- 
ren, wenn von der Ausführung des vor- 
angegangenen Befehls keine Daten 
mehr übrig sind. 

Wenn wir jetzt Ihren Appetit auf 
die FDC-Programmierung angeregt 
haben, können Sie die Aufstellung der 
gesamten Befehle in einem Datenblatt 
des FDC nachlesen. Die Dokumenta- 
tion aller Befehle würde den Rahmen 
dieses Artikels bei weitem sprengen. 
Es ist auch sinnvoll, ein gut dokumen- 
tiertes DOS-Listing anzuschaffen. 

Doch - warum sollten Sie sich mit 
einer solchen Programmierung über- 


& Tabelle 5. Das 
Hauptstatusregi- 


———— 


haupt herumschlagen? Für den nor- 
malen Anwender, der nur Programme 
und Daten von Diskette laden will, ist 
es sicher uninteressant; ihm genügen 
die DOS-Befehle allemal. Aber für 
jemanden, der verstehen möchte, was 
im »Hintergrund« passiert, ist es 
höchst interessant, das Laufwerk 
„nach seiner Pfeife tanzen zu lassen«. 
Und die Handhabung des FDC ist auf 
größtmögliche Benutzerfreundlichkeit 
ausgelegt, was dazu führt, daßwenige 
leistungsstarke Befehle das Leben 
des Programmierers erleichtern. 
Durch die zusätzlichen Fähigkeiten, 
wie unterschiedliche Sektorgröße und 
schnelle Laderoutinen, kann man jetzt 
eigenen Diskettenprogrammen höhe- 
ren Komfort und eine höhere Arbeits- 
geschwindigkeit angedeihen lassen. 
Last but not least wollen wir aber 
auch die Hauptanwendung für solche 
»Bit-Verrenkungen« nicht verschwei- 
gen: Kopierschutzmechanismen für 
mehr oder weniger teure Programme. 
Sie sind durch die diversen Befehle 
des FDC ohne großen Aufwand zu rea- 
lisieren. Aber genau da ist auch der 
Haken an der Sache: Durch die 
begrenzte Anzahl von Befehlen ist es 
unmöglich, einen Schutz zu verwirkli- 
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‚Jedes Bit steht für eins der vier möglichen Laufwerke, Ist das ent- 
‚sprechende Bit gesetzt, kann auf dem Laufwerk ein Schreib- 
‚oder Lesebefehl ausgeführt werden. 


Dieses Bit signalisiert, daß der FDC zur Zeit ein Kommando 
‚abarbeitet. 


Mit diesem Bit kann zwischen den einzelnen Phasen des FDC 


5 
unterschieden werden. In der Resultatphase ist das Bit 0. 
6 .- |DIO ‚Hiermit bestimmt der FDC, ob er bereit ist, Daten zu senden (1) 
\ oder zu empfangen (0) 
7 ROM Ein gesetztes Bit zeigt an, daß der FDC bereit ist, Daten mit dem 


Prozessor auszutauschen. Die Richtung bestimmi Bit 6. 


Das Statusregister 0 


ster des FDC 765 
(Port FB7E hex) 


chen, der sich nicht von einem ebenso 
intelligenten Kopierprogramm kopie- 
ren ließe. Mehr über dieses Thema 
lesen Sie im Anschluß an diesen 
Beitrag. 

(Oliver Suttorp/ja) 
Literaturhinweis: 
Günter Woigk, »Das Schneider CPC Systembuch«, Sybex Ver- 
1ag, ISBN 3-88745-506-8, Preis: 58 Mark 
Brückmann/Schieb, "Das große Floppybuch zum OPC«, Data 
Becker, ISBN 3-89011-093-2, Preis: 49 Mark 
»DDI-1 Firmware Manual«, Schneider-Data, Am Rindermarkt 
‚4a, 8050 Freising, Preis: 59 Mark (englische Originalausgabe) 


Bit | Mnemonic | Bedeutung sit |Mnemonic | Bedeutung 

Ound1| US Diese Bits geben an, welches Laufwerk angesprochen wurde, u MD Data-Adress-Mark wurde nicht gefunden 

2 |no Der gewählte Kopf das Laufwerks (Immer 0). BC Die physikalische Spurnummer stimmt nicht mit der in der ID 

überein 

a | Das ee Laufwerk war nicht bereit, reelen TRIER 

2 = m - _ wi ” an 3 SH ‚Sektor mit gleicher ID gefunden 

5° hat der ine bestimmte Spur if ‚gefunden, setzt 

or.dioses Bl, 4 siehe Bit 

sund7lic Diese Bil setzt dor FDC beim Auftreten von Fehlern. s |o Prüfsummonfohler Im Datenfald (siehe Register 1, Bit 5) 
6 Im Sektor mit gelöschter Data-Adress-Mark gefunden 
I 


Immer 0 


Mnemonic 


‚Bedeutung 


Das Statusregister 2 


o Im keine Sektr-D auf der Spur gefunden Fa ER = 
1 Im die Disks Ist schreibgeschüzt 
2 |no der FDO setz dieses Bit, wenn er beim Schreiben oder Lesen re Io ikea len 
den Sektor nich! fand 2 Im gewählter Kopt des Laufwerks 
ale " immer 0 a | Ein geseizies Bit zeigt an, daß ein Doppelkopflaufwerk ange- 
4 or ein Datenbyte wurde nicht rüh genug vom FDC geholt Belleiruche 
5° |oe 65 ist en Prüfsummenfehler enistanden m ae ea 
‚(die Prüfsumme generiert der FDC) 5 RY ‚das gewählte Laufwerk ist betriebsbereit 
6 e immer 0 6 wPp die eingelegte Diskette ist schreibgeschützt 
E EN ‚das Ende der Spur ist erreicht T FT im Laufwerk ist ein Fehler aufgetreten 


Das Statusregister 1 
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Das Statusregister 3 


opierschutz - schon das Wort 
K: eine fast magische Faszi- 

nation auf viele Computerbe- 
sitzer aus. Sie verstehen nicht, wie so 
etwas funktioniert und betrachten den 
Begriff, als käme er aus einer anderen 
Welt. Den Leuten, die sich damit aus- 
einandersetzen, im allgemeinen als 
»Cracker« bezeichnet (nicht jedoch 
»Hacker«), haftet ein zweifelhafter Ruf 
an, der sie an die Grenze der Illegalität 
oder manchmal sogar darüber hinaus 
bringt. Dieser Ruf wird von vielen Soft- 
warehäusern geschürt, da sie um die 
Verkaufszahlen ihrer Programme 
fürchten. Dabei wird meistens jedoch 
übersehen, daß der durchschnittliche 
Cracker nicht die Absicht verfolgt, Soft- 
warehäuser in den Bankrott zu trei- 
ben. Vielmehr will er meist sein eige- 
nes Können an dem des Kopierschutz- 
Programmierers messen undso einen 
privaten Wettkampf ausfechten. Wir 
wollen mit diesem Beitrag auch kei- 


Schutz — wie lange noch? 


Wir sind noch nie vor »heißen 
Eisen« zurückgeschreckt. Auch 
ein Beitrag wie dieser, der sich 

mit Grundlagen von Kopier- 
schutz-Methoden beschäftigt, 
birgt natürlich die Gefahr des 
Mißbrauchs. 


neswegs Rezepte zum Entfernen des 
Kopierschutzes geben, sondern Tech- 
niken aufzeigen, die heute zum 
Schutz von Programmen Verwendung 
finden. Ähnlichkeiten mit zur Zeit 
benutzten Kopierschutzmechanis- 
men sind natürlich nicht zu vermei- 
den. 

Schon unter Basic gibt es einige 
Wege, Fremden die Einsichtin ein Pro- 
gramm zu verweigern. Mit einem 
»POKE 8&172,0« läßt sich der ersten 
Programmzeile die Nummer 0 geben. 
Dieser Eingriff hat zur Folge, daß diese 


Zeile nichtmehr zzulisten und zu editie- 
ren ist, sehr wohl aber ausgeführt 
wird. In dieser Zeile bringt man bei- 
spielsweise eine Befehlsfolge unter, 
die eine Binärdatei lädt und startet. 
Um Kopierwütige zu verwirren, sollte 
man in den sichtbaren Zeilen ein von 
der Logik her nicht funktionsfähiges 
Programm ablegen. Der POKE nutzt 
eine Lücke des Basic-Interpreters, da 
dieser für Zeilen mit der Nummer 0 
eigentlich gar nicht gerüstet ist. 
Genau soeinfach, wie dieser »Schutz« 
zu erzeugen ist, läßt er sich aber auch 
wieder entfernen. Der »POKE 
&172,zeilennummer« gibt der Zeile 0 
nämlich die Nummer <zeilennum- 
mer>, und wer es noch einfacher 
haben will, gibt nur den Befehl 
RENUM ein. 

Die meisten Schutzmechanismen 
basieren aber darauf, daß eine Lade- 
routine das Hauptprogramm nach- 
lädt. Dieser wichtigste Programmteil 
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Bitte gehen Sie einen Satz ein 
Bitte gehen Sie das Codierwort ein ;? C; 


Text, H 
ASCHI-Herte : 
KOR 


Code 
ASCII-Herte 


2 Happy Computer 
Wa Lonnukher 
da bı Da Sa Ya zu da Er En Io 95 7a 65 72 


ıCom TE ass 
: 4a Br 60 bo 5 9a 65 7a zu 83 bo du 93 73 


Ko@ittörte } On Be Tb Bo dc da ds Ib fe 


‚anpuber-Spass 


Bil 


Bild 2. Auch Texte lassen sich mit XOR 
bis zur Unkenntlichkeit chiffrieren 


jedoch ist in keinem systemkonformen 
Dateiformat abgelegt. Speziell bei Dis- 
kettensoftware wird oft zusätzlich eine 
fehlerhafte Spur abgefragt, die in her- 
kömmlicher Weise nicht zu kopieren 
ist. Der Schwachpunkt jedes dieser 
Schutzsysteme ist das Ladepro- 
gramm, daes im normalen Format vor- 
liegen muß. Schafft es ein Cracker, in 
diesem Ladeprogramm hinter der 
Laderoutine eine eigene Routine zur 
Speicherung einzubinden, ist der 
Schutz meist hinfällig. Dieser Zugang 
läßt sich auf einigen Wegen mehr oder 
weniger stark erschweren. Da in 
Maschinensprache viel mehr Schutz- 
methoden denk- und realisierbar sind, 
werden nur die wenigsten Lader in 
Basic geschrieben. Um zu verhin- 
dern, daß der Cracker ein Ladepro- 
gramm zu leicht durchschaut, sind 
solche Routinen oft mit speziellen Ver- 
fahren verschlüsselt. Dafür wurden 
verschiedene Methoden entwickelt, 
die einrelativhohes Maß aan Sicherheit 
bieten. Darunter fällt zum Beispiel ein 
System, das vor einiger Zeit in den 
USA entstand und sich recht gut 
bewährte. Es benutzt zwei »Schlüs- 
sel«. Als Schlüssel dienen Zahlen 
oder Buchstabenfolgen, mit denen 
man einen Text codiert beziehungs- 
' weise wieder decodiert. Genauso wie 
man mit einem Türschlüssel eine Tür 
öffnet, öffnet solch ein Schlüssel den 
Zugang zu den Daten. Einer der 
Schlüssel ist dem Benutzer bekannt, 
es handelt sich um den sogenannten 
Benutzerschlüssel. Den zweiten 
Schlüssel kennt der Empfänger der 
Daten (das Ladeprogramm im Arbeits- 
speicher des Computers), da er nur 
mit ihm die Daten wieder entschlüs- 
seln kann. Natürlich eignen sich sol- 
che Verfahren nur bedingt für die 
Codierung von Programmen. Hier 
macht man sich die Arbeitsweise des 
Computers zunutze. Die CPU unter- 
scheidet nur zwischen zwei Signalen 
beziehungsweise Zuständen (Ja/nein, 
wahr/falsch, 1/0 oder Strom/kein 
Strom). Da jedes Datenwort (Byte) aus 
jeweils acht dieser Zustände besteht, 
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Bild 1. Die Hand- 
habung des 
Lenslok-Prismas 
ist nicht gerade 
einfach 


lassen sich zwei solcher Worte mit 
Hilfe der booleschen Algebra logisch 
verknüpfen. Eine logische Verknüp- 
fung erzeugt nach bestimmten Regeln 
aus zwei Eingangsaussagen ein 
Ergebnis. Eine diese Verknüpfungen 
ist XOR (eXklusives OdeR). XOR setzt 
ein Bit, wenn die Eingänge unter- 
schiedliche Werte aufweisen; sind sie 
jedoch identisch, wird das Bit im 


Ergebnis null. 
Beispiel 1: 
10100010 
XOR 01110100 
ergibt 11010110 
Beispiel 2: 
11010110 
XOR 01110100 
ergibt 10100010 


Diese Beispiele verdeutlichen das 
Besondere an dieser Verknüpfung: 
Behandelt man das Ergebnis der 
ersten Verknüpfung nochmals mit 
dem gleichen Wert, ergibt sich wieder 
der Ausgangswert. Den Zeitaufwand, 
den die Entschlüsselung eines Pro- 
gramms verursacht, selbst wenn es 
einen großen Teil des Speichers 
belegt, bemerkt der Benutzer kaum. 
Solche Entschlüsselungs-Routinen 
arbeiten nämlich meist in Maschinen- 
code und verarbeiten mehrere tau- 
send Byte pro Sekunde. Bei der Ver- 
wendung von XOR-Schleifen sind der 
Fantasie fast keine Grenzen gesetzt. 
So lassen sich selbstverständlich 
mehrere Verknüpfungen mit unter- 
schiedlichen Werten hintereinander 
aufrufen oder gar ineinander ver- 
schachteln. Geben Sie im Beispielpro- 
gramm (Listing) ein beliebiges Wort 
Ihrer Wahl ein. Das Ergebnis ist ohne 
Kenntnis des Codewortes kaum zu 
erraten (siehe auch Bild 1). Jetzt 
geben Sie in das Beispielprogramm 
einmal ein Codewort aus lauter glei- 
chen Buchstaben ein. Am Ergebnis 
werden Sie den Nachteil dieser Me- 
thode erkennen: Gleiche Werte sind 
auch nach der Verknüpfung gleich. 


RETURN WHEN BENDY 


In vielen Programmen kommen 
Null-Bytes am häufigsten vor. Findet 
man also eine Häufung gleicher 
Bytes, handelt es sich also wahr- 
scheinlich um Nullen und man kann 
an ihnen unschwer »erraten«, mit wel- 
chem Wert das Programm verschlüs- 
selt ist. 

Ähnliche Verfahren finden trotzdem 
als Kopierschutz Verwendung. Zur Bil- 
dung des Schlüsselwerts benutzt man 
aber kein festes, im Programmcode 
enthaltenes Byte. Man nimmt viel- 
mehr das Refresh-Register des Z80 
zur Hilfe, das sich nach jedem Taktzy- 
klus des Z80 um den Betrag 1 erhöht 
(der Zyklus entspricht dem Arbeitstakt 
der CPU). Lädt man zunächst einen 
festen Wert in dieses Register und 
liest es nach einer genau definierten 
Zeit wieder aus, erhält man einen ver- 
änderten Wert, der ausschließlich von 
der Laufzeit des Programms abhängig 
ist. Jede noch so geringe Veränderung 
des Programms hat zwangsläufig Ein- 
fluß auf die Anzahl der benötigten 
Takt-Zyklen. Nutzt man nun den so 
ermittelten Wert zur Decodierung, läßt 
das zwangsläufig falsch entschlüs- 
selte Progamm den Computer 
augenblicklich »abstürzen«, Das Ziel, 
jede Veränderung im Programm zu 
unterbinden und somit den Kopier- 
schutz zu erhalten, ist mit diesem 
System fast erreicht. Aber natürlich ist 
auch dieser Schutz nicht vollkommen, 
er erschwert Crackern lediglich ihr 
Handwerk. Man kann beispielsweise 
in der zeitabhängigen Schleife 
Befehle gegen andere austauschen, 
die genausoviel Zeit benötigen, um so 
die Laufzeit nicht zu verändern, das 
Programm aber nach seinen Wün- 
schen umschreiben. 

Dieses Verfahren wurde beim CPC 
erstmals im »Speedlock-Protection- 
System« für Kassetten eingesetzt und 
fand durch seine neue Verfahrens- 
weise recht weite Verbreitung. Doch 
gerade in der gemeinsamen Nutzung 
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"60 Zantirneter High- 

h’Szann erwarten Sie! Ihr 
Ooers-Postar ist im Abon- 

arats enthalten und ge- 
Ihnen, auch wenn Sie Ihre 
ö widerrufen sollten. 


AUFBRUCH IN EINE NEUE DIMENSION 


mit »68000er«, dem Magazin der neuen 
Computer-Generation 


» Programmiersprachekurse für Basic, C, 
Modula und Assembler. 


» Bauanleitungen für professionelle Hard- 
ware-Erweiterungen. 


» Spiele-Spaß und -Spannung auf höchstem 
Niveau. 


Ihre hot-line zur Spitzentechnologie von 
AtariST, Amiga, Macintosh und Sinclair QL. 


FÜR EIN KOSTENLOSES PROBEEXEM 

DES »68000er«-MAGAZINS 
JA, ich möchte »68000er«, das Magazin der neuen Commpur 
ter-Generation, kennenlernen. 
Senden Sie mir bitte die aktuellste Ausgabe kostenlos ala Pfo- 
beexemplar. Wenn mir »68000er: tt undich es regelmäßig 
weiterbeziehen möchte, brauche ich nichts zu tun: Ich erhalte es 
dann regelmäßig frei Haus per Post. Außerdem nutze ich den 
Abonnement-Preisvorteil von 8% und bezahle pro Jahr nur 
77,— DM statt 84,— DM im Einzelverkauf. 


Vorname. 
Name __—_ 
Straße 

PLZ. Ort 


Datum 1. Unterschrift EN 


Mir ist bekannt, daß ich diese Bestellung innerhalb von 8 Tagen 
bei der Bestelladresse widerrufen kann und bestätige dies 
durch meine zweite Unterschrift. Zur Wahrung der Frist genügt 
die rechtzeitige Absendung des Widerrufs. 


Datum 2. Unterschrift ___ 


‚Gutschein ausfüllen und absenden an: Markt& Technik Verlag 
'Aktiengesellschaft, Vertrieb, Postfach 1304, 8013 Haar 


eines Schutzes liegt auch eine große 
Gefahr: Ist er erst einmal geknackt, 
betrifft das nicht nur ein Programm - 
vielmehr sind auf einen Schlag gleich 
ganze Software-Serien den Raub- 
kopierern schutzlos ausgeliefert. So 
erging es einem Softwarehaus, das 
sein ganzes Vertrauen in Speedlock 
setzte. Fast alle Programme des 
Labels waren mit diesem Lader verse- 
hen. Deshalb gibt es seit längerem 
einige käufliche Kopierprogramme, 
für Speedlock-geschützte Kassetten. 
Da es aber inzwischen als Reaktion 
darauf diverse Variationen des Speed- 
lock gibt, arbeiten diese Kopierpro- 
gramme nur bei einem Teil korrekt. 


Einfache 
Direktkopien 


Eine äußerst einfache, aber oft 
genauso wirkungsvolle Kopierme- 
thode für Kassetten-Software besteht 
darin, zwei Kassettenrecorder direkt 
miteinander zu koppeln und so eine 
identische Kopie vom Orginalband zu 
erhalten. Dabei wird der Kopierschutz 
mitkopiert und braucht so nicht ent- 
fernt zu werden. Auch diesen Prakti- 
ken arbeiteten die Schutz-Entwickler 
entgegen. Auch Speedlock verwendet 
einen Schnell-Lader (daher sein 
Name), der zwar eine Direktkopie vom 
Originalband nicht verhindern kann, 
der jedoch ‚oft gewährleistet, daß 
durch beim Überspielen unvermeidli- 
che Qualitätsminderungen Kopien 
nicht fehlerfrei lesbar sind. 

Andere Autoren kamen auf weniger 
elegante Lösungen. Das Lenslok- 
System beispielsweise basiert weni- 
ger auf einem softwaremäßigen 
Schutz (der allerdings in Form eines 
Turboladers zusätzlich vorhanden ist), 
als mehr auf einer Hardwarelösung: 
Dies sind in diesem Falle spezielle 
Prismen, durch die man auf dem Bild- 
schirm eine Buchstabenkombination 
erkennt (Bild 2). Diese Buchstaben 
sind bei jedem Start andere und müs- 
sen als Codewort via Tastatur eingege- 
ben werden. Dafür stehen dem Benut- 
zer drei Versuche zur Verfügung. 
Schafft er es nicht, die korrekte Kombi- 
nation einzugeben, löst das Pro- 
gramm einen Reset des Computers 
aus. 

Selbst wenn man es schafft, das 
Programm zu kopieren, läßt es sich 
ohne die »Hardware-Erweiterung« 
(das Prisma) nicht nutzen. Einen 
schwerwiegenden Nachteil stellt die 
extreme Benutzerunfreundlichkeit 
dar. Erstens gibt es zu verschiedenen 
Programmen natürlich auch verschie- 
dene Prismen. Hat man also aus der 
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»Glassammlung« nach zahlreichen 
erfolglosen Versuchen (und ebenso 
vielen erneuten, quälend langen 
Ladevorgängen) endlich das pas- 
sende Prisma herausgesucht, steht 
man unvermittelt vor der zweiten 
Hürde. Die Prismen sind qualitativ teil- 
weise so schlecht gefertigt (siewerden 
aus Kostengründen nicht geschliffen 
sondern aus Kunststoff gegossen), 
daß man - wenn überhaupt - die bei- 
den Buchstaben nur mit Schwierigkei- 
ten erkennt. Dieses System ist für 
beide Datenträger (Kassette und Dis- 
kette) erhältlich, während Speediock 
zunächst nur Kassettensoftware zu 
schützen trachtete. Inzwischen haben 
die Speedlock-Entwickler, D. Looker 
und Aubrey Jones, auch eine Disket- 
tenversion ihres Cracker-Schrecks 
herausgebracht. Es basiert auf einer 
einfachen Fehlerspur-Abfrage. Die 
gesamte Diskette ist in einem norma- 
len Format gehalten. Selbst die Pro- 
grammteile liegen als normale 
Dateien vor. Nur das Hauptprogramm 
ist mit einem Wert über die XOR- 
Verknüpfung verschlüsselt. Speed- 
lock selbst besteht aus zwei Dateien, 
der Laderoutine und einer Datei mit 
dem sinnesschwangeren Namen 
»AAAA.BIN«. Die Laderoutine initiali- 
siert die Farben und aktiviert das 
Controller--ROM. Danach lädt es den 
zweiten Teil des Kopierschutzes, eben 
jene Datei »AAAA.BIN«. Der eigentli- 
che »Witz« ist, daß die XOR-Schleife 
zur Entschlüsselung des zweiten Teils 
in keiner der beiden Binär-Dateien zu 
finden ist. Hier haben sich die Ent- 
wickler etwas Besonderes einfallen 
lassen. Doch zur Erklärung müssen 
wir etwas weiter ausholen. 


Routine im Header 


Aus Kompatibilitätsgründen haben 
die Programmierer des DOS den 
Datei-Header des Kassetten- 
Managers ohne Änderung übernom- 
men. Dieser Header geht den Daten 
einer Datei voran. In ihm sind unter 
anderem Lade-, End- und Start- 
adresse gespeichert, einige Bytes 
jedoch bleiben ungenutzt (umfas- 
sende Informationen darüber vermit- 
telt Ihnen unser Beitrag auf Seite 31 
dieser Ausgabe). Da der Header ab 
‚Adresse A750 hex in den Arbeitsspei- 
cher geladen wird, haben die 
Speedlock-Entwickler ihre XOR- 
Routine dort plaziert. Genau gesagt 
liegt die Routine im »Benutzer-Feld«, 
das von A771 bis A794 hex reicht und 
dem Anwender bei der Speicherung 
zur freien Verfügung steht. Diese 
Routine entschlüsselt die Datei 


»AAAA.BIN« und startet danach das 


darin enthaltene Programm. Um 
Cracker, die so weit vorgedrungen 
sind, durch Demotivation zur Aufgabe 
ihres unschönen Vorhabens zu bewe- 
gen, befindet sich dort eine weitere, 
zeitabhängige Schleife. Sie entschlüs- 
selt diesen Programmteil ein zweites 
Mal, nun aber abhängig vom Ergebnis 
der vorangegangenen Entschlüsse- 
lung. Danach erfolgt die Abfrage der 
fehlerhaften Spur und das Hauptpro- 
gramm wird geladen, wiederum ent- 
schlüsselt und endlich gestartet. 

Ein weiterer diskettengestützter 
Kopierschutz ist der P.M.S.-Lader, der 
in jüngster Zeit bei einigen Program- 
men Verwendungfindet. Er greift nicht 
auf Dateien zu, sondern lädt alle 
Daten, wie Titelbild und Hauptpro- 
gramm, direkt aus den Diskettensek- 
toren. Der Start des Ladeprogramms 
erfolgt oft mit dem Basic-RSX-Befehl 
ICPM, was keineswegs das Booten 
des Betriebssystems CP/M zur Folge 
hat. Der Befehl startet in diesem Fall 
nur den Lader auf etwas ungewöhn- 
liche Weise. Dieses Maschinencode- 
Programm darf höchstens 512 Byte 
lang sein und muß im ersten Sektor (41 
hex) der Spur Oliegen. Bei Ausführung 
des RSX-Befehls ICPM geschieht 
nichts anderes, als daß das Betriebs- 
system diesen ersten Sektor der Spur 
O nach Adresse 100 hex lädt und 
anschließend die Kontrolle an diese 
Adresse übergibt. Damit läuft nun 
bereits die Laderoutine und lädt die 
einzelnen Teile des Hauptprogramms 
aus den Sektoren. Die Diskette liegt in 
einem relativ gebräuchlichen Format 
vor, das heißt jede Spur umfaßt neun 
Sektoren zu je 512 Byte. Der PM.S.- 
Lader verwendet aber nur acht dieser 
neun Sektoren als Datenspeicher, pro 
Spur sind also nur vier KByte des Pro- 
gramms gespeichert. Der neunte Sek- 
tor jeder Spur ist in zwei Hälften zu je 
256 Byte aufgeteilt. Die erste Hälfte 
belegt jeweils eine kleine Routine, die 
der Lader mit einem CALL als Unter- 
programm aufruft. Die Routinen erle- 
digen diverse Aufgaben. Sie setzen 
zum Beispiel die Farben oder bauen 
den Bildschirm - für PM.S. charakteri- 
stisch - von oben nach unten auf. Die 
zweite Hälfte dient als Adressenspel- 
cher. Sie enthält, natürlich verschlüs- 
selt, die Adressen für den zu benut- 
zenden Speicherbereich und die 
Startadresse der Hilfsroutinen. Dar- 
über hinaus findet der Lader hier die 
Werte zur Decodierung des nächsten 
Datensektors. 

Damit aber noch nicht genug der 
kleinen »Gemeinheiten«. Nachdem 
das Laden des gesamten Programms 
abgeschlossen ist, startet der Lader 
erst eine »Haupt-Test-und-Start- 
Routine«, die er auf der letzten Spur 
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40 ‘ Dliver Suttorp, Johannisstr. 64 L&DESI „i,1)) XOR ASCMID&(codet,i,1) 
5a " 5024 Pulheim, Tel.: 02238/56368 [E27C] C24BE1 
eu tsasaı | 19@ NEXT (75F21 
70 MODE 2 [FBFCI | 200 stg#=ergs:G0SUB 270: GOSUR 230 C1Aaal 
[) "Bitte geben Sie einen Satz ein 210 CALL &BBQ&: RUN L985C1 
exts ta8a21 | 228 ” #*» ASCII-Werte in Hex ausgeben EDBBB] 
Bitte geben Sie das Codierwort 230 FRINT:PRINT"ASCII-Werte L713E1 
ein : "codes 122423 | 240 FOR ir TO,2,PRINT HEXF (ASC IMIDS (stg 
100 »=LEN (codes) :z=LEN(text$) IF 2>20 TH 1,19),2)" "33NEXT [14061 
EN 70 canzaı | 250 PRinTRETURN CABBC1 
11@ LOCATE 1,5:PRINT "Text<B>: "; [7302] | 268 ° *** Buchstaben ausgeben Lecacı 
120 stosetexts:G0sub 278: 50805 250 [33541 | 27@ FOR i=1 TO zePRINT CHRS(1)HMIDE(StgE 
130 PRINTIRRINTTXORN PRINT: PRINT" Code<g> int) a "S22" NEXT taS7E1 
tecaeı | ?Rm RrtüRn 617341 
RN For = =u TO a/xschecttcodessNEXT:eode | Listing. Mit diesem kurzen Beispiellisting können Sie 
150 stg$=codet:G0SUB 270: GOSUB 230 L3AaCI ein wenig zur Probe codieren 


findet. Dieses Programm fragt eine 
bestimmte fehlerhafte Spur der Dis- 
kette ab und fabriziert, wenn diese 
nicht auffindbar ist, einen farbenfro- 
hen »Absturz«. Ist auch diese letzte 
Hürde überwunden, startet das 
(Spiel-)Programm, das nach so vielen 
Mühen nun endlich richtig im Spei- 
cher steht. 

Allein das Vorhandensein dieses 
letzten Programmteils mit seinem 
abschließenden Test zeigt, daß die 
Programmierer eines Kopierschutzes 
dem Erfolg ihrer Bemühungen nie voll 
vertrauen. 

Beispiele für Schutzmechanismen, 
die ihre Aufgabe nicht ganz erfüllen, 
sind zwar durch intensive Programm- 
kontrollen seitens der Softwarehäuser 
rar geworden, ab und zu taucht aber 
doch einmal wieder einer auf und ver- 
ursacht in der Regel ein hämisches 
Grinsen der Kopierwilligen. 

Interessant ist es, die Entwicklung 
von Schutzmechanismen bei Disket- 
tensoftware im Laufe der Jahre zu ver- 
folgen. Begonnen hat alles mit einfa- 
chen Veränderungen der Sektor-IDs. 
Eine einzelne Sektornummer wird 
dabei auf der gesamten Diskette 
geändert. Unter anderem arbeitet ein 
bekanntes Textverarbeitungspro- 
gramm nach diesem Prinzip. In die- 
sem Sektor befindet sich eine kleine 
Maschinencode-Routine, die das 
Hauptprogramm bei jeder Disketten- 
operation aufruft. Findet das Pro- 
gramm diese Routine nicht, liegt dem- 
zufolge eine »Raubkopie« vor und es 
beginnt, die Daten der Diskette nach 
und nach zu zerstören. Der Vorteil die- 
ser subtilen »Langzeitwirkung« liegt 
darin, daß sich eine vermeintlich ein- 
wandfreie Kopie erst nach einiger Zeit 
als unbrauchbar erweist. 

Die Entwickler anderer Disketten- 
Software beließen es nicht bei nur 
einem Sektor. Praktisch die ganze Dis- 
kette ist in einem »Fremdformat« 


beschrieben. Dabei ist der Fantasie 
bei Vergabe von Sektornummern 
kaum eine Grenze gesetzt. Obsienun 


von F1 bis F9 hex oder von 10 bis 18 
hex numeriert sind, ist vollkommen 
egal. NurNummern der normalen For- 
mate scheiden aus, weil Kopien sonst 
mit einfachsten Mitteln herzustellen 
sind. 

Fast gleichzeitig wurde entdeckt, 
daß man mehr als 40 Spuren auf einer 
Diskette unterbringen kann. Auf den 
3-Zoll-Disketten lassen sich bis zu 43 
Spuren beschreiben. Da einfache 
Kopierprogramme, wie die mit dem 
Laufwerk gelieferten Disckit oder 
Disccopy nur die Spuren O0 bis 39 
erkennen und verarbeiten, konnte 
man in diese »verborgenen« Spuren 
wichtige Teile des Programms ausla- 
gern. 

In diesem Zeitraum kam die Disk- 
Utility »Oddjob« von Pride Utilities auf 
den Markt. Dieses Softwarepaket ent- 
hielt unter anderem ein Kopierpro- 
gramm, mit dem sich auch Formate 
mit »illegalen« Sektornummern dupli- 
zieren ließen. Nur Spuren jenseits der 
Nummer 39 waren auch fürOddjob ein 
»Rätsel«. Dieses Manko behoben fin- 
dige Cracker jedoch recht bald. 


Rüstungsspirale 


Die Softwareschützer waren also 


wieder gefordert. Sie mußten sich im, 


Wettlauf mit den Herstellern von 
Kopierprogrammen etwas Neues ein- 
fallen lassen. So wurden kurz darauf 
Sektoren mit größeren Kapazitäten als 
den üblichen 512 Byte verwendet: Bis 
zu 4096 Byte paßten auf einmal in 
einen Sektor. 

All diesen Mechanismen wohnt ein 
großer Vorteil inne. Bei der Entwick- 
lung des Schutzes konnten die Pro- 
grammierer trotz der ungewöhnlichen 
Formate auf Betriebssystemroutinen 
zurückgreifen und mußten sich so 
nicht mit der komplizierten und zeitkri- 
tischen Programmierung des FDC 
herumschlagen (siehe auch unseren 
Beitrag auf Seite 38 dieser Ausgabe). 
Die vorhandenen ROM-Routinen sind 


so flexibel, daß durch entsprechende 
Änderung von Tabellen und Überga- 
beparametern jeder bislang beschrie- 
bene Schutz zu realisieren ist. Der 
Programmierer spart bei der Entwick- 
lung des Schutzes viel Zeit und das 
Programm muß keine aufwendigen 
eigenen Laderoutinen enthalten, was 
dem ohnehin arg begrenzten Spei- 
cherplatz des Computers zugute 
kommt. Das bedeutet natürlich auch, 
daß Kopierer ein leichtes Spiel haben, 
da sie mit ihren Hilfsprogrammen 
ebenfalls auf die DOS-Routinen 
zugreifen können. 

Aus diesem Grund häufen sich in 
letzter Zeit Programme, deren Lader 
direkt auf den FDC zugreifen. Kunst- 
griffe wie »gelöschte Data-Adress- 
Marks« finden sich immer öfter auf 
käuflichen Disketten. Wo soll das 
Ganze hinführen? Man könnte mei- 
nen, daß dies eine Entwicklungsspi- 
rale ohne Ende sei. Jedes noch so 
intelligente Kopierprogramm wird von 
einem noch besseren Schutz überli- 
stet (oder umgekehrt). Doch ein Ende 
ist absehbar. Da der FDC ein recht 
intelligenter Bursche ist, haben die 
Entwickler des Chips viele komplexe 
Funktionen in einfache Befehle 
gepackt. Genau dort ist die Grenze 
gezogen, über die niemand hinaus- 
kommt. Sein begrenzter Befehlssatz 
schränkt auch seine Fähigkeiten ein. 
Beim CPC ist der Controller, im 
Gegensatz beispielsweise zum Com- 
modore 64, nicht völlig frei program- 
mierbar. Schon jetzt ist die Flexibilität 
des FDC soweit ausgeschöpft, daß 
neue Methoden zum Programm- 
schutz nur noch schwer denkbar sind. 
Die Zukunft der Schützer sieht also 
alles andere als rosig aus, sie stehen 
auf verlorenem Posten. Vielleicht 
gehen deshalb immer mehr Firmen 
jetzt dazu über, ihre Produkte im wahr- 
sten Sinne des Wortes »schutzlos aus- 
zuliefern« und auf die Ehrlichkeit des 
Großteils der Benutzer zu vertrauen. 

Wir sollten ihr Vertrauen nicht miß- 
brauchen. (Oliver Suttorp/ja) 
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Ganz einfach: 
Grafik auf dem CPC 


m bei der Programmierung der 

Grafik des CPC überhaupt 

etwas zu erreichen, muß man 
erst einmal deren grundlegenden Auf- 
bau kennen. 

Der Bildschirm des CPC ist in allen 
drei Bildschirmmodi (Modus 0 bis 2) in 
ein feines Raster aus Grafikpunkten 
aufgeteilt. Im Modus 2 lassen sich 640 
Punkte horizontal und 200 Punkte ver- 
tikal ansprechen, Modus 1 stellt 320 
Punkte horizontal und 200 Punkte ver- 
tikal zur Verfügung, und Modus 0 bie- 
tet 160 horizontale und 200 vertikale 
Punkte. 

Wie Sie sehen, ist die Zahl der verti- 
kalen Punkte konstant, lediglich die 
Anzahl der horizontalen Punkte vari- 
iert und bestimmt damit die Auflösung 
der Grafik, das heißt, die Anzahl von 
Grafikpunkten pro Flächeneinheit. Je 
geringer die Auflösung der Grafik, 
desto mehr Farben lassen sich auf 
dem CPC darstellen. Der Grund liegt 
darin, weil durch eine geringere Auflö- 
sung weniger Grafikpunkte gespei- 
chert werden müssen und dement- 
sprechend mehr Farbinformationen 
pro Punkt im Bildspeicher abgelegt 
werden können. 

Folgende Rechnung macht dies 
deutlich: 
Auflösung: 

Modus 2: 640 x 200 
Modus 
Modus 0: 160 x 200 = 


128000 Bildpunkte 
64000 Bildpunkte 
32000 Bildpunkte 


Farben: 
Modus 2: 2 Farben = 1 Bit Speicherbedarf 
Modus 1: 4 Farben = 2 Bit Speicherbedarf 
Modus 0: 16 Farben = 4 Bit Speicherbedarf 

Rechnet man nun den Gesamt- 
Speicherbedarf für ein Bild in allen 
drei Modi aus, so erhält man jedesmal 
das gleiche Ergebnis: 
Modus 2: 128000 x 1 Bit = 16000 Byte 
Modus 1: 64000 x 2 Bit = 16000 Byte 
Modus 0: 32000 x 4 Bit = 16000 Byte 

Da der Bildspeicher des CPC 16 
KByte (gleich 16384 Byte) groß ist, 
wird so der Speicherplatz in jedem 
Bildschirmmodus optimal ausgenutzt. 

Die einzelnen Grafikpunkte des 
CPC lassen sich mit den Basic- 
Befehlen manipulieren, indem sie 
über ein rechtwinkliges Koordinaten- 
system angesprochen werden. Die 
Position jedes Punktes legen jeweils 
zwei Werte fest. Der erste Wert (x) gibt 
an, wie weit der Punkt parallel zur hori- 
zontalen Achse des Koordinatensy- 
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Die Grafikbefehle des Schnei- 
der CPC sind im Handbuch teil- 
weise nur unzureichend und 
ohne Beispiele erklärt, Insbe- 
sondere das Handbuch des 
CPC 464 weist in dieser Hin- 
sicht eklatante Schwächen auf. 
Wenn Sie die Grafik des CPC 
beherrschen und beispiels- 
weise auch die relativen Grafik- 
befehlle MOVER, PLOTR, 
DRAWR und TESTR optimal 
einsetzen möchten, ist dieser 
Beitrag genau richtig für Sie. 


stems vom Koordinaten-Nullpunkt 
(Achsen-Schnittpunkt) entfernt ist, der 
zweite Wert (y) gibt den Abstands des 
Punktes parallel zur vertikalen Achse 
vom Köordinaten-Nullpunkt an. 
Sicherlich ist Ihnen dieses Koordina- 
tensystem noch aus der Schulzeit 
bekannt (Bild 1). 

Die Grafikbefehle des CPC arbeiten 
immer mit einem Koordinatensystem, 
das 640 Punkte in der horizontalen 
und 400 Punkte in der vertikalen Rich- 
tung erlaubt, ganz gleich, welche Auf- 
lösung der gewählte Bildschirm- 
Modus tatsächlich zuläßt. So adres- 
sieren beispielsweise im Modus 1 die 
Koordinaten 100/100, 101/100, 100/101 
und 101/101 alle den gleichen Punkt 
auf dem Bildschirm. 

Das Verhältnis von 640 horizontalen 
zu 400 vertikalen Punkten wurde des- 
halb gewählt, weil auf diese Weise ein 
Bildpunkt (zwei übereinanderlie- 
gende Punkte im Modus 2) annähernd 
quadratisch ist, und beispielsweise 
ein Kreis auch wirklich wie ein Kreis 
und nicht wie ein Oval aussieht (das 
optimale Verhältnis von horizontalen 
zu vertikalen Punkten beträgt 640 zu 
480). 

Damit das Grafik-Koordinatensy- 
stem des CPC dem mathematischen 
Koordinatensystem entspricht, befin- 
det sich der Nullpunkt nach dem Ein- 
schalten links unten auf dem Bild- 
schirm und die Koordinaten- 


Positionen zählen von links nach 
rechts beziehungsweise von unten 
nach oben. 

Wenn wir im folgenden die Grafikbe- 
fehle des Schneider CPC bespre- 
chen, teilen wir sie grob in absolute 


undrelative Befehle auf. Beiabsoluten 
Grafikbefehlen werden die Koordina- 
ten eines Bildpunktes immer ausge- 
hend vom Nullpunkt berechnet, bei 
relativen werden die im Befehl ange- 
gebenen Koordinaten ausgehend von 
der aktuellen Position des Grafikcur- 
sors verwendet. Das heißt die momen- 
tane Position des Grafikcursors wird 
als Koordinaten-Nullpunkt betrachtet. 
Einer der wichtigsten Grafikbefehle 
des OPC ist der PLOT-Befehl. Der 
PLOT-Befehl setzt einzelne Grafik- 
punkte auf dem Bildschirm. Das 
Befehlsformat lautet 
PLOT xordinate, yordinate, farbregister 
Für Farbregister ist 1 der Standard- 
wert. Wünschen Sie keine Änderung 
des Farbregisters, brauchen Sie die- 
sen Wert nicht anzugeben. Der Com- 
puter nimmt in diesem Fall immer die 
Farbe des zuletzt gewählten Farbregi- 
sters an. 


Punkt für Punkt 
mit PLOT 


Mit dem PLOT-Befehl und den trigo- 
nometrischen Funktionen COS und 
SIN läßt sich auf einfache Weise ein 
Kreis zeichnen: 

10 DEG:MODE 2 

20 ORIGIN 320,200 

30 FOR a=1 TO 360 

40 PLOT 100xC0S (a) ‚100xSIN(a) 
50 NEXT a 

In diesem kleinen Listing kommt 
bereits der ORIGIN-Befehl vor. ORI- 
GIN verschiebt den Nullpunkt des 
Koordinatensystems an eine beliebige 
Position des Bildschirms, in unserem 
Fall auf die Bildschirmmitte. 

Die Variable <a> enthält den 
aktuellen Winkel für die Sinus- und 
Kosinusfunktion. Um einen komplet- 
ten Kreis zu zeichnen, wird eine volle 
Umdrehung von 360 Grad benötigt. 
Der Sinus von a ist dabei nichts ande- 
res als die Y-Ordinate eines Punktes, 
der Teil eines Kreises mit dem Radius 
1 ist, und der Kosinus von a entspricht 
der X-Ordinate eines Punktes dieses 
Kreises (Bild 2). 

Soll der Kreis einen größeren 
Radius erhalten, so müssen Sie den 
Sinus- und Kosinuswert mit dem 
gewünschten Radius multiplizieren. 
Sie dürfen jedoch diesen Wert nicht zu 
hoch wählen, weil Ihnen nach oben 


und unten nur jeweils 200 Bildpunkte 
zur Verfügung stehen. 

Multiplizieren Sie beispielsweise 
den Sinus- und Kosinuswert mit unter- 
schiedlichen Radien, so erhalten Sie 
eine Ellipse. Ändern Sie das Listing in 
Zeile 40 wie folgt: 

40 PLOT 50xcos(a),150xsin(a) 

Sie können mit den beiden Multipli- 
katoren getrost experimentieren oder 
beispielsweise Zufallsellipsen über 
den Bildschirm verteilen. Versetzen 
Sie den ORIGIN-Befehl über RND- 
Werte und lassen Sie jeweils eine 
Ellipse mit Zufalls-Multiplikatoren 
zeichnen. 


B 
kommt ins Spiel 


Der Befehl MOVE ist mit dem PLOT- 
Befehl eng verwandt und funktioniert 
fast genauso. Mit dem MOVE-Befehl 
läßt sich der Graphikcursor auf die 
angegebene Koordinate setzen, 
jedoch wird kein sichtbarer Punkt an 
dieser Position erzeugt. Das Befehls- 
format des MOVE-Befehls lautet 
MOVE xordinate, yordinate, farbregister 

Der Befehl DRAW zieht eine Linie 
von der aktuellen Position des Grafik- 
cursors bis zur angegebenen Koordi- 
nate. Das Befehlsformat lautet: 

DRAW xordinate, yordinate, farbregister 

Betrachten Sie noch einmal das 
Listing, das einen Kreis zeichnet. 
Ändern Sie die Zeile 40 und setzen Sie 
mit dem MOVE-Befehl den Grafikcur- 
sor in der FOR-NEXT-Schleife immer 
wieder auf Null zurück, dann entsteht 
ein sternförmiges Gebilde. Fügen Sie 
dazu Zeile 35 in das Programm neu 


 y-Wert=150 


100 


x-Wert=250 


Bild 1. Nach diesem Prinzip lassen 
sich Punkte mit zwei Angaben in 
einem rechtwinkligen Koordinaten- 
system adressieren 


=---p--- 2 (250/150) 


Bild 2. So läßt sich 
mit den Funktio- 

nen COS und SIN 

ein Kreis zeichnen » 


ein und ändern Sie Zeile 40 folgender- 
maßen ab: 

35 MOVE 0,0 

40 DRAW 100xC0S(a) ‚100xSIN(a) 

Um die Anzahl der Strahlen zu 
bestimmen, bauen Sie in die FOR- 
Zeile noch einen STEP-Befehl 
(Schrittweite) ein. Dabei gilt: 
Schrittweite = 360 / Strahlenanzahl 

Wünschen Sie beispielsweise 20 
Strahlen, so ändern Sie Zeile 30 zu 
30 FOR to 360 STEP 18 

Nachdem Sie jetzt die drei wichtig- 
sten Grafikbefehle des CPC kennen, 
ist es für Sie ein leichtes, ein beliebi- 
ges Rechteck zu zeichnen. Probieren 
Sie einmal, ein Quadrat mit der Seiten- 
länge von 100 auf die Mitte des Bild- 
schirms ausgeben zu lassen. Dazu 
gibt esmehrere Wege. Wer nicht lange 
zögert und sofort losprogrammiert, 
dessen Listing wird folgendermaßen 
aussehen: 

10 MOVE 270,150 
20 DRAW 370,150 
30 DRAW 370,250 
40 DRAW 270,250 
50 DRAW 270,150 

Doch wer sich ein paar Gedanken 
macht, kann sich mit dem ORIGIN- 
Befehl Umrechnungsarbeit ersparen. 
10 ORIGIN 270,150 
20 DRAW 100,0 
30 DRAW 100,100 
40 DRAW 0,100 
50 DRAW 0,0 

Und der Perfektionist, der gerne im 
Mittelpunkt steht, schreibt: 

10 ORIGIN 320,200 
20 MOVE -50,-50 
30 DRAW 50,-50 
40 DRAW 50,50 
50 DR -50,50 
60 DR 50,-50 
Wenn Ihnen nicht ganz klar ist, wie 


diese Beispiele funktionieren, versu- 
chen Sie am besten mit Papier und 
Bleistift die Bewegungen des Grafik- 
cursors nachzuvollziehen. 


Der Zweck von DEG 


Bis jetzt wurde die Ausgabe des 
Befehls DEG in der ersten Zeile des 
Kreis-Programms noch nicht erläutert. 
Der DEG-Befehl ist nötig, weil das Pro- 
gramm bei den Befehlen COS und SIN 
im Gradmaß arbeiten soll und DEG 
dieses Gradmaß einschaltet. (Der 
CPCistnach dem Einschalten auf das 
Bogenmaß eingestellt, das durch den 
Befehl RAD auch wieder eingeschal- 
tet werden kann). 

Daß der ORIGIN-Befehl den Koordi- 
naten-Nullpunkt festlegt, wurde 
bereits erwähnt, doch man kann mit 
diesem Befehl auch ein Grafikfenster 
bestimmen, dessen linke untere Ecke 
dann dem Koordinaten-Nullpunkt 
gleichgesetzt wird. Das normale 
Befehlsformat von ORIGIN lautet 
ORGIN xordinate, yordinate 

Kommt dann noch ein Grafikfenster 
hinzu, so hat der Befehl folgendes For- 
mat: 

ORIGIN xordinate, yordinate, links, 
rechts, oben, unten 

Ein Beispiel: 

MODE 1:ORIGIN 100,100,100,540,300,100 

Um dieses Fenster auch sichtbar zu 
machen, müssen Sie beispielsweise 
»CLG 3« eingeben. Das Grafikfenster 
wird nun mit der Farbe aus Farbregi- 
ster 3 gefüllt. Der Befehl CLG arbeitet 
ähnlich wie der CLS-Befehl, nur löscht 
er nicht den gesamten Bildschirm, son- 
dern nur das Grafikfenster in der Farbe 
des angegebenen Farbregisters. 


ZT 


Selten benötigt man bei der Grafik- 
programmierung den Befehl TEST. Mit 
TEST können Sie überprüfen, wel- 
ches Farbregister auf der angegebe- 
nen Koordinate verwendet wurde. Das 
Befehlsformat lautet 
TEST (xordinate,yordinate) 


Folgendes kleine Beispiel verdeut- 
licht die Funktion des TEST-Befehls: 
PLOT 100,100,3 
PRINT TEST(100,100) 

Nachdem wir alle absoluten Grafik- 
befehle des CPC behandelt haben, 
wenden wir uns nun den relativen Gra- 
fikbefehlen zu. 

Der Befehl PLOTR setzt wie PLOT 
einen Punkt, nur daß der Computer 
die Koordinaten relativ zur aktuellen 
Position des Grafikcursors betrachtet. 
Befehlsformat: 

PLOTR xversatz, yversatz, farbregister 


Das folgende Beispiel setzt die 
Ecken einer Raute auf den Bildschirm: 
10 PLOT 100,100 
20 PLOTR 10,10 
30 PLOTR -10,10 
40 PLOTR -10,-10 

Auch der Befehl DRAWAR arbeitet 
relativ, Er eignet sich hervorragend für 
dreidimensionale Darstellungen. Das 
Befehlsformat lautet 
DRAWR xversatz, yversatz, farbregister 


Folgendes Programm zeichnet 
einen dreidimensionalen Würfel: 
10 MODE 1 
11 'Bildschirm-Initialisierung 
20 c=1 
21 'c=Farbregister 
30 ORIGIN 320,200 
31 "Definition des Nullpunktes 
40 FOR x=40 10 0 STEP -2 
41 'Schleife zum Aufbau des Wuerfels 
50 MOVE x,x 
51 "linke, untere Quadratecke 
60 IF x(40 THEN o=3:'erster Durchlauf? 
70 GOSUB 110 
‚80 NEXT 
90 e=1:G0SUB 110 
91 "letztes Quadrat zeichnen 
100 END 
110 'UP Quadrat zeichnen 
120 DRAWR 100,0,c 
130 DRAWR 0,100 
140 DRAWR -100,0 
150 DRAWR 0,-100 
160 PLOT x,x,1 
170 RETURN 


Die REM-Zeilen müssen Sie selbst- 
verständlich nicht abtippen; sie gelten 
lediglich der Programm-Dokumen- 
tation. 

Das Bild eines Würfels entsteht 
dadurch, daß die linke untere Ecke 
eines Quadrates auf den Nullpunkt 
zubewegt wird. In Zeile 60 prüft das 
Programm, ob der erste Durchgang 
der Schleife vorliegt, und somit noch 
ein helles Quadrat für den Rand 
gesetzt werden muß. Darauf folgt der 
Aufruf des Unterprogramms »Quadrat 


zeichnen« und das Quadrat wird mit 
der Farbe aus dem aktuellen Farbregi- 
ster gezeichnet. Am Ende der Routine 
wird in die linke untere Ecke ein heller 
Punkt gesetzt, um den dreidimensio- 
nalen Effekt zu verstärken. Wenn die 
Programmschleife abgearbeitet ist, 
wird zum Schluß noch ein helles Qua- 
drat davorgesetzt. 

Der relative Grafikbefehl MOVER 
versetzt den Grafikcursor von seiner 
aktuellen Position um <xversatz> 
Bildpunkte horizontal und um 
<yversatz> Bildpunkte vertikal. Das 
Befehlsformat lautet: 

MOVER xversatz, yversatz, farbregister 

Ein weiterer relativer Befehl ist die 
TESTR-Funktion, die das Farbregister 
anzeigt, das auf dem angegebenen 
Versatz zu der aktuellen Grafikcursor- 
position verwendet wurde. Befehlsfor- 
mat: 

PRINT TESIR(xversatz,yversatz) 

Neben den absoluten und relativen 
Grafikbefehlen gibt es noch einige 
weitere Befehle, die bei der Grafikpro- 
grammierungeine wichtige Rolle spie- 
len. Einer dieser Befehle ist TAG. Der 
TAG-Befehl erlaubt das Mischen von 
Text und Grafik. Sie werden jetzt viel- 
leicht einwenden, daß sich dies ohne- 
hin schon mit dem LOCATE- und 
PRINT-Befehl machen läßt. Doch im 
TAG-Modus funktioniert das Schrei- 
ben etwas anders: Die Zeichen wer- 
den nicht mehr auf die Position des 
Textcursors, sondern auf die Position 
des Grafikcursors ausgegeben, so 
daß sich Text nun auch zwischen den 
Textzeilen darstellen läßt. 

Der Befehl TAGOFF schaltet den 
TAG-Modus wieder aus. Die Formate 
für die beiden Befehle lauten: 

TAG #fenster 
TAGOFF #fenster 

(Wenn das Standardfenster 0 ange- 
sprochen ist, reicht es aus, nur »TAG« 
oder »TAGOFF« zu schreiben.) 

Ein Beispiel zum TAG-Befehl: 

10 TAG 

20 MOVE 100,310 

30 PRINT"Dieser Text steht zwischen 
den Zeilen.”; 

40 MOVER 16,-24 

50 PRINT”Wie sieht das aus ?”; 

60 TAGOFF 

Wie im normalen Grafikmodus 
erfolgt auch in diesem Fall keine Feh- 
lermeldung, wenn eine Textausgabe 
über den Bildrand hinweg erfolgt. 

Wichtig beim Arbeiten mit dem TAG- 
Befehl ist, daß sämliche Steuerzei- 
chen (das sind die Zeichen mit ASCII- 
Werten unter 32) mit einem PRINT- 
Befehl nicht mehr ausgeführt, son- 
dern auf dem Bildschirm angezeigt 
werden. So wird zum Beispiel nach 
jedem PRINT der Cursor nicht auf die 
erste Stelle der nächsten Zeile 


gesetzt, weil dazu die Steuerzeichen 
10 und 13 verwendet werden müßten. 
Auch Befehle wie CLS, PEN oder 
PAPER ignoriert der Computer. 

Die beiden Befehle XPOS und 
YPOS funktionieren wie Variablen, die 
ständig die aktuelle (und absolute) X- 
beziehungsweise Y-Ordinate der Posi- 
tion des Grafikcursors enthalten. Ein 
Beispiel: 

10 MOVE 225,350 
20 PRINT"X-Position 
Position: *;YPOS 

Bislang war, wenn es um Farben 
ging, immer nur von Farbregistern, 
doch nie von den Farbwerten selbst 
die Rede. Der Befehl INK ist dazu 
gedacht, einem Farbregister einen 
bestimmten Farbwert zuzuweisen. Es 
können die Farbregister 0 bis 15 mit 
den Farbwerten 0 bis 26 belegt wer- 
den. Das Befehlsformat lautet: 

INK farbregister, farbwert 

Wird ein zweiter Farbwert angege- 
ben, so blinken diese beiden Farben 
abwechselnd (die Geschwindigkeit 
des Blinkens läßt sich mit dem Befehl 
SPEED INK einstellen). 

Im nachfolgenden Programm wird 
durch das Wechseln der Farbwerte in 
den Farbregistern die Bewegung einer 
Kugel simuliert: 


:"5XPOS, "Y- 


10 MODE 1:DEG 

20 DEPINT a-2 

30 ORIGIN 320,200 

40'FOR i=1 TO 3:INK 1,26:NEXT:INK 0,0 
50 m=100:n=100:0s1:d=3 

60 MOVE O,n 

70 FOR as1 10 360 step 5 

80 IF a(180 THEN PLOT mySIN(a) ,‚nC0S 
(a),c ELSE PLOT ny4SIN(a) ‚nyC0S(a),d 
90 NEXT:c=o+1:IF 0)3 THEN c=1 

100 d=d-1:1F d(1 THEN d=3 

110 m=m-5 

120 IF m)=0 THEN 60 

130 f=10 

140 FOR i=1 TO 3 

150 INK i,f 

160 f=f45:1F f)20 THEN f=5 
170 FOR ws1 10 50:NEXT 
180 NEXT 

190 6070 140 


Die Kugel wird erzeugt, indem meh- 
rere Ellipsen übereinander gelegt und 
jeweils nach einer halben Ellipse die 
Farbwerte der Farbregister gewech- 
selt werden. Ohne Farbwechsel wäre 
auf beiden Seiten der Kugel eine Dre- 
hung von außen nach innen zu sehen. 

Nun sind wir am Ende unseres 
Streifzuges durch die Welt der Grafik- 
programmierung angelangt. In der 
Basic-Version 1.1 des CPC 664 und 
6128 gibt es zwar noch einige zusätzli- 
che Grafikbefehle, diese werden 
jedoch im zugehörigen Handbuch 
ausführlich erklärt, so daß sich eine 
Besprechung an dieser Stelle er- 
übrigt. (Christian Aschoff/ma) 
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Was Sie schon immer 
über GSX wissen wollten 


GSX ist eine Grafikerweiterung 
für CP/M Plus, die im Lieferum- 
fang des CPC 6128 bereits ent- 
halten ist. Da jedoch jegliche 
Dokumentation zu dieser Soft- 
ware fehlt, ist die Art der 
‚Anwendung unter den 6128-Be- 
sitzern relativ unbekannt. Der 
folgende Beitrag erklärt Ihnen, 
was es mit GSX auf sich hat. 


urch den rasanten Anstieg von 

Leistung und Geschwindigkeit 

auf dem Gebiet der Computer- 
entwicklung sowie durch den anhal- 
tenden Preisverfall bei elektronischen 
Bausteinen werden auch die Grafikfä- 
higkeiten der Computer immer besser 
und preiswerter. 

So ist Computergrafik inzwischen 
ein Thema, das viele Computer- und 
Nicht-Computerbesitzer mit großem 
Interesse verfolgen. Neue Einsatzge- 
biete in Industrie und Wissenschaft, in 
der Werbung und nicht zuletzt im 
Heimbereich faszinieren und begei- 
stern auch technisch weniger interes- 
sierte Menschen. 

Viele neue Programmiertechniken 
wie zum Beispiel der Einsatz von CAD 
(computerunterstützte Konstruktion) 
und CAM (computerunterstützte Pro- 
duktion) wurden durch hohe Grafik- 
auflösung und eine breite Farbenpa- 
lette erst möglich. 

Die aktuellen Betriebssysteme oder 
zumindest Teile davon, wie der Finder 
des Macintosh oder GEM auf dem 
‚Atari ST und Windows auf dem PC/AT 
arbeiten grafikorientiert, so daß auch 
der Bedienungskomfort fürden Benut- 
zer deutlich gestiegen ist. 

‚Aufgrund dieser Entwicklung erge- 
ben sich natürlich Probleme mit älte- 
ren Betriebssystemen. Da diese 
hauptsächlich für die Ein- und Aus- 
gabe von Texten konzipiert wurden, 
fehlten lange Zeit die Grafikanwen- 
dungen. Dies liegt nicht zuletzt auch 
darin begründet, daß die Entwickler 
der Betriebssysteme Informationen 
über die Arbeitsweise ihrer Routinen 
lange Zeit zurückhielten. 

Dies galt lange Zeit auch für das 
8-Bit-Betriebssysttem CP/M, das 
neben MS-DOS und Unix zu den am 
weitesten verbreiteten Betriebssyste- 
men zählt. 

Doch Digital Research, der Herstel- 
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ler von CP/M, hatte ein Einsehen und 
entwickelte zu der verbesserten 
Betriebssystem-Version CP/M Plus 
die universelle Grafikerweiterung GSX 
(graphics system extension). 

Leider wurde GSX in seiner Lei- 
stungsfähigkeit bislang weit unter- 
schätzt und viel zu wenig beachtet, 
doch das kann sich ändern. 

Beim Kauf des Schneider CPC 6128 
wird nämlich neben den Betriebs- 
systemen CP/M 2.2 und CP/M Plus 
sowie der Programmiersprache Logo 
auch die Grafikerweiterung GSX mit- 
geliefert, die dem CP/M-Plus- 
Benutzer Zugang zur Programmie- 
rung von Grafik unter diesem 
Betriebssystem verschafft. 


(I, 
ein Geheimnis? 


Aus unerfindlichen Gründen bleibt 
GSX jedoch in der begleitenden Doku- 
mentation des CPC 6128 unerwähnt, 
von einer näheren Beschreibung ganz 
zu schweigen. Esfindensich allenfalls 
ein paar Anmerkungen, die auf die 
Leistungsfähigkeit von GSX hin- 
weisen und die Anpassung von bereits 
geschriebenen, professionellen Pro- 
grammen an die Grafikroutinen erläu- 
tern. 

Dieses Verhalten der Firma Schnei- 
der ist insbesondere merkwürdig, da 
sich mit der GSX-Erweiterung recht 
schnell saubere Zeichnungen anferti- 
gen lassen, wie die simple Grafik in 
Bild 1 beweist. 

GSX ist allgemein betrachtet ein 
Programm, das bestimmte Daten- 
strukturen und Anwendungsgebiete 
zusammenfaßt, so daß ein vollkom- 
men Hardware-unabhängiges System 
entsteht, das inzwischen auf vielen 
verschiedenen Computern eingesetzt 
wird. Selbst unter MS-DOS und CP/M 
80 gibt es Implementierungen. 

Bild 2 zeigt, auf welchen Systemen 
GSX mittlerweile eingesetzt wird. 

Zu Beginn möchten wir Ihnen am 
Beispiel von Turbo-Pascal demon- 
strieren, wie die Anpassung der Gra- 
fikerweiterung GSX an das Betriebs- 
system funktioniert. 

Grundsätzlich bestehen zwei Mög- 
lichkeiten, Turbo-Pascal-Programme 
mit dem GSX-Zusatz zu versehen. 

Zum einen können Sie sämtliche 
der mit Hilfe der Compiler-Option 


»COM« erzeugten Turbo-Pascal-Pro- 
gramme einzeln GSX-fähig machen. 
Diese Alternative hat aber den Nach- 
teil, daß Sie die auf diese Weise modi- 
fizierten Programme jedesmal neu 
anpassen müssen, wenn Sie Ände- 
rungen im Quellcode vornehmen. 

Zum anderen können Sie die 
Betriebssystemumgebung von Turbo- 
Pascal selbst verändern, so daß alle 
compilierten Programme sofort aus- 
probiert werden können. Im folgenden 
werden wir diesen Weg für Turbo- 
Pascal-Programme realisieren. 

Zu diesem Zweck müssen Sie 
zuerst einige Dateien auf die Turbo- 
Pascal-Programmdiskette kopieren, 
die später genauer erläutert werden. 

Auf den Systemdisketten des CPC 
6128 befinden sich drei Dateien, die 
Sie auf jeden Fall kopieren müssen. 
Diese sind »gsx.sys«, »assign.sys«und 
»gengraf.com«. 

Des weiteren benötigen Sie minde- 
stens einen Treiber, auf dessen 
Bedeutung wir später noch eingehen 
werden. Sollten Sie die genannten 
Dateien auf Ihrer Turbo-Pascal-Dis- 
kette installiert haben, so geben Sie 
bitte folgende Befehlszeile unter CP/M 
Plus ein: 
gengraf turbo 

Nach einiger Zeit erscheint auf dem 
Bildschirm eine Meldung, die Ihnen 
mitteilt, daß GSX installiert ist. 


Die Installation 
von GSX 


Jetzt können Sie Turbo-Pascal so 
starten, so wie Sie es bislang gewohnt 
waren. Doch werden Sie überrascht 
feststellen, daß Ihnen wesentlich weni- 
ger Speicherbereich für Ihre Pro- 
gramme zur Verfügung steht als zuvor. 
Der Speicherplatz ist deshalb einge- 
schränkt, weil sich nun im Arbeitsspei- 
cher des CPC neben Turbo-Pascal 
auch die GSX-Erweiterung befindet. 
Dadurch fehlen unter der Turbo- 
Pascal-Version 3.0 immerhin fast zwölf 
KByte an freiem Speicherplatz. 

Wenden wir uns nun den grundle- 
genden Eigenschaften von GSX zu. 
GSX erweitert die Eigenschaften von 
CPI/M Plus generell um ein grafisches 
Ausgabegerät. In Wirklichkeit existiert 
dieses Ausgabegerät jedoch nicht. Es 
wird nur der Programmiersprache 
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beziehungsweise dem angepaßten 
Programm als weitere Ausgabeeinheit 
angeboten. Die eigentliche Anpas- 
sung an die tatsächlich angeschlos- 
sene Peripherie wird dann vom GSX- 
System und den sogenannten Trei- 
bern durchgeführt. 

So ist GSX für jedes Peripheriegerät 
geeignet. Es müssen nur die entspre- 
chenden Treiber zur Verfügung ste- 
hen. Diese müssen zusätzlich zu den 
Installationsprogrammen und dem 
GSX-System auf die Arbeitsdiskette 
kopiert werden. 

Auf den Systemdisketten des CPC 
6128 befinden sich folgende Treiber: 
ddmodeO.prl 
ddmodel.prl 
ddmode2,prl 
dd-dmpi.prl 
ddfx1r7.prl 
ddshinwa.prl 
ddhp7470.prl 

Die Dateien »ddmode0«, »ddmodei« 
und»ddmode2« sind die Treiber für die 
drei Bildschirmmodi des CPC (MODE 
0, MODE 1 und MODE 2). 

Der Treiber »dd-dmpi« eignet sich 
für Ausgaben auf den Schneider- 
Drucker DMP 2000 und »dafxlr7«istfür 
den Ausdruck auf Epson-Druckern 
beziehungsweise Epson-kompatiblen 
Druckern vorgesehen. 

Die Datei »ddshinwa« ist für spe- 
zielle Peripherie vorhanden, die den 
Shinwa-Mechanismus benutzt, und 
»ddhp7470« bedient den Hewlett- 
Packard-Plotter 7470 und kompatible 
Geräte. 

Die Namen der im Zusammenhang 
mit GSX verwendeten Treiber müssen 
sich in der ASCII-Datei »assign.sys« 
befinden. In dieser Datei sind auch die 
Gerätenummern gespeichert, durch 
deren Aufruf ein bestimmter Teil der 
Peripherie angesprochen wird. Dabei 
ist es wichtig, daß die Treiber der 
Größe nach, mit dem längsten begin- 
nend, aufgeführt sind. 

GSX lädt nämlich beim ersten Aufruf 
den ersten Treiber in den Programm- 
speicher und reserviert den Speicher- 
platz für diese Datei. Sollte später ein 
anderer Treiber benötigt werden, so 
wird dieser in diesen reservierten 
Arbeitsbereich geladen. Aus diesem 
Grund darf der später benötigte Platz 
nicht größer sein als der zuvor defi- 
nierte. Andernfalls könnte das Be- 
triebssystem abstürzen. 

Die Gerätenummern werden in der 
Regel nach folgendem Prinzip 
benutzt: 

01 bis 10: Bildschirm 
11 bis 20: Drucker 
21 bis 30: Plotter 

Als Demonstrationsbeispiel für die 
‚Anwendungen von GSX dient uns ein 
Turbo-Pascal-Programm, dessen ein- 
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fache Aufgabe es ist, auf dem Bild- 
schirm unter CP/M Plus einen kurzen 
Text anzuzeigen und ein Rechteck zu 
zeichnen. 

GSX ist aber nicht auf Pascal festge- 
legt, sondern arbeitet grundsätzlich 
mit jeder Programmiersprache 
zusammen beziehungsweise mit 
jeder Datei mit der Extension »com«, 
die es erlaubt, Systemaufrufe zu pro- 
grammieren. 

GSX arbeitet wie die Basic-Grafik 
des CPC mit einem zweidimensiona- 
len Koordinatensystem, dessen Null- 
punkt sich links unten auf dem Bild- 


Bild 1. Fix gezeichnet: Ein Häuschen 
unter CP/M und GSX 
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Bild 3. Sechs verschiedene Füllmuster 
und sechs verschiedene Schraffuren 
beherrscht GSX 


schirm befindet. Die beiden Koordina- 
tenwerte x und y können jeweils Werte 
von 0 bis 32767 annehmen. 

Einige Fähigkeiten von GSX werden 
allerdings nicht durch alle Treiber 
beziehungsweise von allen ange- 
schlossenen Peripheriegeräten unter- 
stützt. Soisteszum Beispielbei einem 
Plotter grundsätzlich möglich, Schrif- 
ten in verschiedenen Winkeln auszu- 
geben; bei einem Drucker oder Moni- 
tor versagt dieses Verfahren jedoch. 

GSX stellt dem angesprochenen 
Programm eine Art Betriebssystem- 
umgebung namens GDOS (graphics 
device operating system) zur Verfü- 
‘gung, die wie CP/M bestimmte 
Systemroutinen anbietet. Ein GSX- 
Grafikbefehl wird dabei ähnlich aufge- 
rufen wie eine Betriebssystemroutine. 

Die Befehle von GSX können Kreise 
oder Kreisausschnitte zeichnen, ver- 
schiedene Farben auswählen, unter- 
schiedliche Linien ziehen, Text in 
mehreren Formaten schreiben, 
gefüllte Flächen malen und vieles 
mehr. 


GSX praktisch 
eingesetzt 


Besonders hervorzuheben sind die 
verschiedenen Darstellungsarten an 
gefüllten Flächen, die in Bild 3 aufge- 
listet sind. So kann man unter GSX 
zum Beispiel mit einem bestimmten 
Muster oder einer gewünschten 
Schraffur ausgefüllte Rechtecke, 
Kreise oder Polygone zeichnen las- 
sen. 

Gesteuert werden die GSX-Kom- 
mandos unter CP/M mit Hilfe des 
BDOS-Aufrufs 115, wobei das Register 
DE die Adresse eines Parameter- 
blocks angeben muß, der die einzel- 
nen Parameter der gewählten Funk- 
tion enthält. 

Dies hört sich jetzt sehr kompliziert 
an, doch das abgedruckte Turbo-Pas- 


Bild 2. GSX wird nicht nur auf dem Computermodell CPC 6128 eingesetzt 
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TURBO-LADER 


Die Programm-Bibliothek für Turbo-Pascal. 


furbo-ader-Grundpaket 

Das Turbo-lader-Grundmodul ist eine 
umfangreiche Programm-Bibliothek für den 
Turbo-Pascal-Programmierer. Sie umfaßt 
zahlreiche ausführlich dokumentierte Proze- 
duren und Funktionen, die der Profi zur 
schnellen lösung seiner Programmierauf- 
gaben verwenden kann und die dem Ein- 
steiger das Erlernen der Pascal-Program- 
mierung erleichtern. 
® Bitmanipulation 
© Optimale Sortierverfahren 
Anwendung von Spline-Funktionen 
® Regressionsanalyse 

Alle Routinen werden im kommentierten 
Quellcode für den Turbo-Pascal-Compiler 
ausgeliefert. 
Software-Anforderun: 
Turbo-Pascal-Compiler. 


Diese Markt&Techrik-Software erhalten Sie in den 
Fachabteilungen der Warenhäuser, bei Ihrem 
‚Computerfachhändler, im Buchhandel oder direkt 
beim Verlog gegen Vorauskasse. Fragen Sie auch 
nach dem neuen Gesamtverzeichnis Frühiohr/Som- 
mer'87. Oder fordem Sie es direkt beim Verlag an. 


703232 


|Markt&Technik Verlog AG, Buchverlag, Hons-Pinsel- 


Turbo-lader Business umfaßt einen komfor- 
tablen Bildschirm-Maskengenerator und eine 
professionelle Dateiverwaltung. Der Masken- 
generator gibt dem Pascal-Programmierer ein 
Werkzeug zur einfachen Bearbeitung von 
Bildschirm-Masken in die Hand. 

Mit diesen beiden Modulen stehen dem 
Anwendungsprogrammierer zwei professio- 
nelle Werkzeuge zur zeit- und kostensparen- 
den Erstellung kommerzieller Anwendungen 
zur Verfügung. Alle Routinen werden im 
kommentierien Quellcode für den Turbo- 
Pascal-Compiler ausgeliefert. 
Software-Anforderun 
Turbo-Pascal-Compiler, Turbo-lader- 
Grundpaket 


Markt&dechnik 


Zeitschriften - Bücher 
Software - Schulung 


Turbo-Lader Science 

Turbo-loder Science ist eine Sammlung 

technisch/wissenschafflicher Funktionen und 

professioneller statistischer Verfahren für die 

Bereiche Medizin, Betriebs- und Volkswirt- 

schaft, Technik und Naturwissenschoften. 

® Arithmetische Operationen zur Verarbei- 
tung komplexer Variablen 

@ Wichtige Funktionen: Potenz, Wurzel, 
trigonometrische und transzendente 
exponentielle Funktion 

© Der Statistikteil: ein praktisches und direkt 
verwendbares Werkzeug zur computer- 
unterstützten, effektiven Datenanalyse. 

Softwore-Anforderung: 

Turbo-Pascal-Compiler, Turbo-lader- 

Grundpaket 
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Farben Code 
Schwarz 0 
Rot 1 
‚Grün 2 
Blau 3 
Zyan 4 
Gelb 5 
Magentarot 6 
Weiß, M 
Kreise Code 
ua 
Kreisbogen 2 
Zylinder 3 
Linien Code 
durchgehend 1 
‚gestrichelt 2 
gepunktet 3 
Strich-Punkt 4 
lange Striche 5 
Strich-Punkt-Punkt 6 
Markierungen Code 
Punkt 1() 
Plus 2 (+) 
Stern 3.(*) 
Kreis 4(0) 
Kreuz 5% 
Schraffuren Code 
‚Senkrecht 1 
Waagrecht 2 
+ 45 Grad 3 
+ 195 Grad 4 
Gitter 5 
Gitter (diagonal), 6 
Füllart Code 
Rahmen 1 
‚Durchgehend 2 (siehe unter! 
Linien) 
Halbton 13 
‚Schraffiert iR 
Darstellung Code 
Invertiert 13 
‚Normal 14 
Cursor Code 
nach oben 4 
nach unten 5 
nach rechts 6 
‚nach links 7 
nach 0,0 8 (Cursor an 
Bildschirm- 
anfang) 
bis Bildschirmende löschen | 9 
bis Zeilenende löschen 10 


Zeichensätze 
verschieden, je nach Geräte- 


typ - Jedoch Standard 1 
Zeichenmodi Code 
Überschreiben 

Transparent 

Ergänzen " 
Löschen 

Arbeitsgeräte Code 
Keyboard 1 
MausWJoystick 2 
Eingabemodi Code 
auf Bestätigung 

‚der Eingabe warten 1 
Eingabe lesen und sofort 

weiter: 


Wertebereiche einzelner GSX-Funktionen 


cal-Listing beinhaltet eine Prozedur 
namens GDOS, die das erklärte Prin- 
zip verdeutlicht. Sie übergeben der 
Prozedur einfach eine Liste von Para- 
metern, die sowohl die Nummer der 
gewünschten Funktion, als auch 
Angaben über die Anzahl der Koordi- 
naten und schließlich die Koordinaten 
selbst enthält. 

Die Tabelle zeigt eine Aufstellung 
der Wertebereiche einzelner Funktio- 
nen, die Ihnen die Grafikprogrammie- 
rung sehr erleichtert. Die Funktions- 
nummern der GSX-Grafikbefehle kön- 
nen Sie dem Listing und der weiterfüh- 
renden Literatur entnehmen. 

Wir hoffen, daß dieser kleine 
Schnupperbeitrag zum Thema GSX 
Sie angeregt hat, sich etwas näher mit 
dieser Grafikerweiterung zu beschäfti- 
gen. Daraus erschließen sich Ihnen 
weitere interessante Anwendungsge- 


biete und Sie werden sehen, zu wel- 
chen erstaunlichen Leistungen GSX 
fähig ist. Größere Kosten entstehen 
dabei nicht, weil GSX dem CPC 6128 
gratis beiliegt. 

Damit Sie auch Gelegenheit haben, 
sich mit GSX näher zu befassen, emp- 
fehlen wir Ihnen den Kauf des GSX- 
Handbuchs von Digital Research, das 
der Verlag Markt&Technik für 39 Mark 
anbietet. Dieses Buch führt den Leser 
detailliert in die Grafikprogrammie- 
rung unter GSX ein. Es ist jedoch in 
englischer Sprache geschrieben. 

Praktische Anwendungen für GSX 
und Routinen zum Einbinden in 
höhere Programmiersprachen finden 
Sie in verschiedenen Büchern über 
die Grafikprogrammierung des CPC 
sowie in den Fachbeiträgen und Kur- 
sen diverser Computerzeitschriften. 

(Markus Zietlow/ma) 


program gsxdenonstration; 


begin 
block[1]:=addr(kontrollfeld); 
block[2]:=addr(ascii_werte); 


kontrollfeld[2] 
kontrollfeld[6] 


gdos (kontrollfeld 
parameter, 
koordinatenpaare ‚ koord: 
end; 
procedure locate (x,y:integer); 


GSX-Grafikbefehlen unter CP/M Plus 


eonst 
monitor ; (x Ausgabegeraet x) 
linienart ; (x Nicht unterbrochen x) 
linienfarbe ; (x Weiss x) 
grafikeursorforn ; (x Kreuz x) 
grafikeursorfarbe ; (x Weiss x) 
zeichensatz 5 (x Systemzeichensatz x) 
textfarbe 5 (x Weiss x) 
fuellart ; (x Schraffur x) 
fuellmuster ; (x Gitter x) 
fuellfarbe ; (x Weiss x) 
type 
feld_1 = array [1..10] of integer; 
array [1..200] of integer; 
feld 3 = array [1..255] of integer; 
zeichenkette = string [255]; 
var 
kontrollfeld : feld; 
koordinatenpaare, koordinatenausgabeparameter : feld_2; 
ascii_werte ‚ ascii_ausgabeparameter : feld3; 
block : array [1..5] of integer; 
text : zeichenkette; 
zaehler, linksx, linksy, rechtsx, rechtsy, x, y : integer; 
procedure gdos (var kontrollfeld : feld_1; 
var ascii_werte ‚ascii_ausgabeparameter : feld_3; 


var koordinatenpaare, koordinatenausgabeparameter : feld_2 ); 


block[3]:=addr(koordinatenpaare) ; 


block[4]:=addr(ascii_ausgabeparameter) ; 
block[5]:=addr(koordinatenausgabeparameter) ; 
bdos(115,addr(block)); 
end; 
procedure clg; 
begin 
kontrollfeld[1] 


5 ; (x Funktionsaufruf fuer "Grafik loeschen” x) 
0 ; (x Keine Koordinaten x); 
2 ; (x Funktionsabhaengiger Parameter x) 


(x Initialisieren des Grafikbildschirms x) 


‚ ascii werte 


Listing. Dieses Turbo-Pascal-Programm demonstriert die Verwendung von 


‚ ascii_ausgabe- 


inatenausgabeparameter ) 
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begin 
(x Initialisieren der Positionsangabe x) 


kontrollfeldf1] 5 ; (x Funktionsnümner x) 
kontrollfeld[2] := 0 ; (x Keine Koordinaten x) 
kontrollfeld[6] 11; (x Position setzenx) 


(x Abspeichern der Koordinaten x) 


ascii_werte[1] 
ascii werte[2] := x; 


(x Cursor setzen x) 


gdos (kontrollfeld ‚ ascii_werte ‚ ascil_ausgabepara- 
meter , 
koordinatenpaare , koordinatenausgabeparameter) 
end; 
procedure print (text : zeichenkette); 
begin 


(x Umwandeln des Textes in das Parameterfeld x) 
for zaehler := 1 to length(text) do 
ascii_werte[zaehler] := ord(text[zaehler]); 
(x Festlegung der Funktionsparameter x) 
kontrollfeld[1] := 5 ; (# Funktionsnummer fuer Textausgabe x) 
kontrollfeld[2] := 0 ; (x Keine Koordinaten x) 
length(text) ; (x Laenge der Zeichenkette x) 


kontrollfeld[4] 
kontrollfeld[6] := 12 ; (x Funktionsspezifischer Parameter x) 
(x Text an der aktuellen Cursorposition ausgeben x) 
gdos (kontrollfeld ‚ ascii_werte ‚ ascii_ausgabeparaneter, 
d koordinatenpaare , koordinatenausgabeparameter ) 

end; 

procedure kasten (linksx ‚linksy, rechtsx, rechtsy :integer); 

begin 

kontrollfeld[1] := 11 ; (x Funktionsnummer x) 
kontrollfelä[2] := 2 ; (x Anzahl der Koordinaten x) 
kontrollfeld[6] := 1 ; (x Funktionsabhaengiger Parameter x) 


(x Koordinaten der linken, unteren Ecke x) 

koordinatenpaare[1] := linksx ; 

koordinatenpaare[2] := linksy ; 

(x Koordinaten der rechten, oberen Ecke x) 

koordinatenpaare[3] := rechtsx; 

koordinatenpaare[4] := rechtsy; 

gdos (kontrollfeld ‚ ascii werte , ascii_ausgabeparameter, 

koordinatenpaare , koordinatenausgabeparaneter ); 


end; 
begin 
(4 Initialisierungswerte einstellen x) 
kontrollfeld[1] := 1 ; (4 Funktionsnummer x) 
kontrollfeld[2] 0 ; (x Keine Koordinaten x) 
kontrollfeld[4] 10 ; (x Zehn Funktionsparameter x) 
(x Funktionsparameter x) 
aseii_werte[1] := monitor; 
ascii_werte[2] := linienart; 
ascii werte[3] := linienfarbe; 
ascii_ werte[4] := grafikcursorform; 
ascii_werte[5] := grafikeursorfarbe; 
ascii_werte[6] := zeichensatz; 
ascii_werte[7] := textfarbe; 
ascii_ werte[8] := fuellart; 
ascii_werte[9] fuellmuster; 
ascii_werte[10] fuellfarbe; 
(« Initialisierung des Ausgabegerastes x) 
gdos (kontrollfeld , ascii werte , ascii_ausgabeparameter, 
koordinatenpaare, koordinatenausgabeparameter) ; 
elg; 


locate (29,1); 

print ('Kleine GSX-Demonstration'); 
locate (29,2); 

print ('=: 
kasten (10000, 10000, 25000,20000) ; 
repeat 


until keypressed; Listing. Verwendung von GSX-Grafikbefehlen 


end. (Schluß) 
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Basic-Logeleien 


aß Computer eigentlich dumm 

sind, ist unter Programmierern 

kein Geheimnis. So besteht 
auch der CPC wie jeder andere Com- 
puter im Grunde genommen nur aus 
einer Ansammlung von vielen Schal- 
tern. Zugegebenermaßen sind diese 
Schalter recht sinnvoll angeordnet, 
doch letztendlich sind sie nur zum Ein- 
und Ausschalten gemacht. 

Aus diesem Grund arbeitet der 
Computer nur mit einer Ja-Nein- 
beziehungsweise Wahr-Unwahr- 
Logik, während die menschliche Logik 
wesentlich differenzierter entscheidet 
(wahrscheinlich, vielleicht, eventuell, 
kaum, etc.). 

Doch die absoluten Entscheidun- 
gen von Maschinen reizten bereits im 
letzten Jahrhundert den englischen 
Mathematiker George Boole, sich 
über diese Art der Wahrheitsfindung 
Gedanken zu machen. Er tat es aus- 
giebig und schuf so das erste System 
einer Algebra unter Verwendung des 
Binär-Alphabets, bestehend aus den 
Zeichen »1« und »0« für »wahr« und 
»falsch«. 

Daraus entwickelte er wiederum 
einen eigenen Formalismus zur 
Behandlung von Aussagenverknüp- 
fungen. Mit dem Fortschreiten der 
Technik nutzten andere Mathematiker 
die von ihm geschaffenen Grundlagen 
und schufen eine mathematische Dis- 
ziplin, die nach ihrem Erfinder 
benannte Boolesche Algebra. 

Erst dadurch wurden Entwicklung 
und Konstruktion von elektronischen 
Rechenwerken, wie wir sie heute ken- 
nen, möglich, weshalb Boole auch als 
einer der Väter des Computers gilt. 

Heute arbeiten alle Computer nach 
den Gesetzen der Booleschen Alge- 
bra. Diese Gesetze zu verstehen, ist 
für den Programmierer sehr wichtig, 
denn so wie die Grammatik zum Ver- 
ständnis einer Sprache notwendig ist, 
ist auch das Verständnis der Denk- 
weise von Computern für den Um- 
gang mit diesen flinken Gesellen uner- 
läßlich. 

Ziel dieses Beitrags ist es, die 
Arbeitsweise Ihres Computers zu 
durchleuchten, und Ihnen so die Basis 
zu geben, Ihre Programme schneller, 
kürzer und effektiver zu schreiben. 

Dabei spielt es im Prinzip keine 
Rolle, welcher Programmiersprache 
Sie sich bedienen. Alle nachfolgen- 
den Beispiele sind jedoch in Basic 
geschrieben, damit Sie sie direkt 
nachvollziehen können. 

Der zweite Teil dieses Beitrags 
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Der Basic-Befehlssatz des CPC 
bietet die vier Befehle AND, OR, 
NOT und XOR für logische Ver- 
knüpfungen und unterstützt 
logische Vergleiche in Berech- 
nungen und Zuweisungen. 
Lesen Sie in diesem Beitrag, 
wie Sie diese Elemente optimal 
einsetzen, um zukünftig 
schnellere und kürzere Basic- 
Programme zu schreiben. 


beschreibt ausführlich den Aufbau 
eines interessanten Spiels, das durch 
die Anwendung logischer Gesetze 
und Vergleiche trotz Basic-Code sehr 
schnell und zugleich für seine Funk- 
tion sehr kurz ist. 


und Speicherplatz 


Wie unterschiedlich die Geschwin- 
digkeiten von Basic-Programmen bei 
gleicher Funktion sein können, 
demonstriert eindrucksvoll das fol- 
gende Beispiel. 

Aufgabe ist es, der Variablen A 
20000mal abwechselnd den Wert -1 
und 0 zuzuweisen. Zur Zeitkontrolle 
dient die TIME-Funktion des CPC. 

Bei konventioneller Programmie- 
rung entsteht folgendes Programm: 
10 t=TIME 
20 a=0 
30 FOR b=1 TO 20000 
40 a=a-1: IF a=-2 THEN a=0 
50 NEXT b 
60 t=TIME-t:PRINT t; "Einheiten 

benoetigt.” 

Dieses Programm benötigt für 
einen Durchlauf etwa 30000 Einhei- 
ten, das sind rund 100 Sekunden. 

Wenn Sie nun Zeile 30 durch 
30 a=-ABS(a+1) 
ersetzen, sind es nur noch 20000 Zeit- 
einheiten, das heißt unter 70 Sekun- 
den. 

Versuchen Sie es noch mit 


30 a=NOT a 
und Sie erhalten Werte um 18500 und 
16000. Die Rechenzeit hat sich dem- 
nach fast halbiert, indem lediglich eine 
Zeile durch einen leistungsfähigeren 
Befehl ersetzt wurde. 
Selbstverständlich richtet sich die 
Anwendung dieser Befehle auch noch 


nach anderen Kriterien, doch intensi- 
ves Nachdenken lohnt sich fast immer. 

Ist Ihnen das computergerechte 
logische Denken ersteinmal in Fleisch 
und Blut übergegangen, dann gehen 
Sie damit um wie der Jongleur mit sei- 
nen Bällen. 

Eine weitere Methode, Programme 
zu beschleunigen, ist inzwischen hin- 
reichend bekannt: die Definition von 
Variablen, die nur ganzzahlige Werte 
annehmen, als Integer-Variablen 
(zum Beispiel »DEFINT a,b«). 

In diesem Fall muß der Computer 
nur ein Doppelregister mit insgesamt 
16 Bit berücksichtigen, und nicht mit 
mehreren Speicherstellen, Kommata 
und Exponenten rechnen. 

In den folgenden Beispielen werden 
wir auch nur Variablen mit ganzzahli- 
gen Werten benutzen. 

‚Am Anfang unserer Betrachtungen 
haben wir die Zahlen »1« und »0« als 
Symbole für »wahr« und »unwahr« 
genannt. 

Doch warum erscheint dann beim 
Befehl »PRINT NOT 0« (der NOT- 
Befehl bildet das logische Gegenteil 
einer Zahl) der Wert -1, und nicht 1? 
Und warum sind als Integer-Werte 
lediglich die Zahlen von -32768 bis 
32767 zugelassen? 

Die Antwort liegt in der Computer- 
darstellung von Zahlen begründet. Mit 
16 Bit lassen sich insgesamt nur 
2'°=65536 verschiedene Werte dar- 
stellen. Um jedoch auch die negativen 
Zahlen zu berücksichtigen, wird ein 
kleiner Trick benutzt und die O in die 
Mitte des Zahlenbereichs gesetzt. 


Warum —1 statt 1? 


Dazu wird das ganz links stehende, 
oberste Bit als Vorzeichen der Zahl 
betrachtet. Eine »0« signalisiert ein 
positives und eine »1« ein negatives 
Vorzeichen. 

Auf diese Art und Weise kommt 
beim Invertieren die -1 zustande (den 
Vorgang, einen Wert in sein logisches 
Gegenteil zu verkehren, nennt man 
Invertieren). Der Computer dreht die 
16 Bit einer Zahl einfach um, er inver- 
tiert sie. Bei 16 Nullen ergeben sich 
demnach 16 Einsen, hexadezimal 
ausgedrückt FFFF. 

Wenn Sie »PRINT & FFFF« ein- 
geben, sehen Sie selbst, wie der Com- 
Pputer den Wert in eine negative Zahl 
umformt. Diese Umformung ent- 
spricht dem Bilden des Einer- 
Komplements einer Zahl. 
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Jeder Vergleich von zwei ganzzahli- 
gen Werten, wie zum Beispiel in IF- 
THEN-Abfragen, ergibt beim CPCent- 
weder 16 Nullen oder 16 Einsen. 

Überlegen Sie einmal zur Probe, 
welchen Wert Ihr Computer beim 
Befehl »PRINT NOT 500« ausdruckt. 
Wenn Sie in der Dezimal-Binär- und 
Binär-Dezimal-Umrechnung schon 
bewandert sind, fällt Ihnen die Lösung 
nicht schwer. Ansonsten probieren Sie 
es einfach aus. 

Um genauer zu erkennen, wie das 
Invertieren funktioniert, lassen Sie 
das folgende Programm zur Umrech- 
nung von dezimalen in 16stellige 
Binärzahlen laufen. 

10 DEFINT a-z 

20 b=500 

30 PRINT b;”= 
BIN$(b,16) 

40 b=NOT b 

50 PRINT b; "= 
BIN$(b,16) 

Der Vergleich zeigt deutlich, wie der 
Computerbeim NOT-Befehl die einzel- 
nen Bits invertiert. 

Allerdings gibt es, wie im folgenden 
Beispiel, auch Überraschungen. 

10 b=-501 

20 IF b THEN PRINT b; "ist 
richtig.” 

30 IF NOT b THEN PRINT b;” 
ist falsch.” 

50 PRINT 

60 PRINT”Was stimmt denn nun?” 

Setzen Sie eine beliebige andere 
Zahl außer O und 1 ein, und Sie erhal- 
ten das gleiche Ergebnis, weil der 
Computer feststellt, daß nicht alle Bits 
entweder auf 0 oder 1 gesetzt sind. So 
registriert er, daß einzelne Bits über- 
einstimmen, andere wiederum nicht, 

Wenn Sie die Variable b durch 0 
oder-1 ersetzen, funktionieren die Ver- 
gleiche korrekt. 

Um eine eindeutige Aussage zu 
erhalten, darf man nur ganzzahlige 
Werte miteinander vergleichen. Der 
Vergleich »a=b<.0« weist der Varia- 
blen a beispielsweise den Wert -1 zu, 
wenn b gleich -500 ist, und den Wert 0, 
wenn b gleich 500 ist. 


binaer &X”; 


binaer &X”; 


Was sind Aussagen? 


Man unterscheidet in der Boole- 
schen Algebra generell zwischen 
komplexen Aussagen und bitweisen 
Vergleichen. 

Zu diesem Thema existiert viel wei- 
terführende Literatur, und jeder Infor- 
matikstudent muß sich zwangsläufig 
mit diesem trockenen Thema ausein- 
andersetzen. Umfangreiche Wahrheits- 
tabellen sind neben dem Verknüpfen 
von Aussagen sein tägliches Brot. 
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Da Sie jedoch vermutlich kein Infor- 
matikstudent sind, wollen wir uns auf 
die wichtigsten Grundlagen beschrän- 
ken. Sie sollten sich als Definition mer- 
ken, daß Aussagen entweder wahre 
oder unwahre logische Sätze sind. 
Falls Sie jedoch mit Ihrem Wissen 
Freunde und Kollegen beeindrucken 
möchten, bemerken Sie leichthin, daß 
man untereiner Aussage die gedankli- 
che Widerspiegelung eines Sachver- 
haltes der objektiven Realität versteht, 
und man wird vor Ihnen den Hut zie- 
hen! 

Gesprochene und geschriebene 
Sätze sowie mathematische und tech- 
nische Formeln sind Formen von Aus- 
sagen. »X+3=7« ist beispielsweise 
solch eine Form. 

Verknüpfungen von Aussagen tre- 
ten in drei Grundformen auf, aus 
denen sich alle weiteren Verknüpfun- 
gen ableiten. Die erste Grundform ist 
die Konjunktion oder UND-Ver- 
knüpfung, die nur dann wahr ist, wenn 
alle Teilaussagen wahr sind und bei 
wenigstens einer unwahren Teilaus- 
sage ebenfalls unwahr ist. 

Die ODER-Verknüpfung, auch Dis- 
junktion genannt, ist wahr bei wenig- 
stens einer wahren Teilaussage und 
nur unwahr, wenn alle Teilaussagen 
unwahr sind. 

Die letzte Grundform ist die Vernei- 
nung oder Negation einer Aussage, 
die unwahr ist, wenn die Aussage 
wahr ist, und wahr, wenn die Aussage 
unwahr ist. 

Wie in der »normalen« Arithmetik, 
existiert auch in der Aussage-Logik 
eine festgelegte Rangfolge der durch- 
zuführenden Verknüpfungen. Schon 
in der Grundschule wird gelehrt, daß 
Punkt-vor Strichrechnung geht. ‚Ähnli- 
ches gilt auch bei der Booleschen 
Algebra. ) 

In komplexen Aussagen löst man 
zuerst die Klammern von innen nach 
außen auf und anschließend vorhan- 
dene Negationen. Dabei werden ver- 
neinte Aussagen negiert, um den 
ursprünglichen Zustand wiederherzu- 
stellen. Anschließend steht in der Rei- 
henfolge die Berechnung der UND- 
Verknüpfungen und am Schluß die der 
ODER-Verknüpfung an. 

Vielen Programmen sieht man die 
Unsicherheit des Autorsan, wenn zum 
Beispiel Ausdrücke wie »X=(Y*2)+A- 
(X*A)« enthalten sind. In diesem Bei- 
spiel sind nämlich beide Klammern 
überflüssig. Grundsätzlich geht der 
Computer bei der Berechnung immer 
vonlinks nach rechts vor, Rechnungen 
in Klammern werden zuerst durchge- 
führt, und die Punktrechnung hat Prio- 
rität vor der Strichrechnung. 

Versuchen wir einmal als konkretes 
Beispiel die folgende Aussage compu- 


tergerecht aufzubereiten »Ich gehe ins 
Kino, wenn ein interessanter Film läuft 
und noch Karten zu bekommen sind. 
Andernfalls lege ich mich ins Bett.« 
Setzt man A für »ins Kino« und B für 
»ins Bett«, X für »Karten vorhanden« 
und Y für »Film interessant«, so ergibt 
sich die Aussage 
A= X=-1 AND Y=-1: B= 
oder noch kürzer 
A= X AND Y:B= NOT A 
Gleichgültig, welche Werte X und Y 
annehmen, A und B werden immer ein 
entgegengesetztes Ergebnis bringen. 
Als Basic-Programm sieht der 
ganze Ausdruck folgendermaßen aus: 
10 CLS 
20 INPUT ”Laeuft ein 
interessanter Film (J/N) ";1$ 
30 INPUT "Sind noch Karten 
vorhanden (J/N) ”;X$ 
40 Y$=UPPER$(LEFT$(Y$,1)): 
X$=UPPER$(LEFT$(X$,1)) 
50 PRINT 
60 A=X$="J" AND Y$="I" 
70 B=NOT A 
80 IF A THEN PRINT ”Ich gehe ins 
Kino” 
90 IF B THEN PRINT ”Ich lege mich 
ins Bett” 
100 WHILE INKEY$="":WEND:RUN 


NOT A 


Setzen und Löschen 
Bit für Bit 


Eine computergerechte Aussage 
besteht letztendlich aus einzelnen 
Wörtern (zu je 16 Bit), diese aus zwei 
Byte und jedes Byte wiederum aus 
8 Bit, von denen jedes den Zustand O 
und 1 annehmen kann. Zusätzlich läßt 
sich jedes Byte in zwei Teile zu je 4 Bit 
aufteilen, die als Nibble bezeichnet 
werden. 

Es spielt eine große Rolle, welche 
Wertigkeit ein Bit innerhalb des Bytes 
einnimmt. Steht es ganz rechts, so hat 
es den Wert 2°=1 (sofern es gesetzt 
ist), steht es dagegen ganz links, so 
beträgt der Wert immerhin 27 =128. 

Die Wertigkeit eines Bits ist damit 
jeweils eine Potenz von 2, so wie in 
dem uns vertrauten Dezimalsystem 
die Wertigkeit einer Stelle innerhalb 
einer Zahl eine Potenz von 10 ist. 

Rückt man im Dezimalsystem die 1 
um eine Stelle nach links und füllt die 
leere rechte Stelle mit einer 0 auf, so 
hat man die 1 mit 10 multipliziert und 
das Ergebnis 10 erhalten. 

Im Binärsystem ist es nicht anders. 
Rückt man eine rechts stehende 1 um 
eine Stelle nach links, so hat man die 
Zahl mit 2 multipliziert und produziert 
damit eine 2, im Binärsystem darge- 
stellt als 10. Eine weitere Verschie- 
bung um eine Stelle bedeutet eine 
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abermalige Multiplikation und als 
Ergebnis den Wert 4, dargestellt als 
100. 

Doch was fängt man nun mit diesen 
Erkenntnissen an? In Basic gibtes hier 
nützliche Anwendungsgebiete, in 
denen sich mit Hilfe von Bitmanipula- 
tionen optimale Ergebnisse erzielen 
lassen. Das bekannteste Beispiel ist 
die Joystickabfrage mit dem JOY- 
Befehl. 


Logik im Labyrinth 


Doch es gibt weitere Einsatzbei- 
spiele, von denen wir im folgenden 
eines exemplarisch behandeln wol- 
len. Betrachten wir die Konstruktion 
eines Labyrinths, Dieses Gebilde 
besteht ursprünglich aus vielen qua- 
dratischen, geschlossenen Zellen. In 
Adventure-Programmen symbolisie- 
ren meistens die vier Himmelsrichtun- 
gen die Wände, doch das Prinzip 
bleibt gleich. 

Es bietet sich nun an, ein Nibble für 
einen Raum zu nehmen, so daß sogar 
noch vier Bit eines jeden Bytes für wei- 
tere Funktionen verbleiben. 

Doch bleiben wir beim Nibble. 
Jedes Bitstellteine Wand oder Tür dar, 
die entweder geschlossen oder geöff- 
net ist. Das bedeutet nichts anderes 
als ein gesetztes oder gelöschtes Bit. 
Die Wertigkeit stellt dabei die Him- 
melsrichtung dar. In unserem Beispiel 
soll 1=Norden (Bit 0), 2=Osten (Bit 1), 
4=Süden (Bit 2) und 8=Westen (Bit 3) 
sein. Sind an allen vier Seiten Wände 
und ist damit kein Ausgang vorhan- 
den, so ergibt sich der Wert 
1+2+4+8=16. 

Stellen Sie sich vor, Sie finden nach 
Ausschalten des giftigen Zwergs den 
dringend gesuchten gläsernen 
Schlüssel und können damit die südli- 
che Tür öffnen. Es bleibt nur noch das 
Problem, dasentsprechende Bit (Bit 2) 
zu löschen, um einen freien Ausgang 
zu erhalten. Dies läßt sich zwar errei- 
chen, indem man die Wertigkeit von 
Bit 2 von 16 subtrahiert (Ergebnis: 12), 
doch weil wir bei einem Programmlauf 
nicht immer ohne weiteres beurteilen 
können, ob die Tür nicht bereits offen 
ist, kann die simple Subtraktion unter 
Umständen zu Komplikationen füh- 
ren. 

Es empfiehlt sich der logische Ver- 
gleich, um das Bit (falls gesetzt) zu 
löschen. Befindet sich der Bytewert 
des Nibble in der Variablen a, dann 
erzeugt 
a= a AND (255-4) 
das gewünschte Ergebnis. 

Dies läßt sich an einem praktischen 
Beispiel leicht überprüfen. 

Nehmen wir an, a erhält den Wert 


215. Mit »PRINT BIN$(a)« berechnet 
der Computer das binäre Äquivalent 
11010111 und mit »PRINTBIN$(255-4)« 
den zweiten binären Wert 11111011. 

Ausgehend von der Tatsache, daß 
bei der UND-Verknüpfung nur dann 
eine 1 erzeugt wird, wenn auch die bei- 
den ursprünglichen Bit auf 1 gesetzt 
sind, kann man schon jetzt erkennen, 
daß sich beim Vergleichen die dritte 1 
von rechts in eine Null verwandeln 
wird, alle anderen Bit im unteren Nib- 
ble dagegen ihren Wert beibehalten. 
Die Bestätigung dieser Überlegung 
erhalten Sie mit »PRINT BIN$(a AND 
(255-4))«. Das Resultat ist - wie erwar- 
tet - 11010011 und das gewünschte Bit 
2 ist gelöscht. 

Wenn Sie jetzt die Tür nach Süden 
wieder schließen möchten, muß auch 
das Bit 2 wieder gesetzt werden. Dies 
geschieht ebenso einfach mit der 
ODER-Verknüpfung. Der Befehl 
»PRINT BIN$(a OR &X100)« setzt Bit 2 
und ergibt wieder 11010111 bezie- 
hungsweise 215. 

Wäre im letzteren Fall Bit 2 bereits 
gesetzt gewesen, so hätte sich nichts 
geändert, während die simple Addi- 
tion von 4 zu dem unteren Nibble 
dagegen ein falsches Ergebnis 
erzeugt hätte. 


15 Monster in 4 Bit 


Bleiben wir bei dem Adventure- 
Beispiel und erinnern wir uns, daß 
Integerzahlen insgesamt 16 Bit umfas- 
sen. Uns bleiben demnach noch 12 
auf der linken Seite, mit denen wir, 
bezogen auf einen Raum, etwas 
anfangen können. Zweigen wir 7 Bit 
ab, so lassen sich damit immerhin 
27=128 Räume numerieren, und 4 
weitere Bit ergeben 15 verschiedene 
Monster und einmal kein Monster, 
oder 15 verschiedene Gegenstände 
und einmal kein Gegenstand, oder 
Monster und Gegenstände gemischt. 

Das letzte, ganz links stehende Bit 
kann man dann noch als Lichtschalter 
(Raum bekannt/unbekannt) oder ähn- 
liches benutzen. Zum Überprüfen die- 
ses Bits genügt eine einfache Abfrage, 
ob der Integerwert positiv oder nega- 
tiv, also kleiner als O oder größer gleich 
0 ist. 

Je 7 Bit aus den 16 Bit einer Integer- 
zahl reichen also, um 128 Räume voll- 
ständig zu beschreiben! Da Adven- 
ture-Programme bekanntlich äußerst 
speicherplatzfressend sind, ist das 
vorgestellte Verfahren eine exzellente 
Methode, um Informationen über das 
Gebiet, in dem ein Adventure spielt, 
speicherplatzsparend abzulegen. 

Der Vollständigkeit halber sei auch 
noch die logische XOR-Verknüpfung 


(XOR=Exklusiv-Oder) erwähnt, die 
ganze Bitfolgen umkehren kann. 

Das Ergebnis einer XOR-Ver- 
knüpfung ist wahr, wenn die eine Teil- 
aussage wahr und die andere Teilaus- 
sage unwahr ist. Das Ergebnis ist 
unwahr, wenn beide Teilaussagen 
unwahr oder beide Teilaussagen wahr 
sind. 

In unserem Abenteuerbeispiel 
würde XOR wie ein Wechselschalter 
wirken. Wenn Sie den Befehl 
PRINT BIN$(A XOR 4) 
mehrmals ausprobieren, erkennen 
Sie am besten die Wirkung der XOR- 
Verknüpfung. 

Daß der CPC ebenfalls von der 
Bitumschaltung Gebrauch macht, ist 
leicht an der Groß- und Kleinschrei- 
bung zu erkennen. Der ASCII-Code ist 
so aufgebaut, daß der Unterschied 
zwischen großen und kleinen Buch- 
staben genau 32 beträgt, was wie- 
derum dem Bit5 mit der Wertigkeit von 
25 =32 entspricht. Der Befehl 
PRINT CHR$(ASC(”A”) XOR 32) 
macht dies deutlich. Umgekehrt funk- 
tioniert es natürlich ebenfalls. 

Doch der ASCII-Code läßtsich auch 
für andere Zwecke einsetzen. Müssen 
in einem Programm beispielsweise 
viele Zahlen gespeichert werden, ist 
es angebracht, diese zu komprimie- 
ren. Neben der Platzeinsparung wer- 
den sie gleichzeitig codiert und sind 
dadurch nicht mehr für jedermann les- 
bar. 

Betrachtet man den ASCIl-Zeichen- 
satz, erkennt man, daß die Zeichen 
von 35 bis 255 benutzt werden dürfen, 
ohne als Steuerzeichen Konflikte zu 
verursachen. Beschränken wir uns 
auf den Bereich von 128 bis 255, so ist 
es noch einfacher. Die Zahl 3985245 
soll beispielsweise verschlüsselt wer- 
den. Ein kleines Programm nimmt uns 
diese Arbeit ab. 

100 a=3985245 

110 a$=SIR$(a) 

120 a$=MID$(a$,1+LEN(a$)MOD 2) 

130 c$="":FOR b=1 TO LEN(a$) 
STEP 2 

140 e$=c$+CHR$(VAL(MID$(a$,b,2)) 
XOR 128) 

150 NEXT b 

160 PRINT c$ 

Das Ergebnis unterscheidet sich 
vollständig vom Ausgangswert und 
läßt keinerlei Rückschlüsse darauf zu. 
Natürlich ist statt 128 auch jeder 
andere Wert bis 255 erlaubt, denn der 
zu codierende Wert kann nie kleiner 
als 0 und größer als 99 sein. Genauso 
simpel läßt sich die erzeugte Zeichen- 
folge wieder in die ursprüngliche Zahl 
zurückverwandeln. 

200 a$="" 
210 FOR b=1 TO LEN(c$) 
220 a=ASC(MID$(c$,b,1)) XOR 128 
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230 a$=a$+MID$(STR$(a),2) 
240 NEXT b 

250 a=VAL(a$) 

260 PRINT a 

Das Basic des CPC macht die 
Umrechnung von dezimal in binär und 
von binär in dezimal leicht, weil es 
dazu die Befehle BIN$ und PRINT &X 
zur Verfügung stellt. Doch wenn man 
sich beispielsweise gerade in einem 
Programm befindet und etwas aus- 
testen möchte, muB man dieses Pro- 
gramm erst verlassen, um einen Wert 
umrechnen zu können. 

Deshalb im folgenden das Verfah- 
ren, wie man eine Dezimalzahl in 
einen binären Wert und eine Binärzahl 
in den dezimalen Wert umrechnet. 

In unserem Beispiel soll die Zahl 179 
umgewandelt werden. Sie schreiben: 


179/2 = 89, Rest 1 
89/2 = 44, Rest 1 
44/2 = 22, Rest 0 
22/2 = 11, Rest 0 
11/2 = 5, Resti 
5/2 = 2, Resti 
2/2 = 1, Rest 0 
1/2 = 0,Resti 


Die Werte, die den Rest der Division 
angeben, schreiben Sie nun von 


unten nach oben hintereinander - und 
fertig ist der binäre Wert von 179: 
10110011. 

Noch einfacher funktioniert die 
Umrechnung von binär in dezimal. 
Gehen Sie dazu von rechts nach links 


ee 
leo Sehne 
DE) 
0x2='0 
1222216 
1,2422,= 333, 
0x= 0 
1x27= 128 
Summe: 179 


Haben Sie erst einmal das grund- 
sätzliche Prinzip verstanden, dann 
können Sie in jedes andere Zahlensy- 
stem umrechnen. 

Im jedem Maschinensprache- 
Programmierer geläufigen Hexadezi- 
malsystem sieht die Umrechnung fol- 
gendermaßen aus: 

179/16 = 11 Rest 3 = 3 
11/16 = O Rest 11=B 

Der hexadezimale Wert von 179 
beträgt demnach B3. 

Die Rückrechnung in das Dezimal- 
system: 


un 


3x 16° 3 
11 x 16! = 176 


179; 


Wenn Sie mit Nibbles arbeiten, kön- 
nen Sie einen hexadezimalen Wert 
direkt in eine Binärzahl umsetzen. Die 
Ziffer einer hexadezimalen Zahl 
besteht aus 4 Bit, da sie Werte von 0 
bis F, das heißt 16=2* verschiedene 
Zustände annehmen kann. Es besteht 
folgende Beziehung zwischen den 
hexadezimalen Ziffern und den Binär- 
werten: 


Summe: 


Hex Bin Hex Bin 

0 0000 8 1000 
a 0001 9 1001 
2 0010 A 1010 
3) 0011 B 1011 
4 0100 c 1100 
5 0101 D 1101 
6 0110 E 1110 
YA 0111 F 1111 


Der binäre Wert von B beträgt dem- 
nach 1011, und der binäre Wert von 3 
ist 0011. Deshalb entspricht die Hexa- 
dezimalzahl B3 dem binären Wert 
10110011. Die Umrechnung von binär 
in hexadezimal ist genauso einfach. 

(Dietmar Schulze/ma) 


Boolesche Algebra 
im Weltraum 


haben wir Ihnen ziemlich viel The- 

orie zugemutet. Als Belohnung für 
Ihre Aufmerksamkeit wollen wir uns 
nun ganz auf die Praxis konzentrieren 
und anhand eines rasanten Action- 
Spiels zeigen, wie man mit logischen 
Vergleichen und Verknüpfungen 
effektiv programmiert, so daß sogar in 
Basic hohe Verarbeitungsgeschwin- 
digkeiten zustande kommen. 

Bei dem Spiel »Spacetrap« gilt es, 
mit einem defekten Raumschiff aus 
einem durch Energiefelder und Robot- 
schiffe gesicherten Raumsektor zu 
entkommen. Geschossen wird nicht, 
vielmehr müssen Sie die feindlichen 
Schiffe in ihre eigenen Fallen locken 
und dadurch vernichten. Im Laufe des 
Spiels schickt der Feind immer grö- 
Bere Geschwader auf das Schlacht- 
feld. 

Das Programm bietet eine ausführli- 
che Beschreibung. Es ist so gestaltet, 
daß die vielfältigen Fähigkeiten des 
Locomotive-Basic optimal genutzt 


| E: ersten Teil dieses Beitrags 


Nachdem wir im vorangegan- 
genen Beitrag die Grundlagen 
zur effektiven Programmierung 
mit logischen Vergleichen und 
Verknüpfungen behandelten, 
folgt nun die Entwicklung eines 
pfiffigen Action-Spiels, in dem 
die besprochenen Verfahren 
praktische Anwendung finden. 


werden. Manche der verwendeten 
Techniken dienen jedoch nur zur 
Demonstration und lassen sich auch 
anders formulieren. 

Speichern Sie bitte die Listingteile, 
die im folgenden vorgestellt werden, 
entweder einzeln und verbinden Sie 
sie mit dem MERGE-Befehl, oder tip- 
pen Sie das Listing in einem Stück ein. 

Die ersten Zeilen des Programms 
legen einige Anfangswerte fest und 
die letzten Zeilen definieren die Zei- 
chen, die im Spiel verwendet werden 
(Listing 1). 


Dann wird der Bildschirm mit Über- 
schrift aufgebaut. Für uns ist die 
Behandlung der Farbenvariable 
<col> interessant, die innerhalb der 
Schleife je nach Wert der Zählervaria- 
blen <i> auf 0 oder 1 gesetzt wird 
und dadurch das Streifenmuster des 
Schrifthintergrundes erzeugt. Der 
Wert von <col> ergibt sich aus dem 
Aussagenvergleich von gerader und 
ungerader Zahl, der direkt zum 
Berechnen von 0 oder 1 benutzt wird. 
Der gleiche Effekt läßt sich auch mit 
»col=i MOD 2« erreichen. 

Der Schriftzug selbst wird zum 
Erzielen einer Schattenwirkung zwei- 
mal im Transparentmodus gedruckt 
und löscht dadurch auch nicht den 
Hintergrund. Der übrige Bildaufbau 
geschieht mit Strings und durch 
Benutzung der Schleifenvariablen als 
Positionszeiger für den LOCATE- 
Befehl (Listing 2). 

Der folgende Programmteil legt die 
Anfangswerte für den Programmstart 
fest und baut das interne Spielfeld im 
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Commodore 


Leistungsfähige Programmiersprachen für 
Commodore 128 und Schneider-Computer 


Marktäzechnik 
128erSoftware 


MICROSOFT 


ae 


"Dia fr 
Commosom 128 (128 0) PC 


Microsoft BASIC 


Das umfassende Microsoft-BASIC- und 
Assembler-Entwicklungspaket enthält: 
© BASIC-Compiler 5.4 (BASCOM) 
@ BASIC-Interpreter 4.51 (OBASIC) und 
5.21 (MBASIC) 
@ MACRO Assembler (M80) 
® LINK Linking Loader (L80) 

CREF Cross-Reference Facility 
(CUEF 80) 
@ IB Library Manager 
für den effizienten Einsatz kaufmännischer 
und technisch-wissenschaftlicher 
Anwendungen. 


Hardware-Anforderungen für 
Commodore 128/128D: 
Diskettenlaufwerk, Betriebssystem CP/M 3. 


Sch Computer: 
CPC 464, 664, 6128 oder Joyce, ein Diskettenlauf- 


werk, Betriebssystem CP/M 2.2 oder CP/M Plus. 
EN 


Der Interpreter erfordert mindestens 
32 K Speicher, der Compiler 
und der Makroassembler 


©) Schneider 


F-Onkame Ur Orc ab0r aoer era 
EN 
BR 11 


Pascal/MT+ 
Pascal/MT+ ist ein volles ISO-Standard- 
Pascal, das um eine leistungsfähige 
Programmierumgebung für Industrie-, 
Geschäfts- und Ausbildungseinsatz sowie 
Möglichkeiten zur Systemprogrammierung 
erweitert wurde. 


Hardware-Aı für 
Commodore 128/128D: 
ein Diskettenlaufwerk, Betriebssystem CP/M 3. 


Hardware-Anforderungen für 
Schneider-Computer: 

CPC 464 und CPC 664 (mit Speichererweiterung), 
dem CPC 6128 und dem PCW 8256 (Joyce) unter 
CP/M und CP/M Plus. Kompilierte Programme sind 


bei entsprechender Größe, auch auf dem CPC 464 
und CPC 664 ohne Speichererweiterung lauffähig. 


Markt&echnik 


Zeitschriften - Bücher 
Software - Schulung 


Markt& Technik Verlag AG, Buchverlag, Hans-Pinsel-Straße 2, 8013 Hoar bei München, Telefon (089) 4613-0 


® Bestellungen im Ausland bitte an: SCHWEIZ: Markt&Technik Vertriebs AG, Kollerstrasse 3, CH-6300 Zug, Telefon (042) 415656 - ÖSTERREICH: Rudolf lschner & Sohn, 
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Schneider CPC- 
Software 


CBÄSIC . 
Compiler 


Diskette für CPC 404 064, 0120 
POWR2hG 


Manch wrgiscner Sprache 


CBASIC-Compiler 


Der Hochleistungs-BASIC-Compller für 
Softwareprofis zur Erstellung kommerzieller 
Anwendungen. 

Der CBASIC-Compiler ist ein Compiler, der 
Maschinencode erzeugt und die Program- 
mierung und den Test separater Module 
erlaubt, die später ein komplettes Pro- 
gramm ergeben sollen. Die integrierten 
Grafikmöglichkeiten des CBASIC-Compi- 
lers erlauben die Programmierung viel- 
seitiger Grafikprogramme für eine Vielzahl 
von Anwendungen (nur auf Computern 
mit GSX-Software). 


Hardware-Anforderungen für 

Commodore 128 PC: 

ein Diskettenlaufwerk, Betriebssystem CP/M 3. 
Hardware-Anforderungen für 
Schneider-Computer: 

Der CBASIC-Compiler läuft auf Schneider CPC 464 
mit Diskettenlaufwerk DDI-1, dem CPC 664, dem 
CPC 6128 und dem PCW 8256 (Joyce), Für Grafik- 
programme wird die GSX-Software benötigt, die nur 
mit dem CPC 6128 und PCW 8256 (Joyce) aus- 
geliefert wird 


Diese Markt&Technik-Software erhalten 
Sie in den Fachabteilungen der Waren- 
häuser, bei Ihrem Computerfachhändler, 
im Buchhandel oder direkt beim Verlag 
gegen Vorauskasse. 

Fragen Sie auch nach dem neuen 
Gesamtverzeichnis Frühjahr/Sommer '87, 
oder fordern Sie es direkt beim Verlag 
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eigens dafür reservierten Speicherbe- 
reich auf. Das Speichern in Feldvaria- 
blen wäre natürlich auch möglich ge- 
wesen, aber die PEEK- und POKE- 
Befehle sind in der Regel schneller. 

Sämtliche Felder werden zuerst mit 
dem ASCII-Wert 32 (für das Leerzei- 
chen) belegt. Während dieses Vorgan- 
ges wird zur Verkürzung der Wartezeit 
der Bereich des Spielfelds auf dem 
Bildschirm mit Sternchen gefüllt. 

Die Variablen <ef$>, <fs$> und 
<es$> mit den Werten <ef>, <fs> 
und <es> sind die ASCII-Codes für 
Energiefeld, Robotschiffe und das 
eigene Raumschiff. Die Variable 
<er$> dient zum Löschen einer 
Zeile. 

Ab und zu bemerken Sie bei Tasta- 
turabfragen den Ausdruck »rd=RND«., 
Diese Zuweisung zählt lediglich die 
Zufallszahlen weiter, um die feste 
Pseudozufallsreihe des Computers zu 
unterbrechen und dadurch neue 
Anfangswerte festzulegen. 

Wird die Ausgabe der Spielanlei- 
tung gewünscht, verzweigt das Pro- 
gramm zu einem entsprechenden 
Unterprogramm. Dabei rollt ein Vor- 
hang aus farbigen Streifen herab, der 
wiederum durch die Schrift der Anlei- 
tung verdrängt wird. Farbwerte, Text- 
zeilen, Abstände und Pausen sind in 
den DATA-Zeilen mit enthalten. Eine 
Schleife liest diese Werte ein und zen- 
triert den Text auf dem Bildschirm. 

Zum Abschluß erfolgt die Frage 
nach der Schwierigkeitsstufe, die die 
Anfangsgeschwindigkeit des Spiels 
bestimmt, und das eigene Schiff wird 
auf das Spielfeld gesetzt (Listing 3). 

Jetzt müssen nur noch die feindli- 
chen Energiefelder und Robotschiffe 
verteilt, sowie die Werte für Schwierig- 
keitsstufe, Spielpunkte etc. auf dem 
Bildschirm eingetragen werden 
(Listing 4). 

Dann geht es endgültig los! Der 
Betriebssystemaufruf CALL &BB18 
bringt die Angreifer in ihre Wartestel- 
lung. Sobald Sie nun eine Taste 
drücken, beginnt das Spiel und Sie 
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Level: 


Bonus: 


Score: 


sind auf der Flucht. Unerbittlich 
rücken die Roboterschiffe an. Deren 
Richtung wird dabei durch die Koordi- 
naten des eigenen Raumschiffes 
bestimmt. 

Die Zeilen 1000 bis 1220 bilden die 
Hauptschleife des Programms. Die 
Tastaturabfrage ist kurz, aber effektiv 
konstruiert. Es werden der Joystick, 
die Cursortasten sowie die Tasten 
<Q>,<A>, <O> und <P> abge- 
fragt und die Werte für jede Bewe- 
gungsrichtung addiert. 

Der INKEY-Befehl ist dabei sehr 
nützlich, weil er sich leicht auf 
»wahr«oder »falsch« abfragen läßt. Ist 
keine Taste gedrückt, dann ergibt sich 
bei der Addition die Summe -3. 
Gleichgültig, welche Taste nun mit 
oder ohne <SHIFT> betätigt wird, 
der Wert bewegt sich immer im 
Bereich größer als -3 und die Addi- 
tionsvariablen x für die Horizontal- 
sowie y für die Vertikalposition ändern 
sich entsprechend. Ist keine Taste 
gedrückt, bleiben die Ergebnisse der 
logischen Aussagen 0, und eine 
Bewegung findet nicht statt. 

Die Joystickabfrage nach dem 
Muster »IF JOY(0)=1 THEN« scheint 
nur auf den ersten Blick richtig, 
erweist sich aber schnell als trüge- 
risch. Jeder Joystick läßt sich nämlich 
auch schräg betätigen, so daß zwei 
Kontakte gleichzeitig geschlossen 
sind und sich die Werte folglich addie- 
ren. In diesen Fällen gibt die JOY- 
Funktion die Werte 5 oder 9 aus, und 
die Abfrage ergibt »falsch«. 

Im erwähnten Beispiel müssen die 
überflüssigen Bit ausgeblendet wer- 
den, damit die Abfrage funktioniert. 
»IF JOY(0) AND 1« scheint vernünftig, 
doch arbeitet diese Befehlsfolge auch 
wirklich korrekt? 

Wieder nicht ganz, denn, steht vor 
dieser Abfrage beispielsweise »IF 
JOY(0) AND 4« und Sie haben zufällig 
nach vorwärts und links gedrückt, 
dann ist gleich die erste Bedingung 


Huenschen Sie eine Anleitung (J/N) ? 


HI-SCORE: 
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Abspeicherüng der Ergebnisse in 
Additionsvariablen. 


X=((J0Y(0) AND 4)=4) OR -((J0Y(0) AND 8)=8): 
1=((J0X(0) AND 1)=1) OR -((J0Y(0) AND 2)=2) 


Durch diese Befehlsfolge erhalten 
beide Richtungs-Variablen die korrek- 
ten Werte 1, -1 oder 0, mit denen dann 
weitergerechnet werden kann. 

Doch zurück zu unserem Pro- 
gramm. Die Variablen <eh> und 
<ev> enthalten die alten Positionen 
Ihres Raumschiffs. Zeile 1140 mit dem 
Befehl ON GOTO setzt das Programm 
bei wahrem Vergleich im Kollisions- 
Programmteil, ansonsten beim NEXT- 
Befehl in Zeile 1200 fort. 

Wie Sie feststellen werden, erlaubt 
es diese Art der Programmierung, die 
Steuerschleife kurz zu halten und sie 
bewirkt eine präzise und schnelle 
Reaktion auf die Joystick- oder Tasta- 
tureingabe - eine Grundvorausset- 
zung bei eimem Reaktionsspiel 
(Listing 5). 

Der Verzicht auf Unterbrechungen 
wirkt sich positiv aus. Nur bei einer 
Bewegung wird überprüft, ob Kollisio- 
nen stattgefunden haben und deshalb 
weitere Aktionen erforderlich sind. 
Dadurch wird immer nur das Nötigste 
ausgeführt. Erst wenn eine Kollision 
wirklich stattfindet, werden weitere 
Unterprogramme aufgerufen, 

Die vielen GOSUB-Befehle sind 
notwendig, um aus vielen Routinen 
nur die gerade aktuellen auszuwählen 
und möglichst schnell zur Hauptrou- 
tine zurückkehren zu können. Außer- 
dem wird dadurch das Programm fle- 
xibler. Der Preis, den man dafür zu 
zahlen hat, ist unter Umständen ein 
schwierigeres Verständnis der Pro- 
grammfunktionen (Listing 6). 

Zum Schluß die Bedeutung der 
wichtigsten Variablen im Programm: 
sp = senkrechte Position 
wp = waagrechte Position 
fp! = Feldadresse im Speicher 
h! HIMEM 


erfüllt. q = Energiefelder, die beim näch- 
Als bester Weg erweist sich die sten Durchgang ersetzt wer- 
So präsentiert sich den müssen 
Siptesanlel.sic = Anzahl der verbleibenden 
ep. auf Robotschiffe 
na ken = Positionsnummer eines Robot- 
schiffs 
= (Dietmar Schulze/ma) 
Steckbrief 
Programm; Spacetrap 
Computer: | CPC A64/66416t28 
Checksummer:| Explora 
Datenträger: Kassette, Diskette 
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Listing 3. In diesem Teil erfolgen die Voreinstellungen für den Spielbeginn 


12 RR LA4E8] 7E,%18 158581 
11@ '*** Space Trap 1.0 x*#* tascEl 1B100 DATA &02,R6E „KAS,SFF LEO ,&SD,UFF,& 
128 me LESECI AS,%&76 [C7BEI 
130 ' EDFB&1 10110 DATA &C3,%24 ,&5A,&DB,&FF,&FF ,&DB,& 
14® CLEAR:DEFINT a-z:MODE 1: IF HIMEM>425 5A,&24 Ü L6FAnI 
@8 THEN SYMBOL AFTER 129: MEMORY HIME 10120 DATA 804 ,u66,&03,%A5,&18,418,.A5,% 
M-1808:G0SUB 10840 ’==> eigene Zeiche C3,%66 LEBFAI 
n definieren und Speicherbereich sic 10139 DATA &C5,%7C,%11,%99,&BF ‚UFD,&99,%& 
hern 105201 88,&3E [B6LEI 
10B08 '=====--- === Soon 19140 DATA 199,0,24,48,126,12,56,48,8 L72AE1 
[512A1 1D15D DATA_&FS,ULE „LAS ,UFF „&BE ‚USD ,EFF ,& 
1QB1B 'x** Data fuer eigene Zeichen xx** AS,&76 cc4D@3 
LFCBCI 18160 DATA &F4,%BD,&42,899 ,u05,&A5,899,& 
10029 "====-=------enueneee nennen 42,%BD CBCS41 
t@12E) 10178 DATA UFS,%42,&BD ,%66 5A ,RSA 665% 
ı1u003@ ' [11761 BD,&42 LFB®48] 
10040 RESTORE 18860 CBDADI 10188 DATA &F&,%D,%3C,%66 ‚SA ,ESA, 66 ,&S 
10050 READ zı IF z=256 THEN RETURN [9EBRI Cd caa2cı 
10040 FOR i=@ TO 7:READ z (i) :NEXT [DB&21 18190 DATA UF7,80,%42,&18,%24,&24 ,u1B,&4 
18070 SYMBOL 2,210) „2 (1) ,2(2) ,z(3) ,2(4), 2,80 LFSA4I 
2 (5) 52 (6) ,„2(7):60T0_ 18858 LEDCAI 18208 DATA &FB,%0,%0,40,%18,418,30,.0,80 
10080 DATA &CQ,&SC ‚L66 ,UFF ‚899 ,USC bb, % LSAE6I 
DB,&CH 16A741 1021@ DATA &F9,02,0,0,0,8,0,0,0 [FOA&I 
10090 DATA &C1,%18,&7E,u66,&DB,&DB,&66,% 10220 DATA 256,2,0,0,0,0,0,0,0 TES981 
Listing 1. Der Definitionsteil von »Spacetrap« 
158 ues="unaungZ225 PACE- TR A PS2> (23) CHR#(@) 5 tascaı 
Pre rer 1FS3A1 5088 FOR i=@ TO I:PLOT 4-i#2,395+i#2,1*3 
16@ SPEED INK 4,3: INK_2,@:BORDER @s INK 1 :DRAUR 633,0:DRAUR @,-32:DRAUR 633 
„24: INK 2,20: INK_ 3,8 199761 „O:DRAWR ®,32:NEXT CRFEEI 
17@ &f$=CHR$ (198) :G0SUR 5040 [93F61 s@9@ PEN S:FOR i=® TO 1:LOCATE 1,1419: 
100 * tB6C0) PRINT STRINGS (4@ ,ef$) ;:NEXT CAAFAI 
soon ' LaA7aı S108 FOR i=2 TO 20: FOR j=0 TO 1:LOCATE 1 
sa1a EDBECH +3*39,1: PRINT @ef$;ENEXT j,312WINDOW 
5020 [F@741 2,39,6,23 147A21 
saso ‘ EBC1EI sı1a PEN#2,1:LOCATEH2,1,1:PRINT#2," Banu 
5940 MODE 1:WINDOW 1,40,5,24:WINDOW#L,1, s: "SPE(9) "Level: "SPC (4) "Score: ";:PE 
40 ,1,3:WINDOW#2,1,4@,4,4:WINDOWHS, 1 N#S, 1: PRINT#S, "CZ>HI-SCORE: "SPC (16) 
„48,25,25 COSC6I "SHIPS: "3: RETURN tACF21 
sasa PEN#1,A:PAPERH1,2 t1ac21 5120 LOCATE#2,25,1:PRINT#2,USING"##"s1ev 
Sa6D FOR i=1 TO 2@:col=-(INT(i/2)<>i/2)+ TLOCATEN2,34, 1: PRINT#2 USING" HHHHQ" 
1-(i=20) PLOT 8,399-i*2,col:DRAW 63 ;b1 13E201 
9,399-1 #2: NEXT 190921 5138 LOCATE#2,9,13PEN#2, 2: PRINT#2 USING" 
5078 LÖCATEH „4,2: PRINT#1 ,CHR$ (22) CHRS(1 #400"; 62\ 10: RETURN L9@FBJ 
> ues5 CHRS (22) CHRS (8) 5 : PRINT CHR$ (23 5140 PEN#3, 2: LOCATE#S,13, 1: PRINTH3 USING 
)CHR$ (3) , 1x=32+12: y=399-14: TAGa PLOT "HAHHON MAX Chi „hi !) 5: LOCATEHS, 55,18 
x,Y„33PRINT ue$} : TABOFF+PRINT CHRF$ % ERINTNS,STRINGE (AX (BO, 1) ‚am)ar#; vEBa21 
Listing 2. Das Begrüßungsbild von »Spacetrap« SLSRRETEEN 
— 
JOB RR tD89C9 6100 CLS:RETURN LSEC61 
510 ‘x%* Programmstart x*%* ta8181 6110 DATA "",1,"tc) 
520 1 HH [58A8J ze" ,2,, 
sa’ [@7BEI ZIKOELN 1" ,2,,,"Tela221/3: 
540 DEFINT a-zıh !=HIMEM+1341=Ser=4ırieS: Test C7paa1 
bi=B:q=3 C39AEI 6120 DÄTA"=== GEFANGEN IM RAUM ===",3,, L8DE41 
550 GOSUB 5168 swerte EDALAI 6130 DATA Umgeben von einem energiegelad 
5160 ef$=CHR$ (198) 1ef=198:er$=CHRF (18) ıe enen,i,"Zaun sind Sie mit defekten 
S$=CHR$ (192) 1es=192: #s$=CHR$ (196) ı HYPERSPACE-",1," Triebwerk in einem 
‚s=196 tac7zEı unbekannten" }1,"Raumsektor gelandet 
5170 fel=38#1B: fp!=h!+felzhi !=PEEK(fp!)* El a iyalonund LEC16I 
256+PEEK (fp!+1) LBA9ZI 6140 Data'"" 2, Züsaetzliche Energiefelde 
518@ GOSUB 7300’==> Array loeschen Ec1gE1 r sind eine,2,"weitere Gefahr, dach 
5198 LOCATE 2,6:PEN 2:PRINT"Wuenschen Si die groesste",2,Redrohung kommt vo 
e eine Anleitung (J/N) ? 1D540J n den ploetzlich,2,auftauchenden Ro 
3200 i$=""sWHILE i$<>"J"AND isl>"N"sis=u batschiffen. ‚25,2 C718R1 
PPER$ (INKEY$) er=RND=WEND:PRINT i$  LO376] 6158 DATA Mit ihrem empfindlichen Ortung 
521@ IF i$="J"THEN GOSUB 4040 Er35@1 ssystem,2,registrieren sie jede Bew 
5220 LOCATE 2,9:FEN 2:PRINT"Schwierigkei egung im,2,Sektor und greifen in di 
tsgrad (0-9) ? "; CAaECI eser Richtung,2,sofort an. ,2,,2 1n17c1 
5230 WHILE i$<"Q"OR i$>"9"si$=INKEYSırd= 6160 DATA " Ihre einzige Rettung besteht 
RND: WEND: p=VAL (i$) +1 [4:721e2] darin,",2,die Angreifer in die Ene 
5240 CLS:G0SUB 7238°==> Eigenes Schiff s rgiefelder,2,zu locken. Dort werden 
etzen LiCBC] sie mit diesen,2,zusammen vernicht 
5250 RETURN [C5981 et. ,2,,2,Ein Aufprall auf ein eigen 
5268 ° LE7281 es Schiff,2,zerstoert sie ebenfalls 
sooo 157103 er) C9D181 
e018 [E9921 6170 DATAN" 1," STEUERUNG =-- 
6028 [DF203 "2,,1,"Joystic kt,i,,i,Curso 
6030 107203 rtasten,i,,i,oder,i,,1,"mit den Tas 
6048 TO 18*8-2:col=INT (RND*4) :x= ten <Q>,<A>,2Q>,<P>" 1,51 117281 
18: y=319-i*2:xe=INT (RND# (16*38) )ı PL 6180 DATA"Sind alle Gegner erledigt, ers 
OT x,„y,col:DRAWR xe,B:xe=XP0S:PLOT cheint",1,die naechste Flotte - zah 
639-% ,y,3-colzDRAW xe,yıNEXT tcaDgı Treicher ünd,i,schneller!,i,,i,Ihre 
6258® RESTORE 6110 LFEEEI Befreiung haengt nur von Ihrer ,i, 
686@ READ b#,col:IF b$="xx"OR b$s="yy" TH Geschicklichkeit ab... VIEL GLUECK 
EN 4098 LSSEBI LI YeL cA7B21 
6070 PEN calzLOCATE 1,18:PRINT CHRSUMT 2 CAlzEI 
AB{INT(39-LEN (bE) 1 /Z2)b$; TA4ERI u=====o= 
6080 GOTO 64040 Tag261 IFSE43 
607® PEN S:LOCATE 9,18: PRINT"Weiter mit 7010 ‘* locate up,sp (waagerechte & senk 
LEERTASTE... EN 1:WHILE INKEY#<> rechte Fosition) * [6652] 
® "3WEND: IF b4="xn"THEN 6B6R ta23c1 7920 u Mn 
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=e==-un-enmennnn [5DEBI 560 GOSUB 7870: q=@: f=f1+2:#1=9°==> Energ 
7038 [26221 iefelder setzen 123721 
7040 MOD 538+ p=(a\38) +1:RETURN CBA48] 578 b2=f*588: p=MAX (B,p-1):1lev=19-p: 60SUB 
7058 wp-1)+(sp-1)«#3t ETURN [&C18]1 5128: GOSUB 5148 L14F81 
7198 a Em a NEE NE En EEE ELBE NE. [B67C] 588 IF f>24.THEN #=27:e2=e2+1:IF e2>3 TH 
7200 '* Setzen des eigenes Schiffs * [24BE1 EN 3048 12A321 
7210 Mn ee ee T966E1 590 GOSUB 7158‘==> Robatschiffe setzen [A282] 
7220 ° _ 190241 7068 ‘*** Setzen der Energiefelder x** [BAER] 
7238 PEN Z:risri-1:IF ri<@ THEN 3848 ELS 7878 FOR b=1 TO. q [58321 
E GOSUB 5148 tes7a1 7088 PEN 3:a=INT(RND*fel)zIF FEEK(a+h!)< 
7240 a=INT(RND*fel):IF PEEK(ath!)<>32_TH >32 _THEN 7080 ELSE POKE a+h! ,‚ef:608 
EN 7240 ELSE POKE a+th!,es:GOSUB 794 UB 7@48:LOCATE wp,sp:PRINT ef$; 184221 
OCATE wp,sp:PRINT es$; :eh=wpiev= 7098 NEXT:PEN 1:RETURN LF9F6E] 
sp:GOSUB 5140: RETURN L&BAAI zıa@ ° LCi1EI 
7250 ° L9C2A1 Ti1IG (=muumnnuununnnnnnnn == [62FE] 
7260 EBDCQI 712@ ‘* Setzen der Robotschiffe * C2EEEI 
7270 [1036] 713Q "seessseenssnenenneennunnnen Lara2ı 
7280 L2FC4] 7148 19D261 
7290 ' [28323 715® c=B:PEN i:FOR b=1 TO # Lı5aal 
730@ PEN 1:FOR a=® TO fel-1:POKE h!+a,32 7188 a=INT(RND*fel): IF PEEK(ath!)<>32_TH 
:LOGATE INT (RND#38+1) ‚INTERND#1B) +1 EN 7160 ELSE POKE ath! ‚fs: GOSUR 704 
:IF RND>@.85 THEN PRINT CHR$(144);5E G:LOCATE wp,spiPRINT #54; :POKE #p!+ 
LSE PRINT" "; 13D7E] 'OKE fp!+c+l,spic=c+2 CSBDEI 
7318 NEXT: RETURN tacası ETURN C1A90) 
73280 ' [BF26] [2921 
Listing 3. (Schluß) Listing 4. Hier werden die Robotschiffe verteilt 
1000 CALL &BBIB [BE&B] 15-3) t1a1cı 
ıvı0 ’ 192121 1130 ' [90181 
1020 seonmenennnnn [28223 114@ ON 2+(x=eh AND y=ev)GOTO 1200,1150_ CSB@CI 
1030 '* Tastaturabfrage #* CAB7ZEI 1150 IFCR<L)+(K>S@)+ty<l)+ty>ia))THEN 2 
1040 '== [34261 25B 124501 
1060 FOR pa=D_TO pıb2=MAX (b2-5,0) FEeaRı er een 
P pıb2=I 5, hl 
1870 CALL &BB07 E2B6EI 1108 BENPEEERANE SET ER NF ee; arore ©1870 
1088 x=eh:y=ev [D66C1 ath! LAacE1 ı 
1090 ' EBA22] 1198 wp=eh:sp=ev:LOCATE wp,spiPRINT" " 
1198 x=x+(CINKEY (B) +INKEY (34) +INKEY (74) ) 128 Ken z 50: POKE ath! ‚S2:eh=xıev=y Kuss 
se + 
DES NEN ENT MEN TE 53123 121@ GOSUBPZ11@ IF #g THEN fg=@:60T0 100 
1110 ' t8E141 ® LAFF&I 
1120 y=y+((INKEY (8) +INKEY (67) +INKEY (72) ) 122@ IF #>@ THEN 1060 ELSE CALL &BBBF:b1 
VEYSZLCINKEY (2) +INKEY (69) +INKEY (73) =b1+b2/10:60T0 540’==> keine Robots 
chiffe mehr LFaBAı 
Listing 5. Die Routine zur Tastaturabfrage ist der Hauptteil von »Spacetrap« 
2000 CBA121 2310 INK 3,8:RETURN LE9321 
2010 ==. CBCSAI 2320 ° [c21C1 
2020 '* Kollisionen #* CE6ACI 233 (==uunnunnnnnnnnannannunn LEEBEI 
2050 [DasE] 2340 '*** Schiff getroffen #* [9SFEI 
2040 [961A1 2350 ‘=====: manuunn (20921 
2050 pa=p+l:wp=eh:sp=ev:G0SUB 7850: GOSUB 2360 ' [E6241 
2220: 60T0 100 148761 2370 GOSUB 2290 t96B21 
2060 ' [9B1EI 2380 GOSUB A840: FOR i=@ TO S:ıPEN INT(RND 
2070 = CıDaaı *3+1) :LOCATE wp,sp:PRINT CHR# (244+i 
2080 '* Bewegung Robatschiffe * C6BAEI )sFOR j=1 TO S@rNEXT J,i:POKE h!ra, 
2090 '== Senmeseeoenennne EFD@EI 32: RETURN CDA961 
2100 ' CBC14] 2398 ° [992A1 
2118 EnINTERNDAF) SZInD=PEEK GEL AE) LEBnPE 3008 '====== == 17046] 
EK(fp!#c+1) :GOSUB 7@50:GOSUB 5158 LBSC6I 301@ '* Spielende * LEF781 
2120 x=wp: y=sp:wp=wp+ (eh<x)-(eh>x) ısp=sp 3028 ‘=====: -—- [95441 
+tev<y)-(ev>y)ıGOSUB 7058 19C2C1 3038 EBALAI 
2130 IF ev=sp AND eh=wp THEN GOSUB 2220: 3@4® BORDER BD: INK_B,B:hi !=MAX (hi! ,b1) FO 
#g=1'==> Eigen chiff getroffen L4DE@I KE fp!,hi!\2567POKE fp!+1,hi MOD 25 
2140 pE=PEEK(h'+a) pk=ef THEN 2280 EL 6:G0SUB 5140 LB2C0] 
BE IF pkefs THEN 2378 cDiAAı 3@5@ FOR a=1 TO 10:G0SUB 4940: FOR b=1 TO 
2150 POKE hY+a,fsıPEN 1:LOCATE wp,spsPRI BO: NEXT b,a L7F1@] 
NT fs$j:POKE fp!+c,wpiPOKE fp!+c+l, 3068 CLS [2196] 
sp t2Faa1 3078 PEN S:LOCATE 6,6 EDC94] 
2160 wp=x:sp=y: GOSUB 70S@:FOKE h!+a,32:L 3@8® IF ri<® THEN PRINT"PECH GEHABT !"ıP 
OCATE x ,ysPRINT" ETURN tA7B8] EN 2:PRINT," Sie haben es nicht ges 
2170 [97221 chafft,',"'die Uebermacht war zu gr 
2180 =eenesesnnonooneenen [717C3 oss !"ELSE PRINT"GERETTET !"3PEN 2: 
219@ '* Eigenes Schiff getroffen * [EA741 PRINT," Sie koennen in Ruhe Ihr Tri 
2200 A Se nl CDB&EI ebwerk"," reparieren und diesen unf 
2218 EBD181 Teundlicheng&>Raunsektor verlassen __ 
en BORDSR. ZELL PaREO RER. 54:70 2 3298 PEN 1:LOCATE 6,14:PRINT"Noch ein Sp 
b:GOSUB 7048: INK 8,0: BORDER 8:b2=®: (IN) ? LA9EEI 
RETURN 1230R1 3128 WHILE J$<>"J"AND j$<>"N" 2 j$=U 
2250 taBicı PPER$CINKEYS) : WEND LS54F6] 
2240 ne 153881 311@ CLS:IF j$="J"THEN RUN 548 ELSE END [2780] 
2258 '* Energiefeld get offen « C&DBCI 3120 ° [931A1 
2268 ==eemeseseenonen CBS@CH Aoca z Lisceı 
2270 197243 4818 '*> Toene <# EDF&AI 
3248 POKE h!+a,32:0=g+1:60SUB 4840: INK_3 4028 C5B021 
»26,63LOCÄTE x,yzPRINT" " ee 4030 ° tapıcı 
1-7} vi, -i 
2298 wp=x:sp=y:G0SUB 7858 13684] aesn es an en Srs2s 1021255 LBFSCI 
2300 POKE a+h! „32:bi=bi+l:fi=fi+1s 4050 SOUND 7,250,0,0,1,0,6 L&BBEI 
pi+c PEEK{fp!+(#-1)*2) :POKE fp!+c+i A060 RETURN 195941 
zBEER(EPIACHTLIRZADDSFSFLSGOBUB SI 2070 - [99241 
20 


Listing 6. Die einzelnen Unterprogramme zur Behandlung von Kollisionen etc. 
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n den letzten Jahren hat die Ent- 

wicklung auf dem Gebiet der 

Computer-Hardware große Fort- 
schritte gemacht. Die technischen 
Fähigkeiten moderner Computersy- 
steme eröffnen dem Benutzer ein wei- 
tes Feld an Anwendungsgebieten. 
Doch die Entwicklung auf der techni- 
schen Seite ist nichts wert, wenn sie 
nicht durch die entsprechende Soft- 
ware ausgenutzt wird. 

Programmiersprachen haben im 
Computergewerbe einen hohen Stel- 
lenwert, weil sie die Werkzeuge zum 
Entwickeln von Software darstellen. 
Nur mit leistungsfähigen Program- 
miersprachen ist es möglich, inner- 
halb einer vernünftigen Zeitspanne 
anspruchsvolle Software zu ent- 
wickeln. 

Da sich in letzter Zeit mehr und 
mehr Programmiersprachen auf dem 
Software-Markt tummeln, wollen wir 
im folgenden Beitrag dem interessier- 
ten CPC-Besitzer die Sprachen Basic, 
Pascal, Comal und Logo vorstellen, 
die dem Einsteiger und Umsteiger den 
Zugang zur Welt der Computer er- 
leichtern. 

Grundsätzlich ist zu sagen, daß es 
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Programmier- 
sprachen für 
Einsteiger und 


Die Vielfalt der Programmier- 
sprachen wird immer größer 
und der Einsteiger oder Umstei- 
ger, der seinen Erfahrungshori- 
zont erweitern und statt 
Locomotive-Basic einmal etwas 
anderes ausprobieren möchte, 
steht hilflos vis-a-vis. 


zwei Arten von Sprachen gibt: Inter- 
preter und Compiler. Der Interpreter ist 
ein Systemprogramm, das ein in einer 
höheren Programmiersprache ge- 
schriebenes Programm beim Bearbei- 
ten Befehl für Befehl übersetzt und 
direkt ausführt. Weil jedoch beim Aus- 
führen eines Befehls neben der Über- 
setzung und den gesamten Fehlerab- 
fang-Routinen auch noch die vom 
jeweiligen Befehl benötigten System- 
routinen aufgerufen werden müssen, 
ist die erreichbare Verarbeitungsge- 
schwindigkeit in der Regel gering. 
Ein Compiler übersetzt hingegen 
den vorliegenden Quelltext nach er- 
folgreicher Fehlerbeseitigung kom- 
plett in einen maschinennahen Code, 
der natürlich wesentlich schneller 
abgearbeitet werden kann. 


Um Ihnen die in diesem Beitrag 
vorgestellten Programmiersprachen 
anschaulicher darstellen zu können, 
geben wir zu jeder Sprache ein Bei- 
spielprogramm. Alle Programme füh- 
ren eine Schleife mit bedingter Ver- 
zweigung sowie einer arithmetischen 
und einer logischen Rechnung aus. 
Die besondere Struktur der jeweiligen 
Programmiersprache wird in den 
unterschiedlichen Listings deutlich. 
Zudem geben die Beispielprogramme 
als Benchmarktests Aufschluß über 
die erzielte Geschwindigkeit (Bild). 

Es ist jedoch zu beachten, daß ein 
Vergleich der Ablaufgeschwindigkei- 
ten die Leistungsfähigkeit der Pro- 
grammiersprachen nur unzureichend 
wiedergibt. Doch werden die Vor- und 
Nachteile der jeweiligen Sprachen im 
folgenden ausführlich hervorgeho- 
ben. 

Die bekannteste und am weitesten 
verbreitete Programmiersprache ist 
Basic (Abkürzung für »beginners all 
purpose symbolic instruction code«). 
Fast jeder Heimcomputer hat einen 
Basic-Interpreter fest eingebaut, der 
nach dem Einschalten des Gerätes 
automatisch aktiviert wird. 


‚So verfügt auch der Schneider CPC 
über einen integrierten Basic- 
Interpeter - das Locomotive-Basic. 

Leider gibt es von Basic, das bereits 
Anfang der sechziger Jahre am Col- 
lege von Dartmouth entwickelt wurde, 
viele Dialekte, so daß die meisten Pro- 
gramme aufgrund der speziellen 
Befehlserweiterungen nicht auf 
andere Computer übertragbar sind. 

Als Einsteigersprache für einen 
Computerbesitzer ist Basic jedoch 
ideal. Klar verständliche Schlüssel- 
worte und Befehlsfolgen sowie die 
schnell erlernbare Befehlssyntax 
erleichtern Anfängern die Beschäfti- 
gung mit dieser Programmiersprache. 

In letzter Zeit wird Basic zwar von 
vielen Programmierern etwas belä- 
chelt, doch völlig zu Unrecht. Denn 
aufgrund ständiger Weiterentwicklun- 
gen (zum Beispiel die Verbesserung 
des strukturellen Aufbaus) erfreut sich 
die Sprache weiterhin zunehmender 
Beliebtheit. Man denke nur daran, wel- 
ches Aufsehen Turbo-Basic kürzlich 
im PC-Bereich erregte. 

Daß sich moderne Basic-Versionen 
auch für professionelle Programmie- 
rung eignen, beweisen viele kommer- 
zielle Programme, die ursprünglich in 
Basic geschrieben und dann mit 
einem Compiler übersetzt wurden. 

Zwei interessante Versionen für die 
Computer der CPC-Reihe sind der 
CBasic-Compiler von Digital Re- 
search und natürlich das Locomotive- 
Basic. 


Basic — nicht 
nur für Anfänger 


Das Locomotive-Basic ist im Ver- 
gleich zu anderen Basic-Dialekten 
(Interpretern) sehr schnell, weil es 
einen Zwischencode (durch einen 
Compreter) erzeugt und einen relativ 
großen Sprachumfang besitzt, der 
viele Besonderheiten (zum Beispiel 
die Unterstützung von Interrupt- 
gesteuerten Unterprogrammen) auf- 
weist. 

Die Schwachpunkte liegen vor 
allem in einer Inkompatibilität, die zwi- 
schen den verschiedenen CPC-Ver- 
sionen besteht, dem Fehlen wichtiger 
Grafikroutinen (beispielsweise eine 
Kreis- oder Rechteckfunktion) und der 
zu geringen Unterstützung für die Ent- 
wicklung strukturierter Programme. 

Der Editor von Locomotive-Basic 
arbeitet zeilenorientiert. Jeder Pro- 
grammzeile muß eine Zeilennummer 
vorangestellt sein, deren Betrag die 
relative Position der Zeile innerhalb 
eines Basic-Programms repräsen- 
tiert. 


Im Gegensatz zum Locomotive- 
Basic stellt CBasic eine Programmier- 
sprache dar, die auf dem CPC unter 
der Kontrolle des Betriebssystems 
CP/M2.2 beziehungsweise CP/M Plus 
läuft. CBasic ist also nur für den 
‚Anwender von Interesse, der minde- 
stens ein Diskettenlaufwerk (besser 
zwei) besitzt. 

CBasic ist ideal vor allem für die 
Benutzer, denen die Geschwindigkeit 
des Basic-Interpreters nicht ausreicht. 
Der Compiler von Digital Research 
eignet sich - zu einem Preis von 174 
Mark - auch zum Schreiben kommer- 
zieller Software in fast allen Ge- 
schäftsbereichen. Dabei spielteseine 
wichtige Rolle, daß der Compiler 
Maschinencode erzeugt und die Pro- 
grammierung und Ausführung einzel- 
ner Programmteile erlaubt, die dann 
später zusammen das komplette Pro- 
gramm ergeben. 

Der umfangreiche Befehlssatz er- 
möglicht eine komfortable Bedienung 
und Programmierung. Ein weiterer 
Vorteil von CBasic ist leider nur für 
CP/M-Plus-Besitzer von Interesse: 
Der CBasic-Compiler enthält nämlich 
integrierte Grafikbefehle und Funktio- 
nen für eine sehr komfortable Grafik- 
programmierung. 

Diese Grafikerweiterung kann aber 
nur dann aktiviert werden, wenn ein 
GSX-Treiber zur Verfügung steht. Da 
die Kommandos völlig unabhängig 
von der verwendeten Peripherie sind, 
erlaubt der CBasic-Compiler die Aus- 
gabe von Grafiken auf jedem beliebi- 
gen angeschlossenen Ausgabegerät 
(Plotter, Drucker oder Bildschirm) 
ohne Änderung oder erneute Compi- 
lierung des Programms. 

Ein weiteres Plus ist die hohe 
Rechengenauigkeit. Die verwendete 
vierzehnstellige Dezimal-Arithmetik 
garantiert Ergebnisse, die nicht durch 


Rundungsfehler beeinflußt sind, wie 
sie bei der oft eingesetzten Binärarith- 
metik auftreten können. Da der Com- 
piler auch Integer-Arithmetik unter- 
stützt (das heißt Rechnen mit ganz- 
zahligen Werten), kann der Geschwin- 
digkeitsgewinn bei compilierten 
Programmen noch wesentlich höher 
ausfallen. 

Wenn der Compiler jedoch mit 
Fließkommazahlen arbeiten muß, ist 
er auffallend langsam, weil die hohe 
Rechengenauigkeit ihren Tribut for- 
dert. Selbst der Locomotive-Basic- 
Interpreter ist hier schneller (siehe 
Benchmarktest). Seine Geschwindig- 
keitsvorteile kann CBasic demnach 
nur im Integer-Bereich ausspielen. 


CBasie 
für Mathematiker 


Da der Compiler über die Möglich- 
keit verfügt, mehrzeilige Funktionen 
zu unterstützen, beinhaltet er Fähig- 
keiten, die sonst nur von anderen Pro- 
grammiersprachen wie zum Beispiel 
Pascal bekannt sind. Innerhalb dieser 
Funktionen beziehungsweise Unter- 
programme können lokale Variablen 
definiert werden, die nur in der ange- 
sprochenen Routine Verwendung fin- 
den. 

Vom CBasic-Compiler existieren 
neben der Z80-Version auch Ausfüh- 
rungen für andere 8-Bit- und 16-Bit- 
Computer. Aus diesem Grund ist eine 
Portabilität auf ein anderes Betriebs- 
system (zum Beispiel MS-DOS oder 
DOS Plus) kein großes Problem, denn 
die Kompatibilität zwischen den ein- 
zelnen Versionen ist gewährleistet, so 
daß auf ein großes Potential an 
Quellcode-Programmen zurückge- 
griffen werden kann. 


Die 
Geschwindigkeit 
der Programmier- 
sprachen im 
Vergleich. 
Turbo-Pascal 

ist klarer Test- 
sieger, doch auch 
das Locomotive- 
Basic schlägt 
sich beachtlich. 
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Das umfangreiche Handbuch zu 
CBasic ist in englischer Sprache 
geschrieben. Für Anfänger, die keine 
Erfahrung im Umgang mit englischen 
Texten besitzen, ist die Dokumenta- 
tion nicht geeignet. Dasie jedoch sehr 
übersichtlich aufgebaut und in ver- 
ständlichem Englisch verfaßt ist, soll- 
ten keine Probleme bei Anwendern 
auftreten, die grundlegende Englisch- 
kenntnisse besitzen. 


Linker und Library 


Manche Compiler übersetzen den 
Quellcode eines Programms in eine 
Art Zwischencode (sogenannter P- 
Code), der zwar schneller alsein inter- 
pretiertes Programm ist, aber den- 
noch nicht das Optimum an 
Geschwindigkeit darstellt. Der 
CBasic-Compiler hingegen benutzt 
einen Programmbinder (Linker) und 
eine Bibliothek (Library) im Zusam- 
menhang mit dem eigentlichen Com- 
piler, um reinen Maschinencode zu 
erzeugen, den der Computer direkt 
ausführen kann. 

Der Compiler übersetzt in Zusam- 
menarbeit mit dem Linker und der 
Library den Quellcode in ein Pro- 
gramm, das den zur Verfügung ste- 
henden Speicherplatz effizient aus- 
nutzt. Durch dieses Prinzip erhalten 
Sie die Möglichkeit, die einzelnen 
Bestandteile eines Programms unab- 
hängig voneinander zu entwickeln, 
um sie dann nacheinander zu einem 
Komplex zusammenzufügen. Dieser 
modulare Aufbau erleichtert die Pro- 
grammentwicklung ungemein. 

Die Struktur von CBasic bedingt 
aber auch einige Nachteile. Der Quell- 
code eines Programms muß immer 
mit einem Editor verfaßt werden, der 
unabhängig vom Compiler arbeitet. 
Esistlobenswert, daß auch der aufder 
CP/M-Plus-Diskette mitgelieferte Text- 
editor zum Schreiben des Quellcode 
benutzt werden kann, trotzdem hat 
dieser Aufbau eine Menge Probleme 
zur Folge. Es ist nämlich sehr wichtig, 
geschriebene Programme bezie- 
hungsweise Programmteile sofort zu 
testen. Dieses ist mit dem vorgestell- 
ten System jedoch nicht möglich. 

Nachdem Sie nämlich einen 
Programm-Text geschrieben haben, 
müssen Sie jedesmal erst den Compi- 
ler aufrufen, der den Text zuerst auf 
Syntaxfehler überprüft. Sollte sich im 
Quelltext ein Fehler befinden, müssen 
Sie erst wieder den Editor laden und 
den Fehler beseitigen. 

Eine weitere Schwäche ist die Zeit, 
die benötigt wird, um den Maschinen- 
code eines Programms zu erzeugen. 


TOyww .HOMESOMPUTER 


Der CBasic-Compiler besteht - wie 
bereits erwähnt - aus drei Teilen: 
erstens der Compiler, der CBasic- 
Programme in relozierbare Maschi- 
nencode-Module übersetzt, zweitens 
die Library, die alle Arithmetik- sowie 
Ein- und Ausgaberoutinen enthält, 
und drittens der Linker, der den compi- 
lierten Code mit den Library-Routinen 
zu einem lauffähigen Programm kom- 
biniert, das sich vom Computer direkt 
ausführen läßt. 

Aus diesem Grund müssen alle Pro- 
gramme zusätzlich zum Schreiben 
des Quellcodes noch die Compilie- 
rungs-, Library- und Linkphase durch- 
laufen. Das dauert natürlich ziemlich 
lange, weshalb schon einige Erfah- 
rung im Umgang mit Basic-Program- 
men und ihren Fehlern nötig ist, um 
nicht zu verzweifeln. 

Die beiden besprochenen Basic- 
Versionen sprechen recht unter- 
schiedliche Zielgruppen an. Während 
sich das Locomotive-Basic auch für 
»blutige« Anfänger eignet, die noch 
keinerlei Erfahrung mit Computern 
vorweisen können, wendet sich OBa- 
sic vor allem an Anwender, die die 
Grundzüge der Basic-Programmie- 
rung beherrschen und mit der erreich- 
ten Geschwindigkeit des ohnehin 
schon recht schnellen eingebauten 
Basic-Interpreters nicht mehr zufrie- 
den sind. 


Interpreter oder 
Compiler? 


Sicherlich gehört Locomotive-Basic 
zu den besten Basic-Dialekten, die der 
Heimcomputermarkt zu bieten hat. 
Die Unterstützung von Fenstern und 
das ausgetüftelte Interrupt-Konzept 
sprechen für sich. Da die erreichbare 
Geschwindigkeit auch zufriedenstel- 
lend ist, eignet sich Locomotive-Basic 
sogar begrenzt für Anwendungen im 
professionellen Bereich. 

Wer hingegen auf hohe Rechenge- 
nauigkeit, beispielsweise in den wis- 
senschaftlichen Bereichen angewie- 
sen ist oder auf eine hohe Geschwin- 
digkeit im Integer-Bereich Wert legt, 
der ist sicherlich mit dem CBasic- 
Compiler besser beraten. Allerdings 
muß der Benutzer zugunsten dieser 
Vorteile auf Komfort bei der Pro- 
grammentwicklung verzichten. 

Leider gibt es zur Zeit keinen Com- 
piler auf dem Markt, mit dem Basic- 
Anwender Ihre Locomotive-Basic- 


Programme compilieren könnten. 

Die existierenden Compiler arbei- 
ten nur mit Integer-Variablen, was 
ihnen die Qualifikation für viele inter- 
essante Anwendungen abspricht. Sie 


sind auch nicht voll kompatibel zum 
Locomotive-Interpreter, so daß viele 
Befehle nicht umgesetzt werden kön- 
nen. 

Eine weitere Programmiersprache, 
die nicht nurim Heimcomputerbereich 
weite Verbreitung erlangte, ist Pascal. 

Pascal ist eine universell einsetz- 
bare, höhere Programmiersprache, 
die vom Schweizer Professor Niklaus 
Wirth an der Technischen Hochschule 
in Zürich entwickelt wurde und ihren 
Namen zu Ehren des Physikers Blaise 
Pascal erhielt. 


Pascal = strukturiert 
programmiert 


Die im Jahre 1971 veröffentlichte 
exakte Definition der Programmier- 
sprache Pascal erlaubte dem Benut- 
zer erstmals eine systematische 
Annäherung an die Computer-Pro- 
grammierung. Der festgelegte 
Sprachschatz von Pascal behandelt 
insbesondere die Unterstützung der 
strukturierten Programmierung. 

Seit dieser Zeit wurde Pascal auf 
fast jedem Computer implementiert, 
um mit dieser Sprache nahezu jede 
Programmieraufgabe zu lösen. 

Pascal entwickelte sich im Laufe der 
Jahre zu einer modernen Hochspra- 
che, die sich bei Programmierern aller 
Sparten großer Beliebtheit erfreut. 
Dabei reicht das Anwendungsgebiet 
vom Einstieg in die Heimcomputer- 
welt bis hin zum Einsatz bei der profes- 
sionellen Programmierung. 

Turbo-Pascal aus dem Hause Bor- 
land stellt den am weitesten verbreite- 
ten, leistungsfähigsten und mit 225 
Mark auch preiswertesten professio- 
nellen Pascal-Compiler dar. Dieses 
Programmiersystem eignet sich einer- 
seits hervorragend für den Einstieg in 
die strukturierte Programmierung und 
andererseits ist es ein herausragen- 
des Produkt für den Programment- 
wickler, der eine effizient einsetzbare 
Programmierumgebung sucht. 

Die extrem kurze Compilationszeit 
und die hohe Ausführungsgeschwin- 
digkeit machen Turbo-Pascal zu 
einem äußerst leistungsfähigen Pro- 
grammierwerkzeug. Allein der inte- 
grierte Wordstar-kompatible Editor 
wurde zu einem Meilenstein unter den 
Editoren für Programmiersprachen, 
an dem sich alle anderen Editoren 
messen lassen müssen. 

Da der Turbo-Pascal-Editor bild- 
schirmorientiert arbeitet, ist das 
Schreiben von Programmen mit ihm 
fast ein Kinderspiel. 

Den Durchbruch erzielte Turbo- 
Pascal jedoch nicht nur wegen seiner 
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Geschwindigkeitsvorteile, sondern 
auch mit der kompakten Struktur des 
Programmiersystems. Alle Kompo- 
nenten für die erfolgreiche Erzeugung 
des Maschinencodes befinden sich in 
einem Programm. Das heißt, daß Edi- 
tor, Compiler, Linker und Library 
zusammen eine kompakte Datei bil- 
den. 

Eine völlig andere Systemstruktur 
besitzt das Public Domain-Produkt 
JRT-Pascal, das bereits für 30 Mark 
erhältlich ist. 

Doch zuerst einige historische 
Details zu JRT-Pascal. Der Pro- 
grammautor Jim Tyson bot diesen 
Pascal-Compiler im Jahre 1982 durch 
Anzeigen in amerikanischen Compu- 
terzeitschriften zum damals sagen- 
haften Preis von 29,95 US-Dollar an. 
Was sich dann ereignete, klingt wie ein 
Märchen. Tysons Firma JRT-Systems 
erhielt in kürzester Zeit über einhun- 
derttausend Bestellungen. Als Ein- 
mannbetrieb war JRT-Systems natür- 
lich völlig überfordert, alle Bestellun- 
gen zu bearbeiten. Tyson bekam des- 
halb Ärger mit der amerikanischen 
Bundeshandelskommission, weil er 
die im voraus bezahlte Ware nicht lie- 
fern konnte. 

So mußte Tyson seine Firma schlie- 
Ben, und er gab den Compiler zur Wei- 
terverbreitung als Public Domain- 
Programm frei. Dadurch hat sein 
Pascal-Compiler ‘bis heute viele 
Freunde in der ganzen Welt gefunden. 
(Eine verbesserte Version des JRT- 
Pascal-Compilers wird seit einigen 
Jahren von Ellis-Computing unter 
dem Namen Nevada-Pascal angebo- 
ten.) 


Fast umsonst: 
JIRT-Pascal 


JRT-Pascal läuft auf dem CPC, 
ebenso wie Turbo-Pascal unter CP/M. 
Das heißt, daß für das Arbeiten mit 
JRT-Pascal mindestens ein Disketten- 
laufwerk notwendig ist. 

Allerdings benötigt JRT-Pascal eine 
Speicherkapazität von mindestens 
128 KByte. Im Gegensatz zu Turbo- 
Pascal arbeitet JRT-Pascal nach 
einem System, wie es von vielen Pro- 
grammiersprachen (zum Beispiel 
auch vom zuvor besprochenen CBa- 
sic) bekannt ist. 

So wird der Quellcode eines Pro- 
gramms erst mit einem Texteditor 
geschrieben und darauf compiliert. 
Bis hier gleicht das Verfahren dem bei 
Turbo-Pascal. Logische Programm- 
fehler, die erst bei Ablauf des Pro- 
gramms auftreten, können jedoch nur 
nach erneutem Aufruf des Editors 


beseitigt werden, während Turbo- 
Pascal automatisch den Editor aufruft 
undden Textcursor an der fehlerhaften 
Stelle positioniert. 

JRT-Pascal lehnt sich eng an den 
Standard des Informatikprofessors 
Niklaus Wirth an. Darüber hinaus ent- 
hält es jedoch eine umfangreiche 
Befehlserweiterung, die eine komfor- 
table Programmierung erlaubt. 

So liegen die Stärken von JRT- 
Pascal eindeutig in der Stringverwal- 
tung, die theoretisch Zeichenketten 
bis zu einer Länge von 64 KByte 
zuläßt. Mit Hilfe zahlreicher Befehle 
kann die Form einer Zeichenkette in 
vielerlei Hinsicht geändert werden. 

Ein weiterer Vorteil von JRT-Pascal 
liegt im sogenannten Extern-System. 
Das Extern-System erlaubt die Ent- 
wicklung von Programmen, deren 
Länge weit über die Speicherkapazität 
des Computers hinausgeht. Im 
Gegensatz zu anderen Programmier- 
sprachen, die nach diesem Prinzip 
arbeiten, verwaltet JRT-Pascal die 
benötigten Module beziehungsweise 
Funktionen in einer besonderen Art. 

Benötigt das Hauptprogramm ein 
externes Programm, so wird die 
betreffende Datei bei Bedarf in den 
Speicher geladen und ausgeführt. Der 
von den Prozeduren belegte Spei- 
cherplatz wird erst dann wieder freige- 
geben, wenn er vom Hauptprogramm 
anderweitig benötigt wird. Interessant 
dabei ist, daß JRT-Pascal in diesem 
Fall nicht ein beliebiges Modul im 
Arbeitsspeicher löscht, sondern das 
am längsten nicht mehr benutzte! 

Zusammenfassend kann man 
sagen, daß die beiden vorgestellten 
Pascal-Compiler zwei interessante 
Alternativen aus der Pascal-Welt dar- 
stellen. Dabei eignet sich die preis- 
werte Public Domain-Version eher zu 
ersten Einstiegsversuchen. Sollten 
Sie dann stärkeres Interesse an dieser 
Programmiersprache finden, so führt 
am Erwerb von Turbo-Pascal kein Weg 
vorbei. 

Comal spielt auf dem Gebiet der 
Programmiersprachen noch eine 
untergeordnete Rolle. Neben Basic 
haben allenfalls Pascal (als Musterbei- 
spiel für strukturiertes Programmie- 
ren) und C (als maschinennahe Hoch- 
sprache) einen hohen Bekanntheits- 
grad erlangt. 

Doch die geringe Verbreitung von 
Comal erstaunt, wenn man erfährt, 
daß diese Sprache die herausragen- 
den Merkmale der anderen wichtigen 
Hochsprachen fast vollständig in sich 
vereint. 

Comal - genauer Comal-80 - wurde 
im Jahr 1973 von den Dänen Christen- 
sen und Löfsted entwickelt, um eine 
Programmiersprache zu schaffen, die 


sich für den Einsatz in Schulen und 
Universitäten eignet. Das Fundament 
von Comal wird aus Sprachelementen 
von Basic und Pascal gebildet. Doch 
Comal wurde laufend aktualisiert, so 
daß sich in der vorliegenden Version 
auch Elemente von Logo und C finden 
lassen. 

Mit Comal sollten viele umständli- 
che Verfahren herkömmlicher Pro- 
grammiersprachen vermieden, 
gleichzeitig aber eine akzeptable 
Ablaufgeschwindigkeit erreicht wer- 
den. So ist die Programmierumge- 
bung zum Beispiel ein Interpreter, der 
den zeitaufwendigen Übersetzungs- 
vorgang der Compilersprachen 
umgeht. 

Zudem ist Comal so konzipiert, daß 
es nicht nötig ist, eine exakte Defini- 
tion der Programmstruktur durchzu- 
führen. Der Anwender muß beispiels- 
weise die benötigten Variablen nicht, 
wie in Pascal üblich, zu Programmbe- 
ginn gesondert deklarieren, um sie im 
Hauptprogramm benutzen zu dürfen. 


Comal — die 
unbekannte Sprache 


Die Hauptforderungen und Ziele, 
denen Comal-80 gerecht werden will, 
lassen sich wie folgt zusammenfas- 
sen: 

Der Programmierer kann Befehle, 
Prozeduren und Funktionen ähnlich 
wie in Forth (siehe Beitrag über Spra- 
chen für Profi-Programmierer) neu 
definieren und diese im Direktmodus 
aufrufen. 

Der Anwender kann alle Fehlerzu- 
stände, die durch Umsetzung eines 
Algorithmus auf den Computer erfol- 
gen, behandeln und gezielt beseiti- 
gen. 

Der strukturierte Aufbau eines 
Comal-Programms wird erreicht, 
indem die Sprache viele spezifische 
Funktionen des speziellen Computers 
unterstützt und durch ein sinnvolles 
Package-Konzept (ähnlich den 
Include-Dateien) Unübersichtlichkeit 
vermeidet. 

Hinzu kommen ein benutzerfreund- 
licher Bildschirmeditor, klare Fehler- 
meldungen in Deutsch und die Über- 
tragbarkeit einzelner Programme auf 
andere Computertypen. Comal ist 
nicht, wie oft vermutet wird, eine sim- 
ple Basic-Erweiterung, sondern stellt 
dem Programmierer eine komfortable 
Programmierumgebung zur Verfü- 
gung. Die außerordentlich schnellen 
Diskettenoperationen, die Programm- 
strukturen und die umfassenden Arith- 
metikroutinen sind weitere Vorteile 
dieser Programmiersprache. 
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Im Gegensatz zur Comal-Version 
1.83, die bislang für 69 Mark auf Dis- 
kette vertrieben wurde, ist nun für alle 
CPC-Modelle auch die Version 2.0 für 
stolze 248 Mark als ROM-Modul 
erhältlich. 

Doch die Version 2.0 ist ihr Geld 
wert, denn sie enthält im Gegensatz 
zu der älteren Fassung einen wesent- 
lich erweiterten Befehlssatz, der keine 
Wünsche mehr offenläßt. Sie unter- 
stützt das 3-Zoll-Laufwerk von Schnei- 
der ebenso wie die Diskettenstation 
von Vortex unter VDOS 2.0. 

Sollten in Ihrem Computer mehr als 
64 KByte Speicherplatz zur Verfügung 
stehen, so wird dieser zusätzliche 
Bereich als RAM-Disk benutzt. Das 
funktioniert unter Comal sowohl mit 
den oberen 64 KByte des CPC 6128, 
als auch mit der Vortex-Speicher- 
erweiterung, den dk'Tronics-Produk- 
ten (inklusive Silicon Disc) und der 
Data Media-Aufrüstung! 


Da macht das Pro- 
grammieren Spaß 


Für Comalprogramme und Daten- 
felder sind im Gegensatz zur Version 
1.83 35 KByte Speicherplatz verfüg- 
bar. Das ROM-Modul enthält jedes 
Package auf EPROM; man muß sie 
also nicht erst von Diskette laden. Um 
dem Programmierer bei der Pro- 
grammanalyse und Fehlerbeseiti- 
gung eine Hilfe zu geben, erscheint 
jede Fehlermeldung in Deutsch mit 
Kommentar. 

Erfreulich ist auch die Fähigkeit der 
Comal-Version 2.0, relative Dateien 
einzurichten, die sehr leicht und gut 
kontrollierbar zu lesen und zu verän- 
dern sind. 

Außerdem lassen sich mit dieser 
Version sequentielle Dateien im 
Append-Modus betreiben. Das heißt, 
bereits angelegte, beschriebene und 
wieder geschlossene Dateien dürfen 
zum Weiterbeschreiben (Anhängen) 
geöffnet werden. 

Doch einen wichtigen Nachteil von 
Comal wollen wir nicht verschweigen. 
Das CPC-Comal bearbeitet Funktio- 
nen wie Sinus, Kosinus oder Logarith- 
mus äußerst langsam. 

Für den CPC 6128 mit dem Betriebs- 
system CP/M Plus gibt es eine weitere 
Comal-80-Version. Sie wird zusam- 
men mit einem Runtime-Modul ausge- 
liefert. Dadurch kann man in Comal 
geschriebene Programme auch ohne 
den eigentlichen Interpreter unter der 
Programmierumgebung CP/M ablau- 
fen lassen. 

Das Comal-ROM-Modul begleitet 
ein ausführliches deutsches Hand- 
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buch mit vielen Beispielprogrammen. 

Zusammenfassend stellt die Comal- 
Version 2.0 sowohl für den Einsteiger 
als auch für den Profi eine interes- 
sante Programmiersprache dar, die 
die Entwicklungszeit von Software 
erheblich verkürzt (wenn auch zu 
einem stolzen Preis). 

Die letzte Programmiersprache, die 
wir in diesem Beitrag vorstellen, ist in 
der Programmiererszene sehr umstrit- 
ten. Es handelt sich um Logo. Ohne 
Frage ist Logo die Programmierspra- 
che, die bereits Kindern im Vorschulal- 
ter spielerisch den Einstieg in die 
Computerwelt erleichtert. 

Doch lassen sich mit Logo durchaus 
auch anspruchsvolle Programme 
schreiben. Auf dem Gebiet der Grafik- 
programmierung ist diese Sprache 
ohnehin fast unschlagbar. Das Prinzip 
der Turtle-Grafik findet neuerdings 
auch in anderen Software-Produkten 
großen Anklang. 

Entwickelt wurde Logo in langjähri- 
ger Arbeit von Seymore Papert. Es 
entspricht in seinen Grundstrukturen 
den Definitionen von Lisp. Es ist 
gleichzeitig aber übersichtlich aufge- 
baut und leicht verständlich, da sich 
der Programmautor lange mit kindli- 
chen Verhaltensweisen und Denk- 
strukturen beschäftigt hat. Von Päd- 
agogen empfohlen, gilt Logo als eine 
der besten Einsteigersprachen über- 
haupt. 


keine Spielerei 


Der Aufbau von Logo weicht von 
dem einer »herkömmlichen« Program- 
miersprache ab. Die einzelnen 
Befehle von Logo werden einfach ein- 
getippt, wie auch ein normaler Text 
geschrieben wird. Existiert ein Befehl 
oder ein Routinenaufruf nicht, sokann 
er anhand der übrigen Befehle selbst 
definiert werden. 

Der »Preis« ist natürlich eine der 
stärksten Seiten von Logo, denn die 
Version Dr. Logo liegt jedem Schnei- 
der-Diskettenlaufwerk als »kostenlose 
Zugabe« bei. 

Wer jedoch professionell program- 
mieren möchte, sollte die Finger von 
Logo lassen. Die hohe Anwender- 
freundlichkeit und der große Program- 
mierungskomfort werden nämlich 
durch einige schwerwiegende Nach- 
teile erkauft. So benötigen die leicht 
verständlichen Logo-Routinen soviel 
Speicherplatz, so daß umfangreiche 
Programme von vornherein nicht in 
Frage kommen. 

Das gravierendste Problem liegt 
jedoch zweifelsohne in der geringen 


Ablaufgeschwindigkeit von Logo 
(siehe Benchmarktest), die bei 
rechenintensiven Problemlösungen 
besonders ins Gewicht fällt. Aus die- 
sem Grund ist Logo für mathemati- 
sche Aufgaben denkbar ungeeignet. 

In den letzten Jahren sind immer lei- 
stungsfähigere Versionen der Pro- 
grammiersprache Basic entwickelt 
worden, doch die Grenzen sind abzu- 
sehen. So ist Basic sicherlich die am 
wenigsten spezialisierte Sprache der 
vorgestellten Programmiersprachen, 
so daß es in fast allen Bereichen zum 
Einsatz kommt. Doch für Programme, 
die eine hohe Geschwindigkeit errei- 
chen müssen, ist Basic - zumindest in 
der Interpreterform - ungeeignet. 


Welche Sprache 
ist die richtige 


Weil jedoch eine große Anzahl der 
Programme in Computerzeitschriften 
in dieser Sprache abgedruckt sind, 
kann man auch auf ein großes Poten- 
tial interessanter und leicht umsetzba- 
rer Software zurückgreifen, und das 
fast zum Nulltarif. 

Der Programmiersprache Pascal 
gehört zumindest die nahe Zukunft. 
Vor allem das leistungsfähige Konzept 
von Turbo-Pascal und der Preis des 
Public Domain-Programms JRT-Pas- 
cal tragen zu der großen Popularität 
bei. 

Turbo-Pascal setzte mit der heraus- 
ragenden Geschwindigkeit der Com- 
pilierung und des Programmcodes, 
sowie mit der Kürze des Programm- 
codes bereits einen Meilenstein in der 
Entwicklung der Programmierspra- 
chen. 

Die exakte Definition der Pro- 
grammeigenschaften durch Professor 
Nikolaus Wirth und der modulare Auf- 
bau von Pascal bewirken die unkom- 
plizierte Übertragbarkeit von einzel- 
nen Programme auf andere Compu- 
tertypen. 

Die spezielle Anpassung der Grafik- 
befehle an die spezifischen Eigen- 
arten der CPC-Grafik und der äkzep- 
table Preis erleichtern dem Interes- 
sierten Anwender den Einstieg in das 
interessante Gebiet der Pascal-Pro- 
grammierung. 

Wenn Sie erst einmal in Pascal hin- 
einschnuppern möchten, dann emp- 
fiehlt sich die Public-Domain-Version. 
Sie enthält zu einem wirklich heraus- 
ragenden Preis eine komplette Anlei- 
tung und ein sehr leistungsfähiges 
Programm. 

Comal ist sicherlich eine der bisher 
am wenigsten beachteten Sprachen, 
die aber wesentlich mehr Interesse 
verdient. Die Nähe zu Basic, die den 
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Umstieg problemlos werden läßt und 
die Implementation der wichtigsten 
Eigenschaften anderer höherer Pro- 
grammiersprachen machen Comal zu 
einer leistungsfähigen Programmier- 
umgebung. 

Da es eine Disketten- und eine 
Modulversion gibt, ist auch der Preis 
kein großes Problem. Die Modulver- 


10 PRINT”Start” Listing 1. Der Benchmarktest 
20 i=0 im Locomotive-Basic 

30 WEILE i() 5000 

40 isi+l 

50 IF i/2=INT(1/2) THEN i=ix2/2+2-2 

60 a=(5 AND 4 OR 3) 

70 WEND 

80 PRINT ”Ende” 


sion hat natürlich den Vorteil, daß ein 
erheblich größerer Befehlssatz und 
wesentlich mehr Speicherplatz zur 
Verfügung stehen. 

Der durchdachte Aufbau und ein 
komfortabler Editor machen Comal zu 
einer interessanten Programmier- 
sprache, deren Entwicklung in bezug 
auf Ausführungsgeschwindigkeit und 
Bekanntheitsgrad für die Zukunft hof- 


PRINT "Start”;chr$(7) Listing 2. Der CBasic-Compiler 


i=0 erlaubt eine bessere optische 
WEILE i() 5000 Strukturierung und benötigt keine 
i=i+1 Zeilennumerierung 


IF i/2=INT(1/2) THEN i=ix2/2+2-2 
a=(5 AND 4 OR 3) 

WEND 

PRINT chr$(7) ; "Ende” 

END 


fen läßt. 


Bücher, Bücher, 


Abschließend möchten wir Sie noch 
auf einen nicht zu vernachlässigen- 
den Umstand aufmerksam machen, 
der ebenfalls einen Einfluß auf Ihre 
Kaufentscheidung haben sollte. 

Alle vorgestellten Programmier- 
sprachen mit Ausnahme des Loco- 
motive-Basic enthalten im Lieferum- 
fang keine Anleitung zum Erlernen der 
Programmiersprache. Das heißt, daß 
Sie zu den Anschaffungskosten der 
Programmiersprache noch mit Kosten 
für begleitende Literaturrechnen müs- 
sen, die Ihnen den Umstieg von Basic 
auf eine andere Programmiersprache 
erleichtert. 

Hier gibt es für einige Compiler eine 
größere Auswahl an Büchern als für 
andere, und der Verbreitungsgrad an 
Fachliteratur kann auch regional sehr 
unterschiedlich sein. 

Es ist nicht verkehrt, wenn Sie sich 
vor dem Kauf mit Literatur zu einer 
Programmiersprache beschäftigen, 
um dann eine Kaufentscheidung zu 


program benchmark; Listing 3. Die Turbo-Pascal-Fassung 
des Benchmarktests 
var 
a,i:real; 


begin 
writeln('Start'); 
i:=0; 
repeat 
i:=i+1; 
if i/2=int(i/2) then i:=ix2/2+2-2; 
a:=(5 and 4 or 3); 
until i=5000; 
writeln('Ende'); 
end. 


program benchmark; Listing 4. Für den JRT-Pascal-Compiler 
waren einige kleine Änderungen nötig 
ver (logische Operatoren werden nicht 
a,i:real; akzeptiert) 


begin 
writeln('Start'); 
i:=0; 
repeat 
i:=i41; 
if round(i/2)=trune(i/2) then i:=142/2+2-2; 
a:=5+4-3; 
until i=5000.0; 
writeln('Ende'); 
end. 


treffen. So können Sie sich manche 
Enttäuschung ersparen. 

Sie erhalten durch Bücher einen 
größeren Überblick und unter Umstän- 
den auch neue Anregungen, die wir 
Ihnen innerhalb dieses begrenzten 
Rahmens nicht geben konnten. 

Wer weiß - vielleicht schreiben Sie 
später selbst einmal die Programmier- 


0010 PRINT ”Start” Listing 5. Der Benchmarktest 
0020 i:=0 als Comal-Programm ... 

0030 REPEAT 

0040 i:=i+1 

0050 IF i/2=INT(i/2) THEN i=i42/2+2-2 

0060 a:=(5 AND 4 OR 3) 

0070 UNTIL i=5000 

0080 PRINT ”Ende” 


sprache der Zukunft! 
(Markus Zietlow/ma) 


Bezugsquellen: 
Basic: Markt&Technik Verlag, Hans-Pinsel-Str.2, 8013 Haar 
Turbo-Pascal: Heimsosth Software, Fraunhoferstr. 18, 8000 
München 5 

JRT-Pascsal: Martin Kotulla, Grabbestr. 9, 8500 Nürnberg 80 
Comal: Bauer & Kaup GBR, Teichstr. 9, 4401 Saerbeck 


to benchmark Listing 6. ... und als Primitive in Logo 

type *Start (auch hier sind keine logischen 

make "i 0 Operatoren zugelassen) 

repeat 5000 [make "i :i+1if (:i/2=int :i/2) 
[make "i:ix2/2+2-2] 
make "a5 +4 - 3] 

type "Ende 

end 
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Programmieren 
wie die Profis 


auf dem Gebiet der elektroni- 

schen Datenverarbeitung pas- 
siert. Fortgeschrittene Miniaturisie- 
rung und ein enormer Preisverfall 
machten Computer einem großen 
Interessentenkreis zugänglich. Doch 
das steigende Angebot an Hardware 
hat auch einen hohen Bedarf an Soft- 
ware zur Folge. Die Ausweitung der 
Anwendungsmöglichkeiten auf kauf- 
männische und wissenschaftliche 
Gebiete bedeutet auch eine erhöhte 
Nachfrage nach Programmierspra- 
chen, die den gestellten Anforderun- 
gen genügen. 

Prinzipiell lassen sich heutzutage 
zwei Trends beobachten, die die Ent- 
wicklung von Programmiersystemen 
nachhaltig beeinflussen. Als erstes 
besteht ein Bedarf an schnellen Spra- 
chen zur Auswertung und Verwaltung 
von großen Datenmengen, zum Bei- 
spiel in der Forschung. Andererseits 
haben sich vor allem in letzter Zeit Pro- 
grammiersprachen etabliert, die ein 
relativ beschränktes Zielgebiet zulas- 
sen. Diese problemorientierten Spra- 
chen haben den Vorteil, daß sie sich 
jeweils für ein spezielles Aufgabenfeld 
am besten eignen. Die hautsächli- 
chen Anwendungsgebiete der Spra- 
chensindin Bild 1 grafisch dargestellt. 
Bild 2 zeigt die Distanz zwischen der 
Programmiersprache und der Maschi- 
nenebene auf. 


| n den letzten zehn Jahren ist viel 


Programmiersprachen gibt es 
wie Sand am Meer. Doch wel- 
che ist die richtige für eine 
bestimmte Anwendung? Wir 
haben mehrere interessante, 
aber noch wenig verbreitete 
Sprachen für den CPC auf ihre 
Leistungsfähigkeit und das Ein- 
satzgebiet überprüft. 


Fast alle Programmierumgebungen 
haben eins gemeinsam: Sie sind 
Compiler-orientiert. Das bedeutet, 
daß das Quellprogramm erst mit 
einem Texteditor geschrieben wird, 
um es danach in einen maschinenna- 
hen Code umzuwandeln. Grundsätz- 
lich gibt es dabei zwei Alternativen. 
Einerseits besteht die Möglichkeit, ein 
Komplettsystem anzubieten, das 
schnell zwischen Editor und Compiler 
wechseln kann. Dies hat den Vorteil, 
daß das Schreiben und Überprüfen 
von Programmen äußerst komfortabel 
ist. 

Das entgegengesetzte Prinzip geht 
davon aus, Editor, Compiler, Linker 
und Library zu trennen. Das hat den 
Vorteil, daß man nicht auf ein System 
beschränkt ist, sondern mit den Hilfs- 
mitteln unterschiedlicher Compiler, 
Linker und Libraries arbeiten kann. 
Das offene System erlaubt auch die 
Verwendung mehrerer Programm- 
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Bild 1. Die ursprünglichen Anwendungsgebiete der bekanntesten Programmier- 


sprachen 
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teile, die in unterschiedlichen Spra- 
chen geschrieben wurden. 

Mit Hilfe dieses Artikels wollen wir 
Ihnen das Basiswissen über Program- 
miersprachen für fortgeschrittene 
Benutzer vermitteln und Ihnen die ver- 
schiedenen Versionen vorstellen, die 
auf den Schneider CPCs eingesetzt 
werden. Es ist wichtig anzumerken, 
daß die vorgestellte Auswahl weder 
vollständig ist noch sein kann. Dafür 
gibt es einfach zu viele exotische und 
Pproblemspezifische Sprachen, die für 
den normalen Anwender uninteres- 
sant sind. Andererseits gibt es sehr 
viele verschiedene Versionen der ein- 
zelnen Sprachen, deren Aufzählung 
und Beschreibung eine ganze Büche- 
rei füllen würde. So haben wir uns ent- 
schieden, Ihnen nur die wichtigsten 
und am weitesten verbreiteten Dia- 
lekte vorzustellen. 


Der Nachfolger 
von Pasca 


Die wahrscheinlich bekannteste 
höhere Programmiersprache ist Pas- 
cal. Sie ist das erste populäre Pro- 
grammiersystem, das sich mit struktu- 
rierter Programmierung und gezielt 
definierten Datenstrukturen beschäf- 
tigt. Doch soll im folgenden keine 
Beschreibung von Pascal folgen, da 
deren Aufbau schon im ersten Beitrag 
über Programmiersprachen darge- 
stellt wurde (siehe Programmierspra- 
chen für Einsteiger). Pascal spielt aber 
bei der Programmierung auf PCs eine 
sehr wichtige Rolle, weshalb es hier 
nochmals erwähnt werden muß. 

Mit Modula stellt sich eine Pascal 
sehr ähnliche Programmiersprache 
vor. Modula ist die konsequente Wei- 
terentwicklung von Pascal, das in eini- 
gen Bereichen Schwächen aufweist. 
So unterstützt Pascal, das ursprüng- 
lich nur zu Lehrzwecken konzipiert 
wurde, keine Routinen, die das 
Betriebssystem direkt ansprechen 
oder auf bestimmte Speicherbereiche 
zugreifen. Des weiteren sind die Ein- 
und Ausgaberoutinen ziemlich unzu- 
reichend. 

Im Jahre 1975 hat Niklaus Wirth 
wegen dieser Schwächen des Pascal- 
Systems eine neue Sprache ent- 
wickelt, die die auftretenden 
Schwachpunkte von Pascal vermei- 
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det. Die Firma Borland, von der der 
Standard Turbo-Pascal stammt, hat 
nun vor einiger Zeit einen Modula-2 
Compiler veröffentlicht, der unter 
‚CP/M lauffähig ist. Er heißt - wie sollte 
es auch anders sein - Turbo-Modula 
und erfüllt natürlich den Wirthschen 
Standard. Die Programmierumge- 
bung lehnt sich eng an das von Turbo- 
Pascal bekannte Erscheinungsbild. 
Der Editor ist wie gewohnt Wordstar- 
kompatibel, enthält aber im Gegen- 
satz zu der Türbo-Pascal-Version 
einige Besonderheiten. 

Da es mit dem Modula-Editor mög- 
lich ist, Texte zu schreiben, die über 
den zur Verfügung stehenden Spei- 
cherplatz hinausgehen, benutzt er 
natürlich oft das Diskettenlaufwerk. 
Dadurch erscheint der Editor zwar 
sehr langsam, doch läßt sich die feh- 
lende Geschwindigkeit wegen der gro- 
Ben Vorteile dieser Programmkonzep- 
tion akzeptieren. Turbo-Modula ist ein 
Dialekt, der sich hauptsächlich für fort- 
geschrittene Programmierer eignet. 
Wer Pascal perfekt beherrscht, wir mit 
Turbo-Modula seine Freude haben. 
Mit 225 Mark ist Turbo-Modula jedoch 
nicht gerade billig. 

Die nächste Programmiersprache, 
die wir Ihnen vorstellen wollen, ist C. C 
wurde im Jahre 1972 von Ken Thomas 
und Dennis Ritchie entwickelt. Zu die- 
ser Zeit trat das Problem auf, das neu 
entwickelte Betriebssystem Unix auf 
andere Rechner umzusetzen. Um in 
bezug auf Unix eine möglichst große 
Portabilität zu erreichen, entwickelten 
die beiden Autoren die Programmier- 
sprache C. Sie ist sehr maschinennah 
und erlaubt sehr kompakte und 
schnelle Programme. 

Viele Befehle, die normalerweise 
nur in Assembler zur Verfügung ste- 
hen, sind auch in © integriert. Durch 
die weite. Verbreitung ist auch eine 
hohe Portabilität auf alle wichtigen 
Computer gegeben. C enthält viele 
heute übliche Datenstrukturen und 
unterstützt strukturiertes Program- 
mieren. Die Möglichkeit von rekursi- 
ven Funktionsaufrufen und der modu- 
lare Aufbau machen C zu einer Pro- 
grammiersprache, die Weichen für die 
nahe Zukunft stellt, 

Ein äußerst unangenehmer Um- 
stand tritt im Zusammenhang mit C 
jedoch bei der Fehlererkennung und 
-beseitigung auf. Wegen der maschi- 
nennahen Konstruktion erkennt C 
keine Fehler, soweit sie nicht die Syn- 
tax einer Funktion betreffen. Ein weite- 
rer Nachteil von Cist, daßeszu wenige 
Plausibilitätsprüfungen durchführt. 
Das hat zwar einerseits sehr kurze 
Programme zur Folge, aber anderer- 
seits führt diese Vorgehensweise zu 
schwer aufzufindenden Fehlern. 
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Bild 2. Eine vereinfachte Darstellung des Verhältnisses zwischen Programmier- 


sprache und Maschinennähe 


Für den Schneider CPC gibt es zwei 
Versionen, die wir besonders heraus- 
heben möchten. Sie tragen beide den 
gleichen Namen (Small C), sprechen 
aber recht unterschiedliche Anwen- 
derkreise an. Die erste der beiden Ver- 
sionen nennt sich Small-C-Entwick- 
lungssystem und ist im Markt & 
Technik-Verlag erschienen. Sie ist 
wesentlich besser dazu geeignet, pro- 
fessionelle Programme zu entwickeln 
als die Public Domain-Version, benö- 
tigt aber für ihren Betrieb einen Spei- 
cherplatzumfang von mindestens 128 
KByte RAM. 


Ein Entwicklungs- 
system 


Das Entwicklungssystem befindet 
sich auf drei beidseitig bespielten 
3-Zoll-Disketten, die alle zum Betrieb 
des Compilers benötigten Unterrouti- 
nen enthalten. Ein sehr interessanter 
Punkt ist, daß alle Hauptprogramme 
als C-Quellcode geliefert werden und 
so später je nach Bedarf von erfahre- 
nen Programmierern modifiziert wer- 
den können. Das Handbuch ist die 
schwächere Seite des Systems. Es 
befinden sich zwar Beschreibungen 
der Small-C-Bibliothek sowie des mit- 
gelieferten Small-Mac-Assemblers 
und des Small-C-Tools darin, esfehlen 
aber Hinweise auf die Bedienung des 
umfangreichen Entwicklungspaketes. 
Diese C-Variante ist mit 99 Mark recht 
preiswert. 

Die zweite Variante von Small C ist 
als Public Domain-Software für 30 
Mark erhältlich. Dieser C-Compiler 
akzeptiert nur eine bestimmte Unter- 


menge der C-Standardbefehle. Dabei 
wurde die Befehlsmenge so ausge- 
wählt, daß die wichtigsten Prozeduren 
nur sehr gering beeinträchtigt sind. 

Das gelieferte System besteht aus 
einem Texteditor, Assembler, Linker 
und natürlich dem eigentlichen Com- 
piler. Wie beschrieben, ist die Fehler- 
kontrolle bei C sehr eingeschränkt. 
Um diese Fehlerquelle einzudämmen, 
enthält diese Version einen sogenann- 
ten Profiler, der die Fehleranalyse und 
-beseitigung wesentlich vereinfacht. 
Der Profiler speichert die Anzahl der 
einzelnen Funktionsaufrufe und gibt 
sie am Ende eines Programmes aus. 
Dadurch erhalten Sie die Möglichkeit, 
zu häufig aufgerufene Routinen in 
ihrer Arbeitsweise zu rationalisieren 
und andererseits bemerken Sie, wel- 
che von Ihnen definierten Funktionen 
nicht aktiviert wurden. 

Hierzu ist anzumerken, daß die 
Dokumentation zu dem Programmpa- 
ket keine Einführung in die Program- 
miersprache darstellt. Sie ist lediglich 
eine Ausführung der Besonderheiten 
des Systems und enthält Hinweise zur 
Steuerung der Programmentwick- 
lung. Erfreulicherweise ist sie kom- 
plett ins Deutsche übersetzt, was bei 
Public Domain-Programmen nicht 
immer der Fall ist. Sollten Sie nähere 
Informationen zu C wie auch zu den 
anderen Programmiersprachen benö- 
tigen, so sehen Sie sich am besten auf 
dem reichhaltigen Literaturmarkt um. 

Die nächste Programmiersprache 
ist eine der umstrittensten. Es handelt 
sich dabei um Forth, das zu Beginn 
der siebziger Jahre von Charles H. 
Moore in den USA entwickelt wurde. 
Ursprünglich wurde es zur Steuerung 
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eines Radioteleskops entwickelt. Auf 
dieser Basis entstand eine sehr 
maschinennahe, schnelle und trotz- 
dem noch relativ einfache Program- 
miersprache, die sich zu einem Stan- 
dard auf dem Gebiet von Wissen- 
schaft und Technik entwickelte. 

Es gibt keine Programmiersprache, 
die so heiß diskutiert wird wie Forth. 
Durch die äußerst maschinennahe 
Programmierung erscheinen die Pro- 
gramme sehr unstrukturiert und 
unübersichtlich, doch die hohe 
‚Ablaufgeschwindigkeit kompensiert 
dieses Manko fast gänzlich. 

Im Gegensatz zu vielen anderen 
Programmsystemen enthält Forth 
eine sehr interessante und praktische 
Programmablaufsteuerung. Ein Pro- 
gramm kann sowohl compiliert als 
auch durch den Interpreter ausgeführt 
werden. Die hohe Geschwindigkeit 
von Forth liegt zum großen Teil auch in 
seiner Arithmetikbehandlung begrün- 
det. 

Die Arithmetikroutinen nutzen den 
Stapel genauso wie es die Rechenrou- 
tinen des Mikroprozessors machen. 
Der Wert, der als letzter auf dem Sta- 
pel abgelegt wurde, wird auch als 
erster wieder gelesen. Dieses Prinzip 
nennt man LIFO (Last in - First out). 

Aus diesen den Maschinenspra- 
chenprogrammierern schon bekann- 
ten Datenstrukturen ergibt sich die 
umgekehrt polnische Notation (UPN) 
als Zahlenverarbeitung. Der Aufbau 
dieser Rechenweise ist schnell an 
einem Beispiel erklärt. 


UPN und der Stapel 


Normalerweise denken wir in einer 
Reihe von aufeinanderfolgenden 
Gedanken. Wollen wir zum Beispiel 
zwei Zahlen addieren, so überneh- 
men wir den Rechenterm nacheinan- 
der vom Anfang bis zum Ende in unser 
Gehirn. Dabei gehen wir beim Lesen 
der Formel sequentiell vor, das heißt, 
unser Auge wandert von der ersten 
Zahl bis zum Gleichheitszeichen. Tip- 
pen wir diese Rechenaufgabe in einen 
Taschenrechner, so übergeben wir 
wieder sequentiell die Rechung in den 
Taschenrechner. Wollen wir wissen, 
wieviel»11 + 12«ist, geben wir erst die 
Zahl 11 ein, dann das Plus-Zeichen, 
daraufhin die 12 und schließlich das 
Gleichheitszeichen. In der Anzeige 
erscheint dann die Zahl 23. 

Im Gegensatz dazu legt Forth zuerst 
die Zahlen beziehungsweise Operan- 
den, die es verknüpfen soll, auf dem 
Stapel ab. Trifft Forth dann auf den Ver- 
küpfungsfaktor - in unserem Fall das 
Plus-Zeichen - so holt er die letzten 
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beiden Werte vom Stapel, verknüpft 
sie durch Addition und legt das Ergeb- 
nis schließlich wieder auf dem Stapel 
ab. 

Forth wurde von einer Gruppe von 
Programmierern standardisiert und 
die »Forth Interest Group«, kurz FIG 
genannt, wacht über die Einhaltung. 
Trotzdem erfährt Forth immer noch 
Neuerungen und verbesserte Pro- 
grammstrukturen, die es noch aktuel- 
ler machen. 

Die letzte Modifikation geht auf das 
Jahr 1983 zurück, in dem der letzte 
FIG-Standard festgelegt wurde. Her- 
vorzuheben ist auch die erweiterbare 
Befehlsbibliothek von Forth. Das 
bedeutet, daß mit Hilfe der vordefinier- 
ten Prozeduren völlig neue Befehle 
beziehungsweise Funktionen defi- 
niert werden können. Hat man eine 
neue Funktion definiert, so nimmt 
Forth sie in sein sogenanntes Wörter- 
buch auf. Das Wörterbuch enthält alle 
Systemfunktionen und die selbstdefi- 
nierten Kommandos. 

Durch diese Möglichkeit sind Sie in 
der Lage, den Sprachwortschatz und 
die Sprache selbst Ihren speziellen 
Wünschen anzupassen. Man definiert 
für die einzelnen Operationen ent- 
sprechende Worte, die genauso wie 
andere Forth-Wörter aufgerufen wer- 
den können. 

Dabei spart man sich die Program- 
mierung eines Hauptprogramms, das 
die Eingabekommandos interpretiert 
und die entsprechenden Unterpro- 
gramme aufruft. Das Forth-System 
erledigt dieses ganz automatisch und 
bietet gleichzeitig die Möglichkeit, in 
der neuen Kommandosprache zu pro- 
grammieren. Das bedeutet, daß Sie 
sich unter Forth ein völlig neues 
Betriebssystem oder eine neue Pro- 
grammiersprache schreiben können, 
die dann unabhängig benutzt werden 
kann. 

Gespeichert wird ein Programm in 
sogenannten Screens, die aus je 
sechzehn Zeilen mit vierundsechzig 
Buchstaben bestehen. Diese Screens 
werden meistens gepackt gespeichert 
und dann bei Bedarf wieder geladen. 
Dabei erreicht Forth die große 
Geschwindigkeit durch die Compilie- 
rung des Quelltextes in Maschinen- 
sprache. 

Ein großer Nachteil von Forth liegt in 
der groben Unstrukturiertheit, die ein 
übersichtliches Programmieren nicht 
gerade fördert. Wenn sich der Pro- 
grammierer über längere Zeit ein 
Forth-Programm nicht mehr angese- 
hen hat oder die Bearbeitung nach 
einem gewissen Zeitraum wieder fort- 
setzen will, so hat er kaum eine 
Chance, den ursprünglichen Quelltext 
wieder zu verstehen. Dieses Problem 


ergibt sich aus der speziellen Syntax 
der Forth-Programme und der anson- 
sten vorteilhaften Möglichkeit der 
Befehlsdefinition. Dieser Umstand 
erschwert natürlich auch die Fehler- 
suche. 

Für die CPC-Reihe sind zwei Pro- 
gramme interessant, die seit einiger 
Zeit auf dem deutschen Markt ange- 
boten werden. Es handelt sich dabei 
um das CPC-Forth von Holtkötter und 
den Public Domain-Compiler Forth 83. 
CPC-Forth wird entweder in der Kas- 
settenversion oder in der Disketten- 
version unter CP/M angeboten. 


Forth gegen Forth 


Der Befehlsumfang dieses Dialek- 
tesenthältzusätzlich zu den Grundbe- 
fehlen noch einige Kommandos, die 
die Arbeit mit dem System wesentlich 
erleichtern. Für Einsteiger ist CPC- 
Forth eine Alternative zu den anderen 
auf dem Markt befindlichen Forth- 
Programmen. 

Allerdings kommt man um Sekun- 
där-Literatur nicht herum. Ein umfan- 
greiches Handbuch gehört zwar zum 
Lieferumfang, es wird aber seiner Auf- 
gabe als begleitende Dokumentation 
nicht immer gerecht. So sollte zumin- 
dest ein kleines Kapitel für Einsteiger 
enthalten sein, da viele Anwender 
bestimmt ihre ersten Erfahrungen 
sammeln müssen. Doch in dem ge- 
samten Begleitbuch ist nicht ein einzi- 
ges Forth-Programm abgedruckt. 
Auch sind die Befehle der CPC-Forth- 
Version zu knapp erklärt; jeweils ein 
kurzes Beispielprogramm hätte Wun- 
der gewirkt. Trotzdem ist Forth 139 
Mark (auf Kassette nur 92 Mark) wert. 

Im Gegensatz zum CPC-Forth läuft 
Forth-83 nur unter CP/M, das heißt, 
daß es keine Kassettenversion gibt. 
Doch die Leistungsdaten sind wirklich 
hervorragend. Forth-83 besitzt einen 
sehr umfangreichen Befehlssatz, der 
in keinerlei Hinsicht irgendwelche 
Schwächen hat. Hinzu kommen noch 
nützlich Hilfsprogramme wie ein 
Decompiler, ein Assembler und ein 
guter bildschirmorientierter Editor. 

Forth-83 ist besser als viele andere 
kommerzielle Forth-Versionen und 
erleichtert dem Anwender den Ein- 
stieg in diese Programmiersprache 
sehr. Die Multitasking-Fähigkeit und 
viele CPC-spezifische Kommandos 
machen Forth-83 zu einem ohne Ein- 
schränkung zu empfehlenden Pro- 
gramm, das vor allem zu einem Preis 
von 30 Mark in jede Programmsamm- 
lung gehört. 

Doch nun zu einer relativ exotischen 
Programmiersprache, die aber für 


CPC-Besitzer ein breites und interes- 
santes Aufgabengebiet erschließt. Es 
handelt sich um BCPL. BCPL ist eine 
Art Vorversion von C. BCPL wird oft als 
Sprache bezeichnet, die sich für die 
Systemprogrammierung eignet. 

Diese Beschreibung wird dem Auf- 
bau und der Funktionsweise dieser 
Programmiersprache jedoch nicht 
gerecht, denn BCPL kann mehr. Der 
besondere Vorteil von BCPL liegt in 
der Flexibilität. Programme, die in die- 
ser Sprache geschrieben wurden, 
sind nicht durch Strukturierungsvor- 
schriften beeinflußt, nach denen eine 
Variable nur einen bestimmten Typ 
repräsentieren darf. 

Es gibt bei BCPL keine verschiede- 
nen Variablentypen. Variablen werden 
einfach als Platzhalter für Zahlen ver- 
standen und Operationen mit Zei- 
chenketten werden zum Beispiel 
durch Manipulationen mit den numeri- 
schen Variablen erreicht. Diese Fähig- 
keit unterscheidet BCPL von vielen 
anderen Programmiersprachen, die 
eine exakte Variablendefinition benöti- 
gen. Eine Zeichenkette wird einfach 
durch eine Variable bestimmt, die auf 
den Anfang der Folge im Speicher 
zeigt. Selbst Prozeduren sind nur ein- 
fache Variablen, deren Wert die Lage 
einer Prozedur angibt. 

Diese Flexibilität erlaubt es dem 
Programmierer, jeden gewünschten 
Bereich des Speichers (sogar jedes 
einzelne Bit) anzusprechen und somit 
mit Operationen zu arbeiten, die 
ansonsten nur Maschinensprache- 
Programmen zugänglich sind. 

Natürlich hat jeder Komfort seinen 
Preis. Das ist auch in BCPL nicht 
anders. Im Gegensatz zu anderen 
Programmiersprachen, die unsinnige 
oder fehlerhafte Routinen abfangen 
undanzeigen, muß BCPL hier passen. 
Der Programmierer ist in BCPL sehr 
frei und darf auch in sein eigenes Ver- 
derben laufen. 

Ein BCPL-Compiler für die CPCs ist 
von dem britischen Softwarehaus 
Arnor als EPROM-Version mit Diskette 
für 129,90 Mark erhältlich. Auf der Dis- 
kette befinden sich beispielsweise 
zwei verschiedene Demonstrations- 
programme, die zwei völlig unter- 
schiediiche Anwendungsbereiche 
ansprechen. Beide überraschen 
durch ihre Geschwindigkeit. Dagibtes 
einerseits einen Disassembler und 
andererseits - man höre und staune - 
ein akzeptables Space Invaders. 
BCPL für die Schneider CPC-Compu- 
terenthält den vollen BCPL-Standard- 
befehlssatz und ist als interessantes 
exotisches Programm sehr zu emp- 
fehlen. 

Mit der nächsten Programmierspra- 
che nähern wir uns dem absoluten 


Optimum an Geschwindigkeit. Esgeht 


um Assembler beziehungsweise 
Maschinensprache. An der Maschi- 
nensprache führt kein Weg vorbei, 
denn jeder Compiler übersetzt ein 
Programm letzten Endes in Maschi- 
nensprache. 

Die Assembler-Routinen geben 
dem Mikroprozessor und den zugehö- 
rigen Bausteinen direkt Kommandos, 
die innerhalb weniger Mikrosekunden 
ausgeführt werden. Die Maschinen- 
spracheroutinen werden sofort ausge- 
führt. 

Der eigentliche Quelltext muß vor- 
her durch einen Editor geschrieben 
und mit Hilfe eines Assemblers über- 
setzt werden. Der Assembler über- 
trägt dann jeden einzelnen Befehl in 
eine für den Mikroprozessor (auf den 
CPCs der Z80) verständliche Byte- 
Folge von höchtens vier Byte. 

Für die CPC-Computer von Schnei- 
der existieren zwei interessante 
Assembler-Programme, die einen 
unterschiedlichen Anwenderkreis an- 
sprechen. 

Das erste System ist das Assem- 
blerpaket aus der Public Domain- 
Software zu 30 Mark. Es enthält einen 
Assembler, einen intelligenten Disas- 
sembler sowie einen Maschinenspra- 
chemonitor, der leicht zu handhaben 
ist. Obwohl das gesamte Paket unter 
CP/M läuft, benutzt der Assembler 
den Register- und Befehlssatz des 
Z80-Mikroprozessors. Neben dem lei- 
stungsfähigen Assembler befinden 
sich auf der Diskette noch ein Linker, 
der die vorhandenen Programm- 
Module zusammenfügt, und ein Moni- 
tor, der sich auch zur Einzelschrittbe- 
arbeitung eines Maschinensprache- 
Pprogramms eignet. 


Schlaues Paket 
Der intelligente Disassembler 


besticht auch durch umfangreiche 
Manipulationsmöglichkeiten. Der mit- 
gelieferte Assembler eignet sich gut 
zu einem modularen Aufbau der ein- 
zelnen Programmteile. Er erzeugt aus 
jeweils fehlerfreien Quelltexten einen 
Code, der sich gut in andere Pro- 
grammteile einbinden läßt. 

Diese Modultechnik hat zur Folge, 
daß bei der Assemblierung eines 
Quelltextes nicht alle Routinen über- 
setzt werden müssen und dadurch viel 
Zeit und Fehlerbehandlung erspart 
bleibt. 

Der Disassembler hebt sich deut- 
lich von den allgemein bekannten 
Disassemblern ab, die Maschinen- 
code einfach in Mnemonics zurück- 
wandeln. Der Disassembler dieses 
Pakets erkennt sogar automatisch 


Wortketten von mehr als acht Zeichen 
Länge und markiert alle in einem Pro- 
gramm vorkommenden Sprungmar- 
ken. 

Der Monitor ist schließlich der letzte 
Bestandteil diese Pakets. Er enthält 
einen kompletten Z80-Assembler und 


gleichzeitig eine Breakpoint-Ver- 
waltung von bis zu sechzehn Break- 
points. 


Als ROM-Version für die CPCs unter 
Amsdos empfiehlt sich das Maxam- 
Modul, das zusätzlich zu den norma- 
len Funktionen einen äußerst komfor- 
tablen Editor enthält. Es ist einer der 
schnellsten Assembler, die es für den 
Schneider-CPC gibt. Die EPROM- 
Version kostet 129,90 Mark und die 
Diskettenversion 99,90 Mark. 

Nach den geschwindigkeitsorien- 
tierten Sprachen wenden wir uns nun 
den Dialekten zu, die für ein besonde- 
res Anwendungsgebiet geschaffen 
wurden. Die erste der wichtigen Pro- 
grammierumgebungen ist Cobol 
(Common business oriented lan- 
guage). Cobol ist im Bereich der kauf- 
männischen und Wirtschaftspro- 
gramme die Programmiersprache, die 
man am häufigsten antrifft. Bereits im 
Jahr 1960 erschien die erste Version. 

Da die damals verwendeten Pro- 
grarmmiersprachen wie Algol oder 
Fortran die in sie gesetzten Erwartun- 
gen nicht mehr erfüllen konnten, 
wurde Cobol entwickelt. Hervorzuhe- 
ben sind die Möglichkeiten zur Doku- 
mentation und die gute Lesbarkeit des 
Programmquelltextes. Ein Cobol-Pro- 
gramm liest sich wie englische Prosa, 
die beschreibt, was getan wird. Aberin 
der guten Dokumentation von Cobol 
liegt auch ein ziemlich großer Nach- 
teil. Da ein Programm aus vier Haupt- 
teilen besteht (Identification Division, 
Environment Division, Data Division 
und Procedure Division), muß der 
Einführungs- und Variablendeklara- 
tionsteil jeweils wiederholt werden. 

Die Nevada-Cobol-Version für den 
CPC entspricht fast völlig dem ANSI- 
Standard von 1974 und enthält für 99 
Mark auch sinnvolle Befehlserweite- 
rungen, die die Programmierung kom- 
fortabler gestalten. 

Der Vater aller Programmierspra- 
chen ist Fortran (formula translator). 
Fortran wurde hauptsächlich für 
Anwendungen im wissenschaftlichen 
und technischen Bereich konzipiert 
und findet dort auch heute noch Ein- 
satz. 

Seit dieser Dialekt erstmals im 
Jahre 1966 ANSI-standardisiert 
wurde, entpuppte er sich schnell als 
beliebte Programmierumgebung. 
Konzeptionell herrscht in Fortran das 
Prinzip des modulartigen Aufbaus vor, 
so daß der heutige Fortran-Program- 
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mierer auf eine große Anzahl von 
Standardroutinen und -utilities 
zurückgreifen kann. 

Die vorliegende, nur unter CP/M 
lauffähige Version namens Nevada- 
Fortran enthält zwar nur eine Unter- 
menge der im ANSI-Standard festge- 
legten Kommandos, jedoch eignet sie 
sich trotzdem für kleine bis mittlere 
Anwendungsbereiche. Kostenpunkt: 
99 Mark. 

Letztendlich zu den Sprachen der 
sogenannten »Künstlichen Intelli- 
genz«, kurz Kl. Für die Schneider- 
CPCsgibt es jeweils zwei interessante 
Versionen, die sich für den Einstieg in 
dieses Gebiet eignen. 

Ein professionelles System für den 
Schneider CPC ist micro-Prolog. Das 
gelieferte Programmpaket enthält 
neben der Programmdiskette ein 
umfangreiches Prolog-Handbuch, 
das alle Besonderheiten von micro- 
Prolog beschreibt. Lobenswerter- 
weise liegt? dem Programm aber 
zusätzlich - übrigens als einzigem 
Programm in unserem Test - noch ein 
Handbuch bei, das alle Grundlagen 
von Prolog erklärt und damit den Ein- 
stieg in die Programmierung erleich- 
tert. 

Lisp ist ebenfalls wie Forth auf der 
umgekehrt polnischen Notation auf- 


gebaut. Da Lisp sehr flexibel ist, wird 
es auch heute noch benutzt, obwohl 
seine Grundzüge schon 1959 festge- 
legt wurden. Es ist vorwiegend zur 
Listenverarbeitung geschrieben wor- 
den und ähnelt damit in gewisser 
Weise der wesentlich aktuelleren 
Sprache C. 

Als Public Domain-Software sind 
sogar beide Sprachen zusammen auf 
einer Diskette gespeichert. Es ist aber 
anzumerken, daß diese Versionen der 
beiden Sprachen nur den Grundwort- 
schatz des jeweiligen Programmier- 
systems implizieren und aus diesem 
Grund fast ausschließlich für kleinere 
Programme geeignet sind. 

Da das Public Domain-Programm 
XLisp (30 Mark) aber den Grundwort- 
schatz mit Möglichkeiten zur objekto- 
rientietten Programmierung ver- 
knüpft, benötigt diese Version minde- 
stens 128 KByte Speicherplatz. Der 
Prolog-Interpreter E-Prolog für eben- 
falls 30 Mark gibt sich hingegen wegen 
seiner Länge von nur 6 KByte auch mit 
weniger Speicherplatz zufrieden. 

Jedes der vorgestellten Programme 
hat sein bestimmtes Einsatzgebiet. 
Darüber sollten Sie sich zuerst im kla- 
ren sein, bevor Sie ein Programm kau- 
fen. Generell bieten die aufgeführten 
Public Domain-Programme eine her- 


vorragende Alternative zu den kom- 
pletten und umfangreichen professio- 
nellen Programmiersystemen. Diese 
Programmsprache-Versionen sind vor 
allem dann wichtig, wenn man sich 
noch nicht entschieden hat, welche 
Sprache sich für die eigenen Zwecke 
eignet. 

In vielerlei Hinsicht ist die Public 
Domain-Software sogar besser als die 
professionell angebotene. Manche 
Dialekte, wie zum Beispiel Forth-83, 
stellen sogar die optimale Program- 
mierumgebung für die spezielle Spra- 
che dar. 

Sollte die Public Domain-Version 
allerdings einen im Anbetracht 
des festgelegten Sprachenstandards 
wesentlich geringeren Befehlsumfang 
besitzen, so ist bei weiterführendem 
Interesse die professionellere Version 
zu empfehlen, die normalerweise auch 
ein umfangreicheres Utility-Paket 
enthält. (Markus Zietlow/gn/ma) 


Bezugsquellen: 
‚Assembler-Paket, Xlisp, E-Prolog, Small-C, Forth-83: Martin 
Kotulla, Grabbestr. 9, 8500 Nürnberg 90 

Turbo-Modula: Heimsoeth Software, Fraunhoferstr. 13, 8000, 
München 5 

‚Small-C: Markt&Technik Verlag, Hans-Pinsel-Str.2, 8013 Haar 
CPC-Forth; Holtkötter, Albert-Schweizer-Ring 9, 2000 Ham- 
burg 70 

BOPL, Maxam: Arnor Deutschland, Hans-HenryJahn-Weg21, 
2000 Hamburg 76 

Nevada-Cobol, Nevada-Fortran: Comfood, Rohrbusch 79, 
4400 Münster-Roxel 

Miero-Prolog: Brainware, Gustav-Mayer-Allee 25, 1000 Berlin 65 


Einer kam durch 


ahezu jeder Besitzer eines 

Schneider-Computers ist 

schon einmal in die Situation 
geraten, von einem Programm eine 
Kopie anfertigen zu müssen. Ist das 
Programm als Datei auf Diskette 
gespeichert, benutzt man in der Regel 
die mit dem Laufwerk gelieferte Utility 
»Filecopy«. Für ganze Disketten- 
inhalte bietet sich dagegen das eben- 
falls mitgelieferte »Disccopy« oder 
»Disckit« an. Beide Hilfsprogramme 
eignen sich für sämtliche unge- 
schützte Software. Was aber tun, 
wenn das Original kopiergeschützt 
ist? Da helfen die Programme aus 
dem Lieferumfang absolut nicht wei- 
ter. Doch warum sollte man überhaupt 
Sicherheitskopien anlegen, zumal 
doch schon der Text auf der Ver- 
packung des teuren Programms vor 
unerlaubtem Kopieren und dessen 
rechtlichen Konsequenzen ausdrück- 
lich warnt? 

Die Frage beantwortet sich wie von 
selbst, wenn die Diskette mit der 
betreffenden Software eines schönen 
Tages verdächtig im Laufwerk zu rat- 
tern beginnt, weil erste Lesefehler auf- 
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Professionelle Kopierpro- 
gramme versprechen viel. Doch 
was vermögen sie wirklich zu 
leisten? Wir ließen für Sie die 
drei interessantesten Kandi- 
daten gegeneinander antreten. 
Eins ist fast perfekt. 


treten. Hat die Diskette erst einmal 
Schaden genommen, kommt man 
meist nicht umhin, das Programm 
erneut zu kaufen. Einige wenige 
Software-Hersteller bieten für solche 
Fälle zwar eine Art Umtausch-Service 
an. Umstände wie längere Wartezei- 
ten, während derer man das Pro- 
gramm ja nicht nutzen kann, und 
unverhältnismäßig hohe Kosten für 
die Kopie (inklusive Porto und Kosten- 
beteiligung kommt man leicht auf 30 
Mark oder mehr, während selbst teuer- 
ste Leerdisketten im Laden nebenan 
nicht mehr als 10 bis 12 Mark kosten) 
lassen diesen »Service«jedoch nurals 
schwachen Trost erscheinen. 

Andere Softwarefirmen profitieren 
von diesem zwangsläufigen Interesse 
der Computerbenutzer an Sicher- 


heitskopien, indem sie spezielle 
Kopierprogramme anbieten. So wird 
der Markt in letzter Zeit von unzähli- 
gen derartigen Utilities geradezu 
überschwemmt. So gibt es Kopierpro- 
gramme, die geschützte Kassetten- 
software auf Diskette kopieren (oder 
zumindest vorgeben, es zu vermö- 
gen). Dazu kommen die recht teuren 
Kopiermodule »Disc-Wizard«, »Multi- 
face Two« und »Mirage Imager«, bei 
denen man nur noch auf einen Knopf 
drücken muß, um das Programm im 
Arbeitsspeicher auf Diskette zu spei- 
chern (mehr dazu erfahren Sie aus 
unserem Test auf Seite 11). 

Den größten Marktanteil bestreiten 
Diskettenkopierprogramme. Als nor- 
maler Computerbesitzer steht man 
etwas hilflos vor diesem mannigfalti- 
gen Angebot, da alle diese Produkte 
überragende Fähigkeiten verspre- 
chen, es aber »schwarze Schafe« dar- 
unter gibt, die nur einen verschwin- 
dend geringen Teil geschützter Pro- 
gramme kopieren. 

Um zu verstehen, warum einige Dis- 
kettenkopierprogramme mehr leisten 
als andere, müssen wir uns zunächst 
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Insert TARGET-Disc into Drive A then press any key 


Supercopy informiert während des Kopierens stets über 


den Stand der Dinge 


die Frage stellen, wie eine Diskette 
überhaupt zu schützen ist. Umfassen- 
des Wissen darüber erwerben Sie 
durch die Lektüre des Beitrags 
»Schutz - wie lange noch?« auf Seite 
45. Wollen Sie nicht so weit in diese 
Materie einsteigen, bieten wir Ihnen 
hier einen kleinen Abriß der wichtig- 
sten Details zum besseren Verständ- 
nis des Tests. 

Normalerweise besteht jede forma- 
tierte CPC-Diskette aus 40 Spuren. 
Einige Softwarefirmen formatieren die 
Disketten durch einen Trick mit bis zu 
43 (3-Zoll-Laufwerke der ersten Gene- 
ration verarbeiten sogar bis zu 44 Spu- 
ren) Spuren und verstecken ihren 
Kopierschutz auf einer dieser zusätzli- 
chen Spuren. Spuren können Sie sich 
als eine Art magnetische »Fahrbahn« 
vorstellen, andenensich der Lesekopf 
des Diskettenlaufwerks orientiert. 
Jede Spur wiederum ist in eine Anzahl 
Sektoren unterteilt. Diese Sektoren 
tragen die eigentlichen Informationen, 
die der Computer in seinen Arbeits- 
speicher lädt. Die Zahl der Sektoren 
einer Spur beträgt normalerweise 9, 
manchmal ist sie aber bei kopierge- 
schützten Disketten manipuliert und 
dementsprechend höher oder niedri- 
ger. Jeden Sektor erkennt und unter- 
scheidet der Lesekopf an der soge- 
nannten Sektor-ID (ID=Identifikation). 
Die Sektor-ID enthält Informationen 
über Sektorlänge, Lesekopfnummer, 
Spurnummer und Sektornummer. Sie 
dient dem Computer auch zur Erken- 
nung, ob der Sektor formatiert ist, also 
überhaupt Daten trägt. 

Wie lassen sich also Disketten 
gegen das Kopieren schützen? Zum 
Leidwesen der Kopierwilligen gibt es 
da eine - wenn auch endliche - Viel- 
zahl von Möglichkeiten: 

- Manipulation der Sektoranzahl pro 

Spur 
- Veränderung der Sektorgrößen 


Anzahl der Leseversuche: 
Tritt nach der angegebenen Zahl von 


ersuchen noc! 

Be so nimmt das Programm an, di 
um 

kimstlich. 


auf, 
es sich 


immer ein Lesefehler 
einen als Ropierschutz 
erzeugten Fehler handelt 


und übernimmt ihn auf die Kopie. 


Problem anpassen 


- Sektoren mit gelöschter Data- 
Adress-Mark 
- Sektoren mit illegaler Sektor-ID 


(zum Beispiel falsche Spur- bezie- 
hungsweise Kopfnummer oder un- 
realistische Sektorgröße) 

-künstliche Lesefehler (beispiels- 
weise Prüfsummenfehler) 

= unformatierte Spuren 

- gleiche Sektor-IDs 

- physikalische Verschiebung des 
ersten Sektors 


Vielschichtige 
Kopier-Hindernisse 


Diese Liste ist keineswegs vollstän- 
dig, da die Softwarefirmen ständig an 
neuen Schutzmechanismen tüfteln. 
Sie gibt uns jedoch zuverlässige Krite- 
rien in die Hand, um die Fähigkeiten 
unserer Probanden auszuloten und zu 
beurteilen. 

Das Ziel eines Kopierprogramms 
ist, möglichst viele Kopierschutzme- 
chanismen zu »überlisten«, indem es 
sie einfach mitkopiert. So leicht, wie 
sich das im ersten Moment anhören 
mag, gestaltet sich dieses Unterfan- 
gen indes keineswegs. So gelingt es 
diversen Kopierprogrammen beileibe 
nicht, eine zufriedenstellende Zahl 
von Schutzmechanismen außer Kraft 
zu setzen. Sie können sicher den 
Ärger eines Anwenders nachfühlen, 
der ein nicht gerade billiges Disketten- 
kopierprogramm erwirbt und dann 
feststellen muß, daß sich damit nur der 
geringste Teil seiner Programmsamm- 
lung kopieren läßt. 

Daher wollen wir für Sie die Spreu 
vom Weizen trennen, indem wir Ihnen 
drei aktuelle und - glaubt man der 
Werbung - leistungsfähige Kopierpro- 
gramme vorstellen und sie in einem 
Vergleichstest antreten lassen. 


23 ; nehr i 
v weniger 
<ENTER> Wert übernehmen 


Die Parameter von Mastercopy lassen sich jedem Kopier- 


Die Bezeichnung Clone (deutsch: 
Klon) bedeutet soviel wie »identische 
Kopie« und ist zur Zeit im gentechni- 
schen Bereich in aller Munde. Ein 
Kopierprogramm diesen Namens 
erschien erstmals Ende 1986 auf dem 
Software-Markt. Es stammt vom Ent- 
wickler Ralf Waldeck, der schon seit 
zwei Jahren auf dem CPC 664 pro- 
grammiert, nachdem er seines ZX81 
überdrüssig war. Der Entwickler 
erklärt die Funktionsweise seines Pro- 
gramms, freilich ohne seine Geheim- 
nisse preiszugeben, wie folgt: »Zuerst 
liest Clone eine Sektor-ID, um an der 
Sektornummer zu erkennen, ob die 
Diskette formatiert ist. Ist das nicht der 
Fall, bricht Clone den Kopiervorgang 
sofort ab (wer kopiert schon unforma- 
tierte Disketten?). Alle Sektoren wer- 
den so auf ihre Formatierung geprüft. 
Jeweils acht formatierte Spuren wer- 
den in den Arbeitsspeicher eingele- 
sen. Der Benutzer legt nun eine Dis- 
kette ein, auf die das Programm 
kopiert werden soll und die acht Spu- 
ren werden geschrieben. Dieser Vor- 
gang wiederholt sich einige Male, bis 
die ganze Diskette kopiert ist.« 

Ein Schnellader sorgt für die kurze 
Ladezeit von Clone, nach deren Ende 
man vor der Wahl steht, mit einem 
oder zwei Laufwerken (mit zwei Lauf- 
werken ist die Kopierrichtung immer: 
von A nach B) 40 oder 44 Spuren zu 
kopieren. Beim erfolgreichen Kopie- 
ren entstehen exakte 1:1-Kopien; die 
Kopie unterscheidet sich also in nichts 
vom Original. 

Auch Supercopy arbeitet mit ein 
oder zwei Laufwerken, bietet dafür 
jedoch im Gegensatz zu Clone vier 
wahlfreie Kopierrichtungen (von Lauf- 
werk Anach Laufwerk A, vonBnachB, 
von A nach B und von B nach A). Es 
arbeitet unter Amsdos und kümmert 
sich um 43 Spuren. Da die neueren 
3-Zoll-Laufwerke nur 43 Spuren verar- 


79 


beiten (manche gar nur 42), genügt 
diese Spanne in der Praxis völlig. 

Zwei Maschinenbau-Studenten, R. 
Günther und Th. Scholl, begannen im 
Mai des Jahres 1986 mit der Entwick- 
lung von Supercopy: »Wir wollten uns 
einmal mit der Programmierung in 
Maschinensprache bekanntmachen. 
Als erstes Projekt bot sich uns ein 
Kopierprogramm an, da es seinerzeit 
nichts Vergleichbares gab«. Nach 
intensiver Lektüre einschlägiger Lite- 
ratur und einem Vierteljahr ange- 
strengter Arbeit war dann Supercopy 
fertig. Tests mit insgesamt 500 Pro- 
grammen fielen zur vollsten Zufrie- 
denheit der Entwickler aus. 

Da man aber nie weiß, was sich die 
Software-Schützer demnächst für 
neue Tricks einfallen lassen, gibt es 
für Supercopy einen sogenannten 
Update-Service. Dieser beinhaltet den 
kostenlosen Umtausch des gekauften 
Supercopy innerhalb kürzester Zeit in 
eine neue, erweiterte Version mit der 
Fähigkeit, den neuen Kopierschutz zu 
verarbeiten, Dazu sendet der Käufer 
die Diskette mit dem »Problemfall« 
und sein Supercopy-Original an den 
Hersteller. 

Mastercopy wurde von dem 
17jährigen Schüler Peter Mandrella 
programmiert. Es entstand aus einer 
Art Notsituation heraus: »Ich wollte 
Sicherheitskopien von einigen meiner 
Spielprogramme anfertigen, mußte 
aber leider feststellen, daß alle verfüg- 
baren Kopierprogramme jämmerlich 
versagten. Also kam mir die Idee, 
selbst ein solches Programm zu 


In letzter Minute 


Wie eine telefonische Nach- 
Recherche bei den Herstellern der 
Programme Supercopy und Ma- 
stercopy ergab, sind mittlerweile 
die im Test erwähnten fehlenden 
Schutzmechanismen von beiden 
Utilities kopierbar. Supercopy soll 
nun auch Mastercopy problemlos 
kopieren und selbst einen verbes- 
serten Kopierschutz erhalten 
haben, den Mastercopy wiederum 
nicht verarbeitet. Am Testergebnis 
ändert dieser Umstand indes 
nichts, da man stets nur vom Status 
Quo ausgehen kann. Da aber 
bekanntlich der Update-Service 
existiert, ändert sich die Situation 
laufend. Nachdem nun also beide 
angeblich sämtliche derzeit 
gebräuchlichen Schutzmechanis- 
men kopieren, liefern sich ihre Pro- 
grammierer einen einsamen 
Wettkampf... 


80. HOMESOMPUTE 


s ] <ione Tsupercopy Mastercopy 
Manipulation der Sektorzahl x z x x 
Veränderung der Sektorgröße RS x x 
gelöschte Data-Adress-Mark x x 
Sektoren mit fehlerhafter ID x x x 
künstliche Lesefehler ’ x 
| unformatierte Spuren x x x 
werden auf Zieldiskette 
»entformatiert« 
Physikalische Umpositionierung Ar 
von Sektoren prüft die physikalische 
Lage der Sektoren und, 
‚ob der erste Sektor auch 
in Höhe des Indexlochs 
‚steht 
leiche IDs x x x 
hr unsicher| unsicher sicher 


Diese Schutzmechanismen verarbeiten die drei Prüflinge 


schreiben und ich machte mich ans 
Werk.« 

Was dabei herauskam, kann sich 
wirklich sehen lassen. Für das Kopie- 
ren einer ganzen Diskettenseite 
braucht man im günstigsten Fall mit 
einem Laufwerk etwa 1% Minuten, 
zwei Laufwerke erledigen die Aufgabe 
gar in nur knapp einer Minute. Beim 
Bearbeiten der Zieldiskette wird im 
selben Schritt formatiert undgeschrie- 
ben. Viele andere Programme erledi- 
gen das in zwei getrennten Schritten. 

Mastercopy verfügt als einziges der 
getesteten Utilities über einen inter- 
nen Timer, der bei gleichen Sektor-IDs 
für den Zugriff auf den richtigen Sektor 
sorgt. Auch mit Mastercopy lassen 
sich komfortablerweise bei Verwen- 
dung zweier Laufwerke Quell- und 
Ziellaufwerk nach Belieben auswäh- 
len. Durch eine wahlweise Geschwin- 
digkeitsoptimierung ist die Kopierge- 
schwindigkeit zu beeinflussen. Das 
erweist sich in der Praxis als überaus 
nützlich, da viele Programme mit die- 
ser höheren Geschwindigkeit zu 
kopieren sind. Alternativ steht eine 
Sicherheitsoptimierung zur Wahl, mit 
der sich die maximale Kopiersicher- 
heit variieren läßt. Mastercopy testet 
dann nicht auf alle Schutzmechanis- 
men. Eine Erhöhung geht selbstver- 
ständlich zu Lasten der Geschwindig- 
keit. Auch andere Parameter wie zum 
Beispiel die Anzahl der Leseversuche 
sowie erste und letzte Spur sind varia- 
bel einzustellen. 

Der Hersteller versichert auf der 
Packung, daß »Mastercopy alle zur 
Zeit auf dem Markt befindlichen Pro- 
gramme (Stand März 1987) kopiert«. 
Und treten irgendwann einmal 


Schwierigkeiten beim Kopieren eines 
neuen Programms auf, existiert für 
Mastercopy ein ähnlicher Update- 
Service wie für Supercopy. Allerdings 


kostet jeder Umtausch in eine neue 
Version jeweils 10 Mark. 

Für den Vergleichstest sind die drei 
Kriterien Kopiersicherheit, Benutzer- 
freundlichkeit und Preis ausschlag- 
gebend. An diese Reihenfolge der 
Gewichtung wollen wir uns halten. 

Um die Kopiersicherheit festzustel- 
len, haben wir keine Mühen gescheut 
und versucht, 100 Programme, ältere 
und neuere Spiel- beziehungsweise 
Anwendersoftware, mit jedem der drei 
Probanden zu kopieren. Das Ergebnis 
rechtfertigte unsere Anstrengungen, 
denn es offenbarte Erstaunliches. 

Clone kopierte zunächst »wie eine 
Eins« und wir fragten uns, ob wir mit 
der Zahl der Testdurchgänge nicht 
doch etwas zu hochgegriffen hatten. 
Doch - kaum waren diese ketzeri- 
schen Gedanken zu Ende gedacht - 
zeigten sich die ersten »Aussetzer«. 
Nach dem hundertsten Haken auf der 
ersten Checkliste stand dann das 
Endergebnis fest: Clone verarbeitete 
insgesamt 79 Prozent der Programme 
erfolgreich. Zur Ehrenrettung müssen 
wir Clone aber zugestehen, daß es zu 
den etwas gesetzteren Semestern 
zählt und seine »Fehlzündungen«sich 
auf relativ neue Programme 
beschränken. Dieser Umstand wäre 
nicht so tragisch, böte die Firma Wald- 
eck einen Update-Service wie ihre 
Konkurrenten. 


Dreikampf 


Durch das etwas magere erste Teil- 
ergebnis etwas entmutigt, wandten 
wir uns dem zweiten Durchgang zu. 
Um es kurz zu machen: Supercopy 
schlug sich wacker und kopierte 92 
Prozent der Software. Es scheiterte an 
Programmen diverser Labels, was nur 
zum Teil daran lag, daß es einzelne 
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Kopierschutzmechanismen nicht 
überlisten konnte. Vielmehr kopierte 
es manchmal erstaunlicherweise 
auch solche Programme nicht, für 
deren Kopierschutz es eigentlich 
gerüstet ist; es fabrizierte schlicht Feh- 
ler beim Schreiben der Daten. So 
greift Supercopy bei Sektoren mit glei- 
cher IDwillkürlich auf einen der Sekto- 
ren zu. Dadurch geraten die Sektoren 
mitunter in eine falsche Reihenfolge. 
‚Auf diese Weise entspricht der Aufbau 
der Zieldiskette nicht exakt dem des 
Originals und es kommt zu empfindli- 
chen Fehlern. 

Ganz anders liegt der Fall bei 
Mastercopy, an dem sich unsere 
Tester die Zähne ausbissen. Der Hin- 
weis auf der Verpackung, »Master- 
copy kopiert alle zur Zeit auf dem 
Markt befindlichen Programme«, ani- 
mierte uns natürlich, das Programm 
besonders kritisch unter die Lupe zu 
nehmen und diese Aussage gegebe- 
nenfalls zu widerlegen. Nachdem 
bereits alle 100 Testprogramme erfolg- 
reich ihren Weg auf vormals leere Dis- 
ketten gefunden hatten, packte uns 
der Ehrgeiz: Es mußte doch irgend 
etwas zu finden sein, das Mastercopy 
in seine Schranken verweist. Also 
schafften wir weitere Programme 
heran. »110«, »120«, »130« und zuletzt 
»134« vermerkten die Tester als Zahl 
der Testdurchläufe - keine Chance! 
Am Testergebnis änderte sich nicht 
das geringste, denn mehr als 100 Pro- 
zent sind naturgemäß nicht möglich. 
Mastercopy triumphierte also souve- 
rän über all unsere Bestrebungen. Es 
kopiert wirklich alles, was man ins Dis- 
kettenlaufwerk schiebt - solange es 
zumindest annähernd einer Diskette 
ähnelt. Aber Spaß beiseite. Bei allem 
Überschwang der Gefühle muß man 
gestehen, daß es derzeit doch zumin- 
dest ein Programm gibt, das mit der 
jetzigen Mastercopy-Version nicht 
kopierbar ist. So jedenfalls lautet die 
erfreulich ehrliche Auskunft der Firma 
Computer-Corner - Nobody is perfect. 
Doch der Programmierer Peter Man- 
drella setzt derzeit alle Anstrengun- 
gen daran, auch den Kopierschutz für 
eine neue Mastercopy-Version zu ana- 
Iysieren. Diese neue Version ist dann 
von jedem registrierten Käufer beim 
Hersteller im Umtausch zu beziehen. 

Als krönenden Abschluß des Tests 
ließen wir die drei Konkurrenten noch- 
mals gegeneinander antreten; dies- 
mal jedoch im direkten Vergleich. Das 
bedeutet, wir haben mit jedem der 
Kopierprogramme versucht, die 
jeweils anderen zu kopieren. Das 
Ergebnis unterstreicht die bereits 
gesammelten Erkenntnisse: Master- 
copy kopiert sowohl Clone als auch 
Supercopy, Supercopy kopiert nur 
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Clone, Clone aber versagt seine Dien- 
ste in beiden Fällen. 

Längst nicht so viel Bedeutung wie 
der Kopiersicherheit kommt dem Krite- 
rium Benutzerfreundlichkeit bei unse- 
rer Bewertung zu. Clone schneidet 
auch hier am schlechtesten ab. So 
fragt Clone, wie oben bereits erwähnt, 
zum Beispiel am Anfang, ob es 40 
oder 44 Spuren kopieren soll. Woher 
soll aber der Benutzer wissen, ob die 
Originaldiskette nun gerade 40 oder 
44 Spuren trägt? Diese Arbeit sollte ja 
wohl eigentlich Aufgabe des Kopier- 
programms sein. Als zweiten und gra- 
vierendsten negativen Punkt werteten 
wir Clones Unvermögen, die Kopier- 
richtung bei der Verwendung von zwei 
Laufwerken frei zu wählen. Gerade 
wenn man ein Zweitlaufwerk mit ande- 
rem Diskettenformat (3 oder 5" 
Zoll) betreibt, ist eine solche Auswahl 
wichtig, um Konvertierungen zwi- 
schen diesen verschiedenen Forma- 
ten zu erlauben. 

Supercopy stellt von der Bediener- 
freundlichkeit quasi das Nonplusultra 
dar, denn die Eingaben des Benutzers 
beschränken sich auf das äußerste 
erreichbare Minimum. Man muß es 
wirklich nur noch starten und die 
Kopierrichtung wählen. 

Ähnlich verhält es sich mit Master- 
copy. Esist von vornherein auf 42 Spu- 
ren eingestellt. Falls einmal ein 
Kopierversuch nicht die gewünschten 
Erfolge zeigt, kann der Benutzereinen 
erneuten Versuch mit einer anderen 
Spuranzahl starten. Es erlaubt die 
freie Wahl der Kopierrichtung und ver- 
fügt außerdem über eine wahlweise 
Geschwindigkeits- oder Sicherheits- 
optimierung. Diese zusätzliche Aus- 
stattung bedingt natürlich auch 
zusätzliche Handgriffe. 

Die Anleitung ist bei Mastercopy 
und Clone ins Programm integriert, 
während sie der Supercopy-Käufer 
auf einem Beipackzettel findet. 


Doppelbödige Moral 


Clone und Mastercopy lassen sich 
nicht mit sich selbst kopieren, so daß 
der Benutzer auf Sicherheitskopien 
dieser Programme verzichten muß. Es 
bleibt jedem Leser überlassen, sich 
seine eigenen Gedanken ob solcher 
Doppelmoral zu machen. Als einziges 
Programm im Testfeld gesteht Super- 
copy seinem Besitzer genau eine 
Sicherheitskopie von sich selbst zu. 
Beim Versuch, eine zweite Kopie 
anzulegen, macht das Programm 


freundlich darauf aufmerksam, daß 
eine Kopie ja wohl genüge. Dieser 
Weg ist sicher eine sehr gute Lösung. 


Clone Plazierung 
Kopiersicherheit 3.79%) 

| Benutzertreundiichkeit| 2 
Preis 1 (zirka 60 Mark), 
Gesamtwertung 3 % 
Supercopy Plazierung 
Kopiersicherheit 2.92%) 
Benutzerfreundlichkeit| 1 
Preis 3 (zirka 80 Mark) 
Gesamtwertung 2 
Mastercopy Plazierung | 
Kopiersicherheit 1 (100%) 
Benutzerfreundlichkeit| 1 
Preis 2 (zirka 70 Mark) 
Gesamtwertung N 


Einerseits hat nämlich der Benutzer 
eine kostenlose Sicherheitskopie von 
Supercopy, andererseits lassen sich 
so keine Raubkopien anfertigen. Eine 
Sicherheitskopie von Clone Ist gegen 
eine Gebühr von 20 Mark beim Her- 
steller erhältlich. Das schlägt sich 
natürlich negativ auf den effektiven 
Endpreis nieder. 

Clone ist mit seinem Preis von etwa 
60 Mark zwar in der Anschaffung billl- 
ger als die beiden anderen Pro- 
gramme, die zirka 70 (Mastercopy) 
beziehungsweise 80 Mark (Super- 
copy) kosten, aber angesichts der 
Kopierleistungen sollte man ruhig 
mehr auf den Ladentisch legen, um 
ein zuverlässigeres Programm zu 
erwerben. Vom idealen Kopierpro- 
gramm sind wir leider immer noch ein 
Stück entfernt. Es müßte eine Kombi- 
nation der positiven Eigenschaften 
bieten, also absolut alles kopieren und 
dabei, ohne Dazutun des Benutzers, 
vollautomatisch vorgehen. Wollen wir 
gemeinsam hoffen, daß wir Ihnen bald 
ein solches Programm andieser Stelle 
vorstellen können. Vielleicht ent- 
wickelt sich ja eins der beiden Top- 
Programme durch die ständigen Ver- 
besserungen dorthin. 

Zu einem Test mit derartigem Inhalt 
gehört als Abschluß selbstverständ- 
lich der Hinweis, daß gemäß $ 53/IV 
des Urheberschutzgesetzes (UrhG) 
»die Vervielfältigung eines Pro- 
gramms für die Datenverarbeitung 
oder wesentliche Teile davon nur mit 
Einwilligung des Berechtigten zuläs- 
sig« ist. Aber eigentlich nutzen Sie ja 
ohnehin keins der Programme, um 
Raubkopien anzufertigen - oder? 

(Carsten Bormeier/ja) 
Clone: Waldeck Software, Tulpenstraße 30, 2870 Delmenhorst 
Mastreop; Compuer Come, aubertänke 14,470 Ar 


Supercopy: Weeske Software, Wiflingshauser Straße 83, 7300 
Esslingen am Neckar 
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Para 3.0, Diskpara un 


Hatten Sie nicht auch schon 
mal das Problem, Daten zwi- 
schen dem Schneider CPC und 
einem anderen Computer- 
system auszutauschen? Die 
Lösung sind Programme wie 
Para 3.0 und Diskpara. In die- 
sem Vergleichstest zeigen wir 
Ihnen, was die beiden leisten. 


er sich intensiv mit CP/M 
beschäftigt, weiß, daß es 
eine Vielzahl unterschied- 


licher Aufzeichnungsformate für Dis- 
ketten gibt. Der Datenaustausch wird 
dadurch natürlich erschwert und man 
muß sich schon einige Tricks einfallen 
lassen, um überhaupt zu einem Erfolg 
zu kommen. Im, CP/M befinden sich 
zum Beispiel Übersetzungstabellen 
wie der Diskparameter-Block (DPB), 
in dem alle Details (Parameter) des 
gewünschten Formats eingetragen 
sind. Will man nun das Aufzeich- 
nungsformat ändern, dann braucht 
man ein Programm, das die Eintra- 
gungen im DPB ändert. Programme, 
die genau dies erlauben, sind Para 3.0 
und Diskpara. 

Von diesen beiden Programmen ist 
Para 3.0 neu auf dem Markt. Es ist 
schon eine Weile her, daß die erste 
Version dieses Vortex-Programms 
erschien. Jene erste Version wies Kin- 
derkrankheiten auf, die offenbar 
schwer behebbar waren. Einer deram 
häufigsten bemängelten Fehler war, 
daß Para die Zusammenarbeit mit 
dem VDOS des X-Moduls verwei- 
gerte. Doch diese Krankheiten sind 
nun behoben. Und bei dieser Gele- 


Doublestep 
Anzahl ,der Se} 
Phys. Sekt 


Erster Sektor 


Letzter 


Soll die Rueckseite auch analysiert werden 9 
Bei einer einseitigen Diskette vird ein Kaltstart neetig 


Diskpara zeigt bei der Analyse nur wenig Details 


genheit erfuhr das Programm auch 
gleich eine erhebliche Erweiterung 
seiner Leistungsfähigkeit. 

Im Lieferumfang enthalten ist ein 
sehr umfangreiches Anleitungsbuch, 
das die Menüführung anhand von 
Bildschirmausdrucken sehr anschau- 
lich erklärt. Der Umfang der Funktio- 
nen von Para 3.0 erfordert eine Auftei- 
lung der Benutzerführung auf meh- 
rere Bildschirme. Das geht allerdings 
auf Kosten der Übersichtlichkeit. Nach 
einer Eingewöhnungszeit ist das aber 
rasch vergessen. Eine wichtige Funk- 
tion ist die, bis zu vier virtuelle (logi- 
sche) Laufwerke zu simulieren sowie 
deren Parameter bis zum nächsten 
Kaltstart ins BIOS resistent einzubin- 
den. Im Klartext heißt das: Sogar nach 
Verlassen von Para 3.0 stehen meh- 
rere Formate zur Verfügung, die man 
wie auf echten Laufwerken anspricht. 
Die wählbaren zusätzlichen Lauf- 
werke und die Kurzbezeichnung der 
dort erreichbaren Formate ist bei 
jedem Warmstart als BIOS-Meldung 
am oberen Bildschirmrand eingeblen- 
det. Getrübt wird die Freude allerdings 
durch einen um 10 KByte verkleiner- 
ten Arbeitsspeicher (TPA), was beim 
Betrieb ohne Vortex-Speichererweite- 
rung den Ablauf einiger Programme 
nicht mehr zuläßt. Dazu gehören vor 
allem Turbo-Pascal-Programme, da 
der Compiler sehr verschwenderisch 
mit dem Speicherplatz der TPA 
umgeht, sowie einige Utilities, die das 
BIOS aufrufen und sich aufgrund der 
verschobenen Adressen nicht mehr 
zurechtfinden. Para 3.0 unterstützt bis 
jetzt nur CP/M 2.2. Eine runde Sache 
wird Para 3.0 erst in der fortgeschritte- 
nen Anwendung, am besten mit der 
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Vortex-Doppelstation. Dann kann man 
nämlich in Laufwerk A die Para 
3.0-Diskette und in Laufwerk B die 
Fremd-Diskette legen. 

Das von Para 3.0 aus zu startende 
Analyse-Programm erlaubt eine 
umfassende Untersuchung der Disk- 
Parameter, sowie der Spur- und 
Sektorübersetzung, die tabellarisch 
übersichtlich dargestellt werden. 
Speichert man einige Einstellungen, 
so wird beim Neustart von Para 3.0 
automatisch die Voreinstellung sicht- 
bar und sie läßt sich direkt mit dem 
RAM-BIOS-Aufruf einbinden. Dann 
kehrt Para 3.0 sofort zu CP/M zurück, 
die simulierten logischen Laufwerke 
bleiben erhalten. 

Etwas anders verhält es sich mit 
Diskpara von Strauß Elektronik. Da 
Diskpara direkt auf Disk-Controller- 
Routinen zugreift, istes nur unter dem 
Original-CP/M 2.2 lauffähig. Jeder 
Eingriff in die Zeropage oder die TPA 
verändert das CP/M so, daß die Adres- 
sen verschoben sind, Dies trifft also 
auf CP/M 2.2 zu, sobald unter der 
Vortex- oder dk’tronics-Speicher- 
erweiterung eine 62-KByte-TPA einge- 
richtet wird. Der Funktion von Disk- 
para tut das keinen Abbruch, lediglich 
die von Vortex verschobenen Adres- 
sen zur Einbindung der Speicher- 
erweiterung sind nicht ansprechbar, 
also keine TPA-Vergrößerung unter 
Diskpara. Nach dem Gebrauch von 
Diskpara kann man ja wieder das 
große CP/M booten. Das eingestellte 
Format auf dem B-Laufwerk ist zwar 
anschließend verschwunden, aber die 
Daten von den unterschiedlichsten 
Formaten lassen sich problemlos auf 
das A-Laufwerk übertragen. 


Panda 3.08 819659 P. Hoepfner &D. Cunkel 
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der Rest der CP/M-Welt 


Alle Standard-Programme unter 
CP/M 2.2, die nur mit den Standard- 
BDOS-Routinen ohne BIOS-Aufrufe 
arbeiten, laufen uneingeschränkt. 
Dazu gehören die meisten Public- 
Domain-Utilities (zum Beispiel 
Nsweep, Du) und auch professionelle 
Programme wie Wordstar. Endlich hat 
man für Texte genügend Platz auf der 
Diskette, ohne daß die häufige Mel- 
dung»Disc full« erscheint. Inder neue- 
sten Diskpara-Version kann man auch 
das MS-DOS-Format direkt einstellen. 

Die CP/M-2.2-Version für den CPC 
664 läuft auch auf dem CPC 6128. Für 
diesen bietet sich eine ideale Kombi- 
nation an: Diskpara und die dk’tronics 
Silicon-Disk. (Eine zusätzliche Spei- 
chererweiterung, die man genau wie 
ein Diskettenlaufwerk anspricht.) 
CP/M Plus kennt einen erweiterten 
BIOS-Teil, das sogenannte XBIOS, in 
dem die Diskparameter einstellbar 
sind. Da die Silicon-Disk sich streng 
am Amstrad-CP/M Plus orientiert, gibt 
es keine Konflikte mit Diskpara. Mit 
der Silicon-Disk als Zwischenspeicher 
lassen sich jederzeit die Formate 
wechseln und so zwischen beliebigen 
CP/M-Disketten Daten austauschen. 
Auch nach einem Reset (<CTRL+ 
SHIFT+ESC>) und Warmstart im 
CPI/M 2.2 ist der Zugriff auf die unver- 
änderten Dateien der Silicon-Disk 
gewährleistet. Ist Diskpara unter 
CP/M-Plus aktiv, läßt sich auch ohne 
Originaldiskette ständig das Format 
im Laufwerk B ändern. Unter der 
CP/M-2.2-Version gilt das zwar grund- 
sätzlich auch, man darf lediglich nicht 
vergessen, die Disketten mit <Otrl- 
C> einzuloggen. 

Bei der CP/M-Plus-Version sind alle 
Programme uneingeschränkt nutzbar, 
auch dBase Il und Multiplan beispiels- 
weise. 

Die Anwendung von Diskpara ist 
denkbar einfach und so gut menü- 
gesteuert, daß man selbst ohne Anlei- 
tung durch das Programm findet. Hilfe 
erhält vor allem der weniger Geübte 
bei der Eingabe von Disketten- 
Parametern, indem zu jedem Ände- 
rungspunkt in einem Window am 
unteren Bildrand Erläuterungen über 
sinnvolle Bereiche gegeben werden. 
Wer das Programm kennt und die 
Nummer des gewünschten Formats 
weiß, kann mit dem Aufruf »Diskpara 
27« zum Beispiel das Vortex-Format 
einloggen. Dabei werden nur die not- 
wendigen Teile des Programms durch- 
laufen und die Einstellzeit verkürzt 
sich auf ein Minimum. 


Der günstige Preis und die volle 
CP/M-Kompatibilität machen Disk- 
para zu einem nützlichen Werkzeug 
für den Austausch mit anderen Syste- 
men oder zur besseren Nutzung des 
Diskettenplatzes. Diskpara kann man 
übrigens auch auf 40-Spur-Laufwer- 
ken einsetzen, solange man als Spur- 
Anzahl entsprechende Werte wählt. 
Empfehlenswert ist das Paket-Ange- 
bot für etwa 98 Mark, bestehend aus 
Diskpara und MS-Copy; einem Kopier- 
Programm, das den Daten-Transfer 
zwischen CP/M und MS-DOS Dateien 
übernimmt. Das Format von MS-Copy 
ist so gewählt, daß es von einem 
40-Spur-Laufwerk sofort ohne Disk- 
para lesen kann. MS-Copy ist auch 
einzeln zu beziehen, dann allerdings 
um einiges teurer. 

Fazit: Diskpara hat zwar weniger 
Funktionen als Para 3.0, ist aber rasch 
erlernbar und leicht zu bedienen. Das 
Standard-CP/M wird von Diskpara un- 
terstützt. Vor allem für CPC-6128-Be- 


sitzer mit (oder ohne) dk’tronics 
Silicon-Disc ein unabdingbares Muß. 
Vorausgesetzt wird jedoch ein Zweit- 
laufwerk mit 5%4- oder 3'%-Zoll- 
Disketten, am besten mit 80 Spuren. 
Das 62-KByte-CP/M-2.2 ist bis jetzt 
noch nicht gleichzeitig verwendbar, es 
wird aber daran gearbeitet. Keinerlei 
Einschränkungen gibt es dagegen 
unter CP/M-Plus. 

Für VDOS-Anwender ist dagegen 
Para 3.0 ein Volltreffer. Es unterstützt 
nicht nur die Vortex-Hardware (VDOS- 
Controller und Vortex-Laufwerk), son- 
dern sie sind Voraussetzung für die 
Anwendung von Para 3.0. Trotz des 
höheren Preises ist Para 30 ein 
umfangreiches Dienstprogramm, das 
vor allem dem fortgeschrittenen 
Anwender den Daten-Austausch mit 
fast beliebigen anderen Computersy- 
stemen erleichtert, sowie eine genaue 
und automatische Analyse unbekann- 
ter Formate bietet. 

(Helmut Jungkunzi/kl) 


Die wichtigsten Eigenschaften auf einen Blick 


Programmname: 
Para 30 


Diskpara 
Hersteller: 
Vortex GmbH Frank Strauß Elektronik ” ) 


- erlaubt eigene Formatbibliotheken 

- BIOS-Manipulationen 

= komfortable Analyse 

- residente Einbindung logischer Laufwerke 

- eingebautes Kopier-Programm 

- einzelnes Format ohne RAMBIOS- 
‚Aufruf nicht einstellbar 

- Kopierschutz sieht zwei 
Sicherheitskopien vor (Auto-Backup) 


Lieferumfang: 

Handbuch, Handbuch 
5%-Zoll-Diskette 5"/4- oder 3-Zoll-Diskette 

Hardware: 
alle CPC-Modelle CPC 464 mit CPIM 2.2 oder CPC cine, 
mindestens ein Vortex-Laufwerk mit CP/M (auch Plus) 
(auch X-Laufwerke) ein Zweitlaufwerk (80-Spur) 

Preis: 
149 Mark 79 Mark 

‚Zusätze; # 
Copy-Dos (zus. 198 Mark) MS-Copy (zus. 99 Mark), 
(MS-DOS-Dateitransfer) (MS-DOS-Dateitransfer) 

Vorteile: 


- 120 CP/M-Formate einstellbar 

- CP/M 2.2 mit kleiner TPA genügt 

- voll kompatibel 

- CPIM Plus-kompatibel 

- dk’tronics Silicon-Disc nutzbar 

- gute, eindeutige Menüführung 

- sehr rasch einzelnes Format einstellbar 
= gutes Preis-Leistungs-Verhältnis 


Nachteile: 
- bei RAM-BIOS-Aufruf 
ist:TPA 10 KByte kleiner. 


nicht einstellbar 


Reduktion der TPA 2 
= relativ hoher Preis 3 


- nicht kompatibel zum Standard-CP/M 2.2| - Manipulationen der TPA (Vortex- 
- einzelnes Format ohne RAM-BIOS-Aufruf| RAM-Disk) und großes CP/M bisher 


= kein CPIM-Neustart mit X-Modulohne 


— Kopierschutz erfordert stets de 
‚Original-Diskette bei Kaltstart 


nicht unterstützt (folgt später) 


Sprachen auf einen Blick 


Wer sich mit sprachlichen Alter- 
nativen zum eingebauten Loco- 
motive Basic seines CPC aus- 
einandersetzen will, sieht sich 
einem schier unüberschauba- 
ren Angebot gegenüber. Mit 
unserer großen Marktübersicht 
wollen wir helfen, Licht ins Dun- 


mmer wieder hört man als Compu- 
| Ben was die Program- 

miersprache X für wunderbare 
Leistungen verspricht, welche Ge- 
schwindigkeitsvorteile der Dialekt Y 
bietet oder daß gar der Compiler Z die 
Sprache der Zukunft sei. Wer kann sie 
nicht nachfühlen, diese Unsicherheit, 
welche Sprache nun für den heimi- 
schen Computer erhältlich ist, welche 


Interpreter es bereits gibt und nicht 
zuletzt, wo sie zu bekommen sind. 
Gerade für die CPC-Serie ist die Viel- 
falt der Produkte am Markt für den ein- 
zelnen nicht zu überblicken. Hier fin- 
den Sie nun eine Übersicht der wich- 
tigsten Programmiersprachen und 
erfahren, wo Sie nähere Informatio- 
nen darüber erhalten. Damit steht auf- 
regenden neuen Perspektiven nichts 


kel zu bringen. konkreten Compiler beziehungsweise mehr im Weg. (Kl/ja) 
R: | it 2 
bin P ; | 
| Programmname s|3 8 ! 38 5 i F ! Preis |Anbiet. [Besonderheiten 
Basic 
Basic-Compller x = x x | x DE 4 |4995 RU auf Diskette 69,76 Mark 
CBasic Eraksrie FREE: x a |174,- |MmmsD [bedient @sx 
Laser Basic. zes x| x x die |e886 |DS/RU jauf Diskette 79,95 Mark 
MS Basic BEIESBENEIE: x x | x fra |ise- |mT _ |mitMakroassembler u. Linker 
Nevada Basic. x |] 12 = elereleelere x je jee- Ire Mairizenverarbeitung; 
Fullscreen-Editor 
XBG-Basıe BEzEZBe =|x x a |s9- |B@ [mit Fiießkomma-Arithmetik; 
Grafik- u. Soundunterstützung 
: lieferbar ab August 1887 
Turbo Basic, Tee xx x © 7985 |DS jaufDiskette 10985 Mark 
Assembler 
Assembler/Disassember | x | x | x | = ae x [a fzs= SR, auf Diskette 145, Mark 
Assembler-Kurs ze ees x a |z- ev kompletter Assembler einge: 
baut 
GPO-Macro 2 Selseriseis: x| x d |e8- [Ho  jauf Diskette 189,- Mark; 
‚Treiber für GPIM-Anpassung 
Deep Thought eBeErzRe x e |s3- |Dc [To Pass Assembler 
Bildschirmeditor 
Dev Pac x = x © |es= Ds [Assembler/Disassembier‘ 
@MoN13 xalx Free x | x 59- |GO jaufDiskette 89,- Mark 
Maschinensprache-Monitor 
mit Assembler, Disassembler; 
Unterstützt In d. Disketten- 
version Bankumschaltung; 
neben Amsdos-Version wird 
eine OPIM-Version mitgel, 
Kassemble 12. Kal Irene x x d |es- Da |Linkfunkyon; Gompllieren von 
Diskette aus mehreren 
Sourcecode-Datelon bis zu 12 
KByte Objektcode; sehr 
schnell (150 KByte ca, 3 min) 
Laser Genlus »|x|Ix| - Ei ET | de 16985 |DS lauf Diskette 79,85 Mark; 
Makrosprache Phoenix; 
Analyzer; Debugger 
Maxam xaloz are” - xIx|« © |e985 |DS jaut Diskette 89,90 Mark; auf 
ROM 128,85 Mark; Assembler, 
Disassembler 
Maxam II KOlERG ABER x x © |2r8- |DS ]Makroassembler mit Linker 
Philosoft Assembler Kalnazlerza ar x x d PH |Wordstar-kompatibler Editor 
Profimat OPG Kalnzaleralk x 4 |e9- DB |Assembler m. Monitor; Einzel: 
schrittmedus; Vorkettan von 
"langen Quelltexten möglich 
Pyradev Assembler x Ix Ix 1 = x © |s9- RU |Toonkit 
Star-Mon xelxr]lox]o > x | x a |sego sr auf Diskette 78,90 Mark; 
!äuft auch unter OP/M; mit 
Eaitor, Monitor, Diskmonitor; 
Trace-Funktion 
Super Pac.80 Fern nE x| x 4 |ca1a0,- |PS |komplettes Z80-Entwicklungs- 
system; Singlestep; auf Disk, 
ca. 140,- Mark 
Z-80AssemblerPakt | x | x | x| - |x|x|x| x a |80- |Mk |Publie Domain; Linker, 
intelligenter Disassembler, 
Monitor 


8A ww. HOMECOMPUTER 


ne 


diverse Sprachen 


Arnor-C x x x [64 KByte‘ x x = 
dk’tronies N 
‚Aztec-C x | x | x [6aKBylel x | x x x Version mit Sourcecode der 
‚C-Library kostet 1122,- Mark 
BCPL x x x = x x Lieferung mit ROM; läuf 


‚auch unter GP/M und Ams- 
dos; Texteditor und Spii 
‚Sourcecode, 


c.80 

C++ 

G-Package Kalaanl za x i& 
Com: DENEREE 

CPO-Forth KOSRSRREET FE ERER 


‚konfigurierbar mit vielen 
Assemblern 


‚läuft nicht mit Vortex- 
‚Speichererweiterung; 
erweitertes GSX 


DS 'Fließkomma-Arithmetik; 16- 
und 82-Bit-Arithmetik 


‚auf Diskette 139,- Mark; FIG- 
Standard, Screeneditor, 


Diglial Research REES UER 
Pascal MT+ 


UNDO-Funktion, RAM-Disk 


Fig Forth alzzele 

Forh-83 KlRlR auf Diskette 178,- Mark; mit 
(Trace-Funktion 

Forth-83 xIx|% Publio Domal 


identisch mit 
Bildschirmeditor, Inline- 
assembler, Decompiler 


Hisoft C-Compiler 


Hisoft Pascal 


läuft auch unter Amsdos 


‚auf Diskette 215,- Mark 


JAT-Pascal 


Künstliche Intelligenz 


Public Domain; Editor, Linker 
und 8080-Assembler 


‚Public Domain; XLISP- und 
E-PROLOG-Interpreter 


Lisp/eo an Interlisp angelehnt 

Logo, E 

NIS Laufzeitüberwachung; Inline- 

Fan 

Morrison Pascal Mischung aus Turbo-Pascal 

r und Basic; Standalone- 

h Programme sehr kurz 

Be Cobol RENREIR* = RESET = 

Nevada Fortran, DEBSBRRzZEEHEIEEE = 

Nevada Pascal BENEIEZUNENEHENE: BCD-Arithmeiik 

Nevada Pilot ABSCERESRIERE % 5 

Oxford Pascal 2 x x RU ]- 

Pascal 80 s|x|x I = IR 1x x 17885 |DS |iäuftnicht mit Vortex- 
Speichererweiterung; 
erweitertos GSX 

Sm; x | x 1 x jeans x | x x x ®, MT mit Small-Mac-Assembl 

ü ‚Smail-Tolls In C-Sourcı 

Smalko 167 x jsarsyel x | x | x | x x 3%0-  |MK  |Publie Domain; es ist nicht 
identisch mit Small-O von MT; 
[Fließkomma-Arithmetik, 
Inlineassembler 

Toolworks C-80 x x j6aKByıe| x x 180- |BS |Erweiterungsmadul für 
Fileßkomma-Arlhmetik: 

104 Mark 

Turbo Pascal 80 EEK BE Eu x 225,72 \BRIMT |- 

30 DAIHS 

Turbo Pascal 80 Kalrz lass Reseller x 285- |Hsımm |- 

mit Grafik-Toolbox Ds | 


Weitere Informationen erhalten Sie bei: 
AR: Arnor Deutschland, H.-H.-Jahn-Weg 21, 2000 Hamburg 78 
BG: BBG-Software, Belmoorweg 2-4, 2070 Ahrensburg 

BS: BSP Thomas Krug, Weißenburgstr. 49, 8400 Regensburg 
(CO: Comalvertrieb D, Beiz, 2270 Utersum 

DA: data berger, Im Lichtenfelde 78, 4760 Paderborn 

DB: Data Becker, Merowingerstr. 30, 4000 Düsseldorf 1 

DC: Deltacom, Postfach 52019, 4800 Dortmund 50 


DS: Denisoft, Postfach 106421, 2800 Bremen 

FS: Forthsysteme A. Flesch, Postfach 1103, 7814 Breisach 
GO: U. Goedan, K-Furterstr. 46, 7408 Kusterdinger 

|HO: Holtkötter, Hallerplatz 15, 2000 Hamburg 13 

HR: Herbert Rose EDV, Bogenstr. 32, 4390 Gladbeck 
HS: Heimsoeth, Fraunhoferstr. 13, 8000 München 5 

MK: Martin Kotulla, Grabbestr. 9, 8500 Nürnberg 90 

MT: Markt&Technik, Hans-Pinsel-Str. 2, 8013 Haar 


PH: Philosoft, Pariser Platz , 8000 München 80 

PS: Profisoft, Sutthauser Str. 50/52, 4500 Osnabrück 

RU: Rustware, An der Gümpgesbrücke 24, 4044 Kaarst 2 
SD: Schneider Data, Rindermarkt 8, 8050 Freising 

SR: Schneider Rundfunkwerke, Postfach 120, 8999 Türkheim 
ST. Ster Division, Zum Elfenbruch 1, 2120 Lünburg, 

SY: Sybex-Verlag, Vogelsanger Weg 111, 4000 Düsseldorf 30. 
TC: Tesco, Postfach 10, 8714 Wiesenheid 
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Noch mehr Eingabekomfort 


Hier wieder der Checksummer für den Schneider 
CPC! »Explora 2.0« macht die Eingabe von Pro- 
grammen ganz einfach. 


wissen, was »Explora« ist: Wenn Sie dieses Pro- 
gramm gestartet und wieder gelöscht haben, über- 
prüft der Computer automatisch Ihre Eingaben auf Richtig- 
keit. Sobald Sie die Eingabe einer Programmzeile 
abschließen, erscheint eine vierstellige Hexadezimalzahl 
in eckigen Klammern auf dem Bildschirm. Das im Heft 
abgedruckte Listing enthält ebenfalls solche Zahlen. Stim- 
men die Prüfsummen auf dem Bildschirm und im Heft über- 
ein, haben Sie die Zeile korrekt abgetippt. Gibt es Unter- 
schiede zwischen den Werten, sollten Sie auf Fehlersuche 
gehen und die Zeile korrigieren. Das alles konnte »Explora 
1.0« auch schon. Der Vorteil der neuen Version besteht 
darin, daß Sie jetzt größere Freiheit beider Eingabe der Zei- 
len haben. So akzeptiert unser Prüfsummenprogramm die 
Basic-Schlüsselworte in Klein-oder Großbuchstaben (auch 
gemischt). »PRINT« läßt sich mit dem Fragezeichen abkür- 
zen. »Explora 2.0« läßt zum Beispiel für die Zeile »100 
PRINT« folgende Eingaben zu: 
100 PRINT 
100 print 
100 ? 
100 PrInT 

Die Zeilen müssen also nicht mehr schon beim Eintippen 
so aussehen wie im Heft, sondern erst beim Auflisten. 
Außerdem werden Prüfsummen nur noch für Programm- 
zeilen ausgegeben, nicht mehr - wie früher - auch bei 
Direktbefehlen. Vor der Zeilennummer stehende Leerzei- 
chen, Line-Feeds und Tabulatorzeichen überliest Explora 
jetzt selbsttätig. Leerzeichen innerhalb der Zeile wertet es 
aber weiterhin. Sie verändern also die Prüfsumme. Explora 
erlaubt auch die Verwendung des EDIT-Befehls. AUTO ist 
jetzt ohne Einschränkungen zu benutzen - allerdings nur 
beim CPC 664 und CPC 6128. Explora 1.0 liegt im Speicher 
fest zwischen den Adressen A000 und A086 hex. Die neue 
Version verschiebt der Basic-Lader automatisch im Spei- 
cher direkt unter HIMEM. So ist SYMBOL AFTER einwand- 
frei funktionsfähig. Eine kleine Einschränkung gibt es aber 
doch: Löschen Sie keinesfalls Zeilen durch Eingabe der 
Zeilennummer und anschließendes Drücken der ENTER- 
Taste! Die Zeile wird nämlich gar nicht wirklich gelöscht, 
sondern erscheint als Duplikat der folgenden Zeile. Ver- 
wenden Sie statt dessen DELETE. Statt »20«schreiben Sie 
»DELETE 20«. Das Wichtigste nicht zu vergessen: Explora 
2.0 ist aufwärtskompatibel zur Version 1.0. Das heißt, daß 
Sie sowohl mit Explora 2.0 frühere Listings abtippen kön- 
nen, als auch mit Explora 1.0 alle zukünftigen. Die Prüfsum- 
men sind identisch. 

‚Aber bei den gedruckten Listings hat sich einiges geän- 
dert. Die Neuerungen betreffen die Darstellung von Leer- 
und Sonderzeichen. Statt "(5 SPACE]” steht jetzt im 
Listing ”<5> für fünf Leerzeichen. Um dies eindeutig 
vom tatsächlichen Programmcode zu unterscheiden, 
erscheint der Text unterstrichen. Die Steuerzeichen hießen 
bisher beispielsweise »(CTRL A]«. Jetzt steht hier die über- 


zZ: einmal Informationen für alle, die noch nicht 


sichtlichere Form A. Finden Sie im Listing also einen unter- 
strichenen Buchstaben ohne Klammern, müssen Sie 
gleichzeitig die CTRL-Taste drücken. Grafikzeichen stehen 
zukünftig in Klammern und sind als ASCII-Wert mit voran- 
gehendem »G« für »Grafikzeichen« dargestellt. Das Zei- 


chen 223 hat dann im Listing die Form <G223>. Die Zei- 
chen können nicht von der Tastatur aus direkt eingegeben 
werden. Simpler Trick: Ausgabe des Zeichens mit »PRINT 
CHR$(223)« und Übernahme mit dem Copy-Cursor. 
Sämtliche Listings sind im ASCII-Zeichensatz gedruckt. 
Deutsche Sonderzeichen erscheinen daher im Druck als 
Klammern und andere amerikanische Zeichen. Verwenden 
Sie ruhig anstelle dieser Zeichen die entsprechenden deut- 


schen. (Martin Kotulla/ja) 
100.7. HH eDFCCI 
18: * LFADAI 
IE EXPLORA V2.0 * L[761E] 
130 ' * * CDCDE] 
140 "anna ana £C3D4]J 


150 ' LE1BAI 


160 DEF FNisb(x)=255 AND UNT (x) L39E01 
170 DEF FNmsb (x)=255 AND INT (x/256) 188641 
180 SYMBOL AFTER 256: MEMORY HIMEM-161 E948C1 
190 start=HIMEM+1: SYMBOL AFTER 240 120921 

200 FOR i=&A000 TO &AOFD:READ as: sum=sum 
+VAL("&"+as) NEXT i CB2C81 

210 IF sum<>19814 THEN PRINT "DATA-Fehle 
ri"zEND EFCCEI 

220 Kanes FOR i=start TOD start+&9D:REA 
L60BEI 
230 Poke i,VAL("&"+a$) NEXT i [24021 
240 FOR i=1_TO S:READ =atstar LAC2AI 

250 wert=PEEK (a) +PEEK (a+1) #256-. nö9s0rsta 
rt 12776] 

260 POKE a,FNlsb (wert) ıPOKE a+1,FNmsb (we 
Ft) NEXT i C01B29 

270 IF PEEK(6)=&80 THEN ed=&BD3A:POKE &B 
F20 ,&A4 LS56ABI 

280 IF PEEK(6)=&7B THEN ed=&EDSB:POKE &B 
F20 ,%8A: RESTORE 470 L760C1 

290 IF PEEK(6)=491 THEN ed=&EDSE:POKE &B 
F20,&8A:RESTORE 490 E16FA1 
300 POKE &BE21,&ACHPOKE &BF22,PEEK(ed)  [71DEI 

310 POKE &BF23,PEEK(ed+1)POKE &BF24,PEE 
Kied+2) 199849 

320 POKE ed,&CS:POKE ed+1,FNlsb (start): 
OKE ed+2,FNmsb (start) LIAE6I 
330 IF PEEK(&)=&80 THEN END L60441 

340 FOR i=1 TO 7:READ a$,bs:a=VAL("&"+as 
)+startib=VAL("&"+b$) 133063 

350 FOKE a,FNisb(b):POKE a+1,FNmsb (b) :NE 
RT 10332] 

360 DATA CD,22,BF, = „C5,D5,E5,2A,20,BF,C 
D,61,DD,57,28,6) ESBFCI 

370 DATA E5,2A,20,BF ,CD,88,A0,E1,30,58,C 
D,04,EE,CD,AS,E7 [SEFZI 

380 DATA’CD,63,E1,ED,4B,20,BF,21,00,00,0 
A,5F,16,00,19,03 EDBF&] 

390 DATA ’FE.00,20,F6,DD,24,20,BF,01,00,0 
0,DD,7E,00,5F,16 LADSEI 

400 DÄTA’00,19,04,F5,AB,47,F1,09,DDy23,F 
E,00,20,ED}3E,0D" LESSCI 

410 DATA 'CD,SA, Ba, OA,CD,5A,BB,SE,SB,C 
D,SA,BB,7C,CD,77 125941 

420 DATA ’AO,7C,CD,7B,A0,7D,CD,77,A0,7D,C 
D,7B,AO,SE,SD,CD" L014A] 

430 DATA SA,BB,E1,D1,C1,F1,C9,1F,1FsiF,1 
E6,0F,C6, 30, FE tA1OAI 

aa0 DATa” 3A,38,02,06,07,C3,5A,BB,CD,61,D 
D,87,37,C84CD,04" L6AACI 

450 DATe EE, Do 7E,FE,20,20,01,23,CD,D2,E 
37,9F LOC36] 
a60 DATA” MER dse, %&63 ,%67 ,6B [34221 
470 DATA OB,DES2,1B,EED4, 1E,EB& [7814] 

480 DATA 21,E259,89,)DES2,BF, EEDA, 99 ,ETAA 
105861 
490 DATA OB,DE4D,1B,EECF,1E,E864 LırS2] 

500 DATA 21,E254,89,DE4D,8F ,EECF ‚99,E7AS 
12494] 
S10 END EAALAI 


Listing. »Explora« macht Eingabefehler fast unmöglich 


Steckbrief 
Programm: Explora 2.0 
Computer: CPC 464/664/6128 
Checksummer:| Explora 1.0 
Datenträger: Kassette, Diskette 


Nie mehr DATAs mit »CPC« 


Oft bestehen leistungsfähige Programme zum 
Teil aus Maschinencode. Leider bedingte dieser 
Umstand bisher, daß Sie ellenlange »Data- 
Wüsten« als Listing eingeben mußten. »CPC« 
macht damit nun ein für allemal Schluß. 


ur Eingabe langer Maschinencode-Programme ist 
nichts empfehlenswerter als das Programm »CPC«. 
Der Name kommt nicht von ungefähr - er steht für 
»Comfortable Program for Codeinput«. Diesen Komfort 
gewährleisten die vielfältigen Fähigkeiten des CPC. Er ist 
praktisch an beliebige Maschinencode-Listings anzupas- 
sen: Weder vor DATA-Ladern noch vor Hexdumps streckt 
»CPC« seine Waffen. Einzige Bedingung für Basic-Lader 
mit Prüfsummen ist, daß die Zahl der Byte pro Zeile kon- 
stant bleibt. Für viele Leser brauchen wir die Details sicher 
nicht zu wiederholen, da sie bereits aus einem der letzten 
Schneider-Sonderhefte bekannt sind. Für neu hinzuge- 
kommene Leser führen wir sie hier dennoch auf. Die Vor- 
züge der neuesten Version (identisch mit der aus Sonder- 
ausgabe 13): 
- Dateinamen darf man jetzt in beliebigem Format ein- 
geben. Wer mit Kassetten arbeitet, darf also Namen mit 
einer Länge von bis zu 16 Zeichen verwenden, wer Disket- 
ten bevorzugt, setzt wahlweise die Laufwerksnummer oder 
den User-Bereich voran. 
- »CPC« setzt HIMEM automatisch auf Adresse 20000. 
- Der Aufruf der Routine »Parameter einstellen« erfolgt 
automatisch bei der Code-Eingabe oder DATA-Erzeugung. 
- Das Unterprogramm »Parametereingabe« arbeitet kom- 
fortabler und ist dadurch einfacher einzustellen. Die einzel- 
nen Punkte sind numeriert. Ein Druck der jeweiligen Zif- 
ferntaste wechselt die Einstellungen (zum Beispiel von 
»hex« auf »dez«), wie Sie im Bild sehen können. 
- Die Routine »Erzeuge DATAs« verarbeitet jetzt auch die 
Startadresse 8000 hex korrekt und die Vorgabe eines Offset 
ist berichtigt. 
- Der erzeugte Basic-Lader ist kürzer und schneller und 
erhält automatisch den SAVE-Befehl zur Speicherung des 
erzeugten Maschinencodes. 
- Jetzt sind auch DATA-Lader ohne Prüfsumme oder mit 
‚Add- statt mit Hash-Prüfsumme zu erzeugen. 
- Durch diverse Einsparungen hat »CPC« nur noch eine 


- Zwei Hilfsprogramme unterstützen das Hauptprogramm 
»CPC.BAS« (Listing 1). Für noch komfortablere Bedienung 
belegt »CPC.HLP« (Listing 2) die Funktionstasten mit allen 
Hex-Ziffern und setzt die Farben aufeine augenfreundliche 
Kombination. »CPC.INF« finden Sie nur auf der 
Leserservice-Diskette, denn es enthält eine Kurzanleitung 
für »CPC«. 

- Die Routine »Code eingeben« verarbeitet jetzt bis zu 
128 Byte formatierter Eingabe. So sind nun auch DATA- 
Lader mit sehr langen Zeilen abzutippen. 

-Die Eingabe von Dezimalzahlen war bisher etwas kompli- 
ziert. Um das nötige dreistellige Format einzuhalten, waren 
bei ein- oder zweistelligen Zahlen entweder führende Nul- 
len voranzuschicken oder stets die Leertaste (oder 
<ENTER>) zu drücken. Nun ist, wenn Sie im Parameter- 
Menü »Ende annehmen« auf »Nein« einstellen, jedes Byte 
mit der Leertaste oder <ENTER>, beziehungsweise dem 
Dezimalpunkt zu bestätigen. 

Das Programm »CPC« verhilft in komfortabler Weise zu 
einer einfachen, schnellen und sicheren Eingabe von 
Maschinencode-Programmen. »CPC«-Benutzer geben nur 
zirka 60 Prozent desListingumfangs von Basic-Ladern ein. 

Nach dem Start erscheint das Hauptmenü mit fünf Punk- 
ten. Die Eingabe der Anfangsbuchstaben ruft das jeweilige 
Unterprogramm auf. 


Lade Code 

lädt eine Binärdatei von Kassette oder Diskette. Die 
Ladeadresse des Programms müssen Sie eingeben; sie 
darf jedoch nicht unter 20000 liegen. Andernfalls laden Sie 
es an eine höhere Adresse. Drücken Sie bei der Auf- 
forderung, den Datenträger bereitzumachen, <ESC> 
oder <CTRL+C>, bricht die Routine ab. 
Schreibe Code 

sichert den Inhalt eines Speicherbereichs auf Diskette 
oder Kassette. Sie müssen die Anfangs- und die End- 
adresse angeben. Beide Werte lassen sich an den Zeilen- 
adressen der DATA-Listings ablesen. Haben Sie den Code 
in einen anderen Bereich geladen oder eingegeben, weil 
es sonst unterhalb der Adresse 20000 stünde, berücksich- 
tigt CPC das hier nicht. Sie müssen später den Code an die 
richtige Adresse laden (zum Beispiel: »LOAD 
” CODE” ‚3000«). Auch diese Routine ist mit <ESC> oder 
<CTRL+C> abzubrechen. 


Länge von 10 KByte. Code eingeben 
epc 1808 '--> CPC.HLP -- Voreinstellungen TASECI 
Comfortable Program for Codeinput ıaı1@ [92121 
1828 '——> Farben CEC201 
1830 ° [9816] 
184@ BORDER 4: INK B,4:INK 1,26: INK 3,18 [9A] 
Te Be [B61A1 
m s 1868 ‘—-> Tastatur - Zehnerblock CB@41 
Parameter bestimmen: RE Be 
$23 -? hex 1@8@ KEY DEF 15,1,48,127,128 [A192] 
<23 % hex 1@7@ KEY DEF 13,1,49,47,129 [B936] 
233 a 11@2 KEY DEF 14,1,50,47,130 [74081 
83 << 111@ KEY DEF 5,1,51,47,131 C2EAEI 
282 ? Hex 1128 kev ner 28,1,52,68,132 C1SBEJ 
1138 KEY DEF 12,1,53,66,1353 cc7181 
<C>odel (8) > hash 1148 KEY DEF 4,1,54,67,134 L7CC21 
R 5 3 1158 KEY DEF 18,1,55,68,135 CCD241 
T——]| nit <ENTER> seht’s weiter 118 KEY DER IirılSercorise ren 
ı1 DEF 3,1,57,78,137 [8106] 
<1-8> oder ENTER: M 118@ KEY DEF 7,1,46,38,158 C6DD6] 
1198 KEY DEF 6,0,15,139, 198 [D@1EI 
Das Untermenü »Parameter bestimmen« zeigt die 1 2 : 195141 
h z & 2 1218 "ve 22.18.86 [BA241 
Standard-Einstellungen für Basic-Lader in Happy- en ee 
Computer 


87. 
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ist die wichtigste Routine des »CPC«. Zunächst geben 
Sie im automatisch erscheinenden Unter-Menü »Para- 
meter einstellen« die für das Listing erforderlichen Stan- 
dards ein. Darauf folgt die Vorgabe der ersten Zeilennum- 


mer und der Schrittweite. 


»zwei Ziffern« bei hexadezimaler oder »drei Ziffern« bei 
dezimaler Eingabe gewählt, geht »CPC« automatisch zum 
nächsten Byte über. Ist dieser Punkt »Nein«, beenden Sie 
jedes Byte mit der Leertaste, <ENTER> oder dem Punkt. 


Drücken Sie hier einfach 
<ENTER>, bleibt der Zei- | 198 "rss L51DA4I 
lenzähler auf Null. Nun |1@1 "*BEISPIEL.DAT - DATA-Lader von 'CPC‘’* L1BAB1 
geben Sie noch die Start- |1@2 "333633  LASDBI 
adresse vor. BeiderEingabe |1@3 ° CDEB&6] 
der Byte-Werte ist dieGefahr |1@4 DATA 7C48,81,0A,AB,21,QE,AB,CD,Di1,17AB| [489C] 
von Fehleingaben sehr |1@95 DATA 9C48,BC,C9,12,AQ,18,0A,20,0@,64E8| L[3F74] 
gering, da nur die Ziffern 0 |186 DATA 9C50,80,00,53,43,41,4C,C5,2@,@CE2| [9616] 
bis 9, beziehungsweise de |ı@7 ” CDEBE] 
Buchstaben A bis Fzugelas- |ı@8 ° LFECO]I 
sensind.EinDruckderLeer-- |199 CFEC2T 
taste, <ENTER> oder des |11@ ’ CDDB2] 
Punktes formatiert alle füh- |126 DATA ?CF@,19,22,A8,AC,22,2C,B3,2A,1B2C| [CBCA] 
renden Nullen automatisch |127 DATA 9CF8,AA,AC,22,2E,B3,E1,23,C1,7ESB| [3820] 
und schließt die Eingabe |128 DATA 7D99,1@,93,FB,C9,28,20,08,20,3F3@l [A316] 
eines Byte ab. Die Tastenmit |129 DATA *ENDE* C83CC]I 
Schrägstrichen (</> und |13@ adr=%9C4@:zeile=1@4:MEMORY adr-i LEA36]1 
<\>) wiederholen das zu- |131 READ d$:IF d$="*ENDE*"THEN 142 [2182] 
letzt eingegebene Byte. Da- |132 ' EDFBA] 
durch ist gewährleistet, dad |133 ” CDFBC]I 
Sie nur ein Minimum einzu- |134 * LFFBE] 
geben haben. VerzichtenSie |135 ” [FFCB] 
auf Prüfsummen (wovon wir |14@ IF pr<>pr2 THEN PRINT"Pruefsummenfehler 
aber eindringlich abraten, in Zeile";zeile:STOP L3EBAI 
denn etwaige Eingabefehler |141 zeile=zeile+1:G0T0 131 [BOS21 
sind so kaum zu finden), ist |142 SAVE"BEISPIEL.BIN" ‚B,%&7C48,&C7: END [BAF6I 
damit die Eingabe beendet. 
an onsten geben! Sio’zun Ein beispielhafter Ausschnitt eines typischen DATA-Ladı Die Ziffern im hell 

i ü i i in en -Laders. 
a unmen ein E Sn Eleriscten Bereich sind in jedem Fall einzugeben, während Sie auf die Eingabe 
ein Signalton und Sie ‚ehen der Prüfsummen (dunkel unterlegt) verzichten können. Dazu kommen noch die 
g s Ei Startadresse (in diesem Fall 9C40 hex) und zum Speichern die Endadresse (hier 

zur nächsten Zeile. % Sr 9D03 hex). Den Rest des Basic-Laders ersparen Sie sich mit »CPC«. 
korrigieren Sie mit Hilfe der 
DEL-Taste. 


Erzeuge DATAs 

erzeugt aus Maschinencode im Arbeitsspeicher einen 
lauffähigen Basic-Lader auf Diskette. Gehen Sie bitte wie 
folgt vor: Stellen Sie zuerst die korrekten Parameter ein. 
Wählen Sie dann die Namen für den DATA-Lader und die 
später vom Lader zu erzeugende Binär-Datei. Nun erwartet 
»CPC« die Anfangs- und die Endadresse des Maschinen- 
codes. Da dieser nicht unter 20000 beginnen darf, manche 
Programme aber nur auf niedrigeren Adressen arbeiten, 
können Sie hier einen Offset von der Ladeadresse zur 
tatsächlichen Startadresse eingeben. 

Beispielsweise steht ein Programm im Speicher ab 
Adresse 6000 hex, soll aber so gespeichert werden, daß 
der Basic-Lader es auf 4000 hex erzeugt. Die Eingaben 
sind für diesen Fall: 

Startadresse=&4000, Offset=&2000. 

Wenn Sie kein Offset benötigen, drücken Sie einfach 
<ENTER>. Jetzt fehlt nur noch die Nummer der ersten 
Zeile und die Schrittweite der Numerierung, bevor »CPC« 
mit der Erzeugung des Laders beginnt und ihn als ASCIl- 
Datei auf Kassette oder Diskette speichert. 

Das Menü »Parameter bestimmen« bricht man mit 
<ESC> oder <CTRL+C> ab und beendet es mit 
<ENTER>.Die Tasten 1 bis8 ändern einzelne Parameter: 
<1> Zeilenadresse dezimal oder hexadezimal anzeigen. 
<2> Byte dezimal oder hexadezimal erwarten und anzei- 


gen. 
<3> Anzahl der Byte pro Zeile. Eingabe in Form einer Zahl 


kleiner oder gleich 128. 
<4> Ende annehmen ist normalerweise »Ja«. Haben Sie 
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<5> Prüfsumme abfragen. »Nein« ist nur bei Basic- 
Ladern ohne Prüfsumme zu empfehlen. 
<6> Prüfsumme dezimal oder hexadezimal erwarten und 
anzeigen. 
<7> Länge der Prüfsumme. Minimal 4 bei hexadezimaler 
und 5 bei dezimaler Ausgabe (Voreinstellung). »CPC« be- 
nötigt diese Angabe für das Erzeugen der Basic-Lader. 
<8> Prüfsummentyp. Viele Basic-Lader verwenden Prüf- 
summen des Typs »Add«, also eine einfache Addition aller 
Byte einer Zeile. Die »CPC«-Lader verfügen jedoch über 
eine Hash-Prüfsumme, die Fehler und Vertauschungen 
erkennt. Falscheingaben sind hier fast unmöglich. 
Während der Arbeit mit »CPC« beenden Sie jede Ein- 
gabe mit <ENTER> und korrigieren mit <DEL>. Für 
Dateinamen müssen Diskettenbenutzer ein gültiges For- 
mat wählen. Bei allen Zahleneingaben ist eine dezimale 
oder hexadezimale Eingabe mit vorangestelltem »$«, » #« 
oder »&« wählbar. An jeder Stelle, an der eine Taste zur 
Bestätigung zu drücken ist, läßt sich die Funktion durch 
<ESC> oder <CTRL+C> abbrechen. (Stefan Aust/ja) 


Steckbrief 
Programm: CPC 
Computer: CPC 464/664/6128 
Checksummer:| Explora 
Datenträger: Kassette/Diskette 


RAN) x 
EON\FUTER. 


-> "EPC = Comfortable Program for 
Codeinput" by St. M. Aust 


> Initialisierung 


CLOSEIN: MEMORY 19997 

127@ KEY DEF 66,@,3:CALL &BB48 
brrk$=CHR$ (3) :bel1$=CHR$ (7) :back$=CH 
R$(8) :cr$=CHR$ (13) 1 C1r$=CHR$ (16) 
del $=back$+c1r$:cur 1$=CHR$ (143) +bac 
k$: cur2$=CHR$ (211) +back$ 
dz$="9123456789" :hx$="9123456789ABC 
DEF" 

DIM b$(128) „18 :f1(1)=1:f1(2)=1:f 
1(3)=8: f1(5)=1:f1(6)=1:f117)=4:f1 18 
)=1 


1128 ENV 1,15,-1,2@:ENV 2,15,-1,4 


--> Menue 


116@ MODE 1:PAPER @:PEN 1:PAPER#1,B:PEN# 
1,1:PAFER#2,8: PEN#2,3 


m for Codeinput 
LOCATE 6,7:PEN 
von Stefan M.Aus: 
LOCATE 8,8:PRINT"Version II - Oktab 
er 1986" 
SOUND 1,49@,8,15,1:S0UND 2,458,2,15 
„1:SOUND 4,308,8,@,1 
WHILE SQ@t1)<>4:WEND 
123@ x=6: y=&:x1=29:yl=15:G0SUB SS1@:WIND 
OW SWAP 1 
124@ LOCATE 9,3: PRINT" (L)ade Code" 
LOCATE 7,5: PRINT" (S)chreibe Code" 
126@ LOCATE 7,7:PRINT"(C)ode eingeben" 
LOCATE 7,9:PRINT" (Eirzeuge DATAs" 
LOCATE 9,11:PRINT" (B)eende CPC" 
WINDOWR2, 1,40, 23,23: PRINT#2,TAB(12) 
"Bitte waehlen: "scuri$; 
GOSUB 341Q:p=INSTR("LSCEB"+brks,a$) 
:IF p=@ THEN PRINT bell$;:G0TD 1388 


x=3:y=17:x1=18:yl=3:G0SUB 3318 
1320 PRINT#2,a$:0N p G0T0 1332,1420,152@ 
‚1888,2870,267@ 


> Lade Code 


RINT"Geschrieben 


1350 ' 

PRINT#L," (L)ade Code" 

137@ WINDOW SWAP 2:PRINT TAB(1B) "Name: " 
3:G0SUB 2860:1n$=b$ 

138@ PRINT TAB(11)"Startadresse: "5:60SU 
B_ 2758: start=b 

1398 PRINT"Disk/Kassette einlegen & Tast 
e druecken" 


1408 GOSUB 3410: IF brk THEN 1138 
1419 LOAD" !"+n$,start:G0T0 1158 
1420 

1430 °--> Schreibe Code 

1440 ' 

145@ PRINT#1,"(S)chreibe Code" 


WINDOW SWAP 2:PRINT TAB(1B) "Nam 

3 :G0SUB 286Q:n$=b$ 

1478 PRINT TAB(11)"Startadresse 
B 2750: start: 

1480 PRINT TAB(12) "Endadresse: 
2758: finish=b 

1490 PRINT"Disk/Kassette einlegen & Tast 
e druecken" 

15@@ GOSUB 3418: IF brk THEN 1138 


1510 SAVE" !"+n$,b,start,finish-start:G0T 
0 1138 
1520 ' 
-> Code eingeben 
1540 ° 
155® PRINT#1,"(C)ode eingeben" 
1568 GOSUB 247: IF brk THEN 113@ ELSE WI 
NDOW SWAP 2 
1578 PRINT TAB(11)"Startnumnme: "3:60SUB 
2750:nı 
1588 PRINT TAB(19) "Schrittweiter sosu 
B_ 275: inc=! 
1598 PRINT TAB(1B) "Startadresse: sasu 


B 2758: start=b 
1600 BOSUB 3230:LOCATE#1,32,2:PRINT#1," 
C)ode eingeben" 


161@ IF_fLiZ)THEN h$="&":1=2 ELSE hs="": 
1=3 

1628 h=1+ =16:xe=xath#15 

1630 PRINT:PRINT USING" (#####) 


#L(1)THEN PRINT" "HEX$ (start,4)" 
;ELSE FRINT USING"#####: ";start 
FOR i=@ TO f1(3):b$ti)="":NEXT 
ps@:x=xa 

y=VPOS(#@):IF »<xa THEN x=xery=y-1 
ELSE IF x>xe THEN PRINT CHRS(I@)CHR 
SÜ11) zn=xasy=VPOS (#2) 


"inrzzIF 


191181 


153581 
ter141 
[98161 
LEFESI 
[B&1A] 
LAC78I 
[9026] 


[D1841 
CAS5@41 
T@BAsI1 


[52BA] 
[27723 
L9B181 
CBATEI 
L921C1 


[34641 
(74581 


[BEE] 
CB9C81 
L7ESAI 


ECSB61 
[88741 


LBEBCI 
cA7881 
LF2EB] 
LE11E1 
£267C] 
CB93E] 


CF4D21 
[566E1 
[24321 
L7CF41 
L9@ic] 
C4BB@] 
[B6281 
LEDBAI 
[SCE6I 
[8248] 
L7CF&I 
EFCS21 
T4EB4] 
[971C] 
E7FOEI 
195283 
[37981 
L13E61 
Cara@ı 
LDSFCI 


CB1F81 
IDAS41 


c2DeB3 
[BF1EI 
[CB481 
[93221 
L48CAI 
L1A461 
CBC28] 
[BIGEI 
[68441 
£D7781 
L7FIEI 
L37BA1 


1A6921 
[BAEAI 
C1A223 


EDDSEI 


1678 b$=b$(p):LOCATE x,y:PRINT b$; 
Imax=1:IF fI(Z)THEN GOSUB 2958 ELSE 
SOSUB_ 2978 

IF #1(2)=@ THEN b=VAL(h$+b$):IF b>2 
55 THEN PRINT bell#;:60T0 1488 
IF_brk THEN 1138 ELSE IF del=® THEN 


IF p>@ THEN 


PRINT bell$s; 
172@ 6010 1668 
1738 LOCATE x,y:PRINT b$;:b$(p)=b$ 
=p+1: IF p<f1(SITHEN 1668 

FOR i=ß TO f1t3)-1:POKE start+i ,VAL 
th$+b$ (1) ) zNEXT 
IF f1(5)=8 THEN 1858 
GOSUB S48@:LOCATE x,yzPRINT"= " 
x+2:b$="":1max=f1(7) 
IF f1(&)THEN GOSUR 2950 ELSE GOSUB 
2978 
IF brk THEN 1158 ELSE IF del_THEN x 
=x-2:PRINT del$;del$;:G0T0 1718 
LOCATE x,y:PRINT b$; 
IF #1(6) THEN pr2=VALt"&"+b$)ELSE pr 
2=VAL(b$) 
1828 IF pr<>pr2 THEN PRINT bells5:50T0 1 
start=start+f1(30: 
SOUND 1,480,8,15,2 
185@ G0TO 1638 
1868 b$(p)= IF p>1 THEN p=p-i:x=x-h EL 

SE _del=B:PRINT bell$; 


=x-h EL 


r=nr+ine 


1878 G0TO 1668 

1888 ° 

1898 '-—-> Erzeuge DATA’s 
1988 


1912 PRINT#1," (Eirzeuge DATAS" 
GOSUB 247@: IF brk THEN 1130 

1930 1=2:y27:x1=37: yl=9:OSUB 5318: WINDO 

1948 LOCATE 2,1:PRINT"DATA-File-Name: "5 
:B0SUB 2848: dns=b$ 

LOCATE 2,2:PRINT"Code-Fil 

:G0SUB 2868: cn$=b$ 

LOCATE 4,4: PRINT"Startadress 

OSUB 2750: start=b 

LOCATE &,5:PRINT"Endadresse 

UB 2758: finish=b 


Name: 


198@ LOCATE 19,7:PRINT"Offset: "5:G05UB 
2750: offs=b 

1998 x=2:y=17:x1=37:y1l=4:60SUB S318:WIND 
OW SWAP 1 

2008 LOCATE 4,1:PRINT"Erste Nummer: "5:6 
GSUB_ 2758: nr=b 

2@1@ LOCATE 4,2:PRINT"Schrittweite: "5:6 
OSUB_ 2758: inc=b 

2020 PRINT#2,"Disk/Kassette einlegen & T 


aste drüecken" 

SOSUB 341@:IF brk THEN 1130 

foramlı IF form THEN nns="@BRBR"ELSE 
Angaun 
st2=start:start=starttoffs: finish=f 
inish+offs:nr2=nr+4#inc 

di=6: IF fL(SITHEN di=d1+5+(f1(8)=B) 


+L(SITHEN d2=d2+5+(f1 (@)=@) 


Erzeugung beginnt... 
"+dns 
= "+dns#" 


- DATA-Lader von 'CPC 

PRINT#9 ,nrz" ""+STRING$ (LEN (h$) „42) : 

Ar=nr+ine 

PRINT#9,nr; 

PRINT#9,nr; 

arsnr+ine 

PRINT#9,nr5;"""zni r+inc 

215@ PRINT#9 nr; "DATA ";tnr=nr+ine 

IF fL(1) THEN PRINT#9,HEX$ (start-off 

5,4) ;ELSE PRINT#9 USING" #4HHi#" star 

t-offsz 

FOR i=@ TO #1(9)- +12) THEN IF 

+orm THEN FRINT#9,",";HEX$ (PEEK (sta 

rt+i),2)57G0T0 2198 ELSE PRINT#9,", 

"3HEX$(PEEK (start+i)) '0TO 2198 

a$=STR$ (PEEK (start+i) RINT#9,", 

RIGHTS (nn$+MID$ (a$,2) ,3); 

NEXT:IF #1(5)=8 THEN PRINT#9:60T0 2 

228 

GOSUB 3480: IF f1(&)THEN PRINT#F,"," 

:HEX$ {pr ,#1(7)):60T0 2228 

S$=STRE pr) zPRINTE9," "3 RIGHTS (nn$+ 

MID$(a$,2) „#117)) 

IF_INKEY#=brk$THEN CALL %&BC92:G0T0 

1158 

2258 start=start+f1(S):IF start<finish T 
HEN 2158 

PRINT#9 ,nr; "DATA *ENDE*":nr=nr+inc 

PRINT#9 ,nr; "adr= F fL(1)THEN PRI 

NTEF,"EÜHHEXS (St2,4) ELSE PRINT#F,M 


= 


“"+h$inr=nr+ine 
"+STRING$ (LEN (h$) 5,42) 2 


Listing 2. Eingabe von Maschinencode im Eiltempo 


ESBFEI 
106441 
172021 
LAEFCI 
ca49C1 
TaA2a] 
106781 
L&ECCI 


L24F81 
TEASAI 


CAs7@1 
151241 


LADSCI 
CA1acı 


L766A1 
LCEBEI 
[20441 
EB1A61 
[24221 
LABAAı 
[752C1 
199381 
L7CF8] 
EBF221 
CB3221 
EBC6AJ 
CAA68] 
L6BREI 
£D2D21 
CBC401 
tccaB1 
CFEBS] 
L86CC9 
E7DC61 
CB34E1 


L48E61 
CFES2] 


LBOgEI 
1712A1 
CEC16] 
[34101 
[88881 
LE436] 
L1SCEI 


LAACD] 
[92A6] 


CA8C41 


L473C1 
£37DA1 


[8548] 


[3388] 
C206E1 
195141 
CAF7EI 
C958E1 
L9aAa1 


173181 
LACAA1 


W.HOMECO 


89 


MID$ (STR$ {nr2) ,2) 

enr=nr+ine 

227@ PRINT#7, "MEMORY IF st2=32768 TH 
EN PRINT#9,"&7FFF"ELSE PRINT#9, "adr 
iu 

2288 PRINT#9 nr; "READ d&: IF d$="4CHR$ (34 
) +" KENDE#"CHRS (34) 4" THEN" nr+dirin 
Cinr=nr+ine 

2290 IF #1CS)THEN PRINT#9 nr; "pr=@"inr=n 
r+ine 

2308 PRINT#9,nr; "FOR i=1T0";f1 (3) snr=nr+ 
ine 

2310 IF f1(2)THEN PRINT#9,nr3 "READ ası 
VAL C"+CHRS (34) +" R+CHRE (34) +" +2 


arsnr+inc ELSE PRINT#F,nr;"READ a": 
Arsnr+ine 
2320 PRINT#F,nr;"POKE adr ‚asadr=adr+1":n 
eenr+ine 
2330 IF f1(5)=@ THEN 2370 ELSE IF fL(@)T 
HEN 2358 
2540 PRINT? ‚nr; "pr=pr+a"inr=nr+inc:GOTO 
3 
235@ PRINT#9 nr; "pr=pr#2: IF pr>64553STHEN 
r=pr-65535" nr=nr+ine 


INT#7,nr; "pr=UNT (pr) XOR arif pr<@ 

THEN pr=pr+65536" :nr=nr+ine 

237@ PRINT#9 ‚nr; "NEXT_i"nr=nr+ine 

2380 IF f1(5)=® THEN 2428 

2390 IF #1(&) THEN PRINT#9 nr; "READ pr$:p 
7 Z=VAL ("+CHRE (34) 4" R+CHRS (34) 4" +4pr 
$):i# pr2<öthen pr2=pr2+65536" ınr=n 
r+inc:60T0 2418 

2400 PRINT#HF nr; "READ pr2":inr=nr+inc 

2910 PRINTAO Sn A"IF pr©pr2 THEN PRINT»+ 
CHR$ (34) +"Pruefsummenfehler in Zeil 

@"+CHR$ (34) +"; zeile: STOP" inr=nr+inc 


2420 PRINT#9 nr; "zeile=zeile+";MID$(STR$ 
inc) „233 "38010" inr-d2*incınr=nrtin 


c 

2430 PRINTH9 nr} "SAVE"+CHRE (34) +cn$+CHRE 
(34) +" „B,&"+HEX$ (8t2) +" „U"+HEX$ (fin 
ish-st2) inrenr+ine 

2440 PRINT#9,nr; "PRINT d$:END" : CLOSEOUT 

2450 PRINT#2," und ist fertig. ";bell* 

2460 GOSUB SA10:G0T0 1150 


/--> Parameter einstellen 


2500 x=1@:y=8:x1=28:y1l=14:G0SUB 3310 
251@ WINDOW SWAP @,1:PRINT"Parameter bes 
timmen: " 
252Q LOCATE 1,3:SOUND 1,900,0,15,2 
2530 PRINT" (1) Adresse - 
1) THEN_PRINT"hex" 
254@ PRINT" (2) Byt, 
(2) THEN_PRINT"hex"ELSE PRINT"dez" 
255@ PRINT" (3) Byteanzahl -—--?";f1(3) 
256® PRINT" (4) Ende annehmen -> Fr 


KM) THEN PRINT"nein"ELSE PRINT" ja<2> 
2570 PRINT" (5) Pruefsumme -—---> ";:IF fl 
(S) THEN PRINT" jag2>"ELSE PRINT"nein 


2580 PRINT" (6) Pruefsumme -———-> Ir #1 
(6) THEN_PRINT"hex "ELSE PRINT"dez" 

2590 PRINT"(7) deren Laenge -->";#1(7) 

2600 PRINT"(8) und Typ > "salr #1 
(8) THEN PRINT"hash"ELSE PRINT"add " 


261@ PRINT:PRINT"Mit <ENTER> geht's weit 
er" 

2620 PRINT#2,TAB(11)"(1-8) oder ENTE! 
scurls; 

2630 GOSUB S41Q: IF a$=brksOR as=scr# THEN 
RETURN 

2640 IF a$<"1"OR a#>"B"THEN PRINT bells; 
16070 2630 ELSE PRINT#2,a#ı =VAL (a$ 


2650 IF f<>3_AND #£>7 THEN #Lif)=1-f1iH) 
:60T0 2528 

2660 WINDOW SWAP @,2:FRINT TAB(12) "neuer 

Wert: "}:G0SÜB 2750: #1 (#)=b:WINDOW 

‚SWAP 0,2:60T0 2520 


2680 '--> Beende CPC 


2708 PRINT#1 NSgzim)nende ERC« 

2710 WINDOW SWAP 2: PRINT TAB(9) "Zurueck 
mit ESC oder “C" 

2720 GOSUB 3410: IF brk THEN 1138 

2738 MODE 2 


2740 END 

2750 ' 

276@ '--> Sub: Hex-Dez-Input 

2780 bs= =0: lmax=5 

2798 GOSUB 3150: IF a=13 AND b$<>"&"THEN 


2840 
2800 IF a=127 THEN GOSUB 3220:60T0 2798 


1513A1 
CCBB41 


197521 


L61E41 
125441 
LtE4BE] 


LE45@1 
164961 
1A1463 
EBACAI 
CCSDAI 


16872] 
13a881 
[78381 


LE97CI 
Lıaacı 


19F521 


C&BACI 


CC3D41 
CBC981 
[7802] 
[4658] 
LB7283 
C3B82] 
CB92C1 
(50981 


[2A241 
EDCECI 


LAAZEI 
[6968] 
L482C1 
LB2BCI 


[34561 


178621 
C&D681 


CBDCAI 
LFAARI 
L9ABEI 
C7E581 


152761 
L49A21 


L&DF81 
(972C3 
EFDi@] 
CBD3@J 
[Daa8] 


c@1A8] 
EFDSEI 
[3EC61 
[F888] 
195243 
LE2081 
[972E1 
LCSBEI 


LACH] 
CC8143 


2810 IF b=® THEN IF a>34 AND a<39 THEN i 
n$=hxr$s:bs="&" PRINT a#3:G0T0 27 
98 ELSE ins=dz$ 

282@ IF INSTR(in#,a$)>@ AND b<lmax THEN 
b$=b$+a$:b=b+1:PRINT a$5ELSE PRINT 
bell$; 

2830 G0T0 2790 


2840 b=VAL(b#): IF b<@ THEN b=b+65536 
285@ RETURN 

2868 ' 

2870 '--> Sub: Filename-Input 

2888 " 

2890 b$="":b=Q: lmax=16 


2900 GOSUB S15@: IF a=13 THEN RETURN 

291@ IF a=127 THEN GOSUB 3200:G0710 2908 

292@ IF a>31 AND a<127 AND b<imax THEN b 
scb$tafıbeb+liPRINT.atjELSE PRINT b 
eilt; 

2939 GOTO 2900 


'—-> Sub: Hex-Zahl eingeben 
2968 in$=hx$:G0T0 2998 


2970 '--> Sub: Dez-Zahl eingeben 
2988 in$=dz4:80T0 2998 

2990 ' 

3008 ’--> Sub: Input 

s@1@ ' 


3020 b=LEN(b#):brk=@:IF del THEN del=0:6 
0T0 S1@@ ELSE del=@ 

3939 GOSUB 3150 

3048 IF a=3_THEN brk=1:6070 3120 

3050 IF a=15 OR a=32 OR a=46 THEN 3120 

306@ IF a=47 OR a=92 THEN b4=bb$:b=LEN (b 
b$) :RETURN 

3070 IF a=127 THEN 3100 

3080 IF INSTR(in#,a$)>@ AND b<lmax_THEN 
bseb$rasib=b+1PRINT asjELBE PRINT 
beils; 

3999 IF fL(A)THEN 303@ ELSE IF b=Imax TH 
EN 3120 ELSE 3030 

3100 IF b>@ THEN GOSUB 3200:G0T0 3030 

3112 PRINT beil#z:del=1 

312@ b$=RIGHT£ ("ÜOROR"+b$, max) 


3130 bb$=b$:RETURN 
3140 ' 
3158 '——-> Sub: Tastdruck nach a,as 


3160 PRINT cur2$; 
317@ a$=UPPER$(INKEY$):IF as=""THEN 3170 


3188 PRINT cir$; 

3198 a=ASC (a$) :RETURN 

> Sub: DEL-Routi 

321@ IF b>@ THEN b=b-1:b$=LEFT$ (b$,b) PR 
INT back$;cir$jELSE PRINT bells; 

322® RETURN 


3238 

324@ '--> Sub: Rahmen zeichnen 
3250 

326@ MODE 2 


3270 MOVE 112,352:DRAW 527,352:DRAW 527, 
399:DRAW 112,399:DRAW 112,352 

328@ MOVE 116,356:DRAW 523,356:DRAW 523, 
395:DRAW 116,395: DRAW 116,356 

3298 LOCATE: 28,25: PRINT" Zurueck mit ESC 


oder C" 

3399 WINDOW 1,80,4,24:RETURN 

332@ '--> Sub: Fenster oeffnen 

3330 * 

SSAQ WINDOWPL SA menI 1 ysysyl—iscLsh 

335@ xp=x#16-16ryp=415"yKlöramexi#1o-lıy 
mayl*16-1 

336@ PLOT «Pp,yp,1HDRAWR xm,@:DRAWR @,-ym 
3 DRAWR "xm,@:DRAWR @,ym 


3370 zprup+4ı yp=yp-Aukmenn-B: ynzyn-8 

338@ PLOT xp,yp,3:DRAWR xm,@:DRAWR Q,-ym 
:DRAWR "xm,@: DRAWR @,ym 

337@ WINDOWM „x+1,x+x1=2,yHl,y+yl-2 

3490 RETURN 


> Sub: Auf Taste warten 


3448 WHILE INKEYS<>"":WEND 
3450 a$=UPPER$(INKEY$):IF as=""THEN 34580 


346@ IF a$=brk$THEN brk=1 ELSE brk=® 
3478 RETURN 

34808 

349@ '--> Sub: Checksum bilden 

350@ ' 

3518 pr=@: IF f1(B)THEN 3548 


3520 FOR i=@ TO fl (3)-1:pr=pr+PEEK (start 
+1) :NEXT 

353@ RETURN 

354@ FOR i=@ TO #1(3)-1:pr=pr*2: IF pr>65 
535 THEN pr=pr-65535 

3558 pr=UNT (pr)XOR_PEEK(start+i)sIF pr<® 
THEN_pr=pr+65536 

356@ NEXT=RETURN 


Listing 2. (Schluß) 


L2EE81 


154261 
[5638] 
[90441 
[839E1 
[C82E1 
[3064] 
LC2321 
TE9261 
Ecaicı 
L7aaAı 


CORCCI 
[63241 
LC82C9 
181221 
[61281 
EAF223 
[11269 
[0536] 
LASACı 
EB@161 


CBF&21 
LAsIE] 
[4658] 
199361 


16968] 
L47a81 


18624] 


C57AB1 
LE120] 
CB2DAJ 
L74BE] 
CAQSBI 
CB91EI 
L8@DAI 
CDOEA] 


L2FB6]J 
LE872] 
L7BA4] 
[B4601 


[359E1 
L878E1 
L921E1 
11936] 
CB822] 
£2B041 


EBD9IEI 
C81B81 


CFS4E] 
[325E] 
C9BIcı 
[8046] 
[92201 
[S1E6] 


1397C1 


CSFDAI 
1[85A2] 


L27E21 
[5984] 
L7DBEI 
ECB1EI 
[F@741 
[C222] 
1A79C1] 


c87BA1 
C5@A41 
L9F9C] 
L972C1 
c@4281 
EBDIEI 
C8D2E] 


LAg9EAI 
L8C961 


LBASAI 


CFSCA] 
L2BBEI 


Der CPC hat Töne 


Auch musikalisch haben die Computer der 
Schneider CPC-Serie einiges auf dem Kasten. 
Nur fällt es meist schwer, ihnen diese Fähigkeiten 
zu entlocken. Der »Envelope Composer« nimmt 
Ihnen viel Fleißarbeit ab. 


n Basic-Befehlen - auch zur Tonerzeugung bezie- 
Bere CPCeigentlich 

reich gesegnet. Will man aber beispielsweise 
eigene Lautstärke-Hüllkurven entwerfen, läßt einen der 
Computer im Stich: Der Griff zu Bleistift und Papier ist dann 
unausweichlich. Vielmehr war er es, denn das Programm 
»Envelope Composer« erleichtert nun diese Aufgabe. 
Zukünftig entwickeln Sie damit die Hüllkurven am Bild- 
schirm. Dazu stellt sie der Computer in einem Gitterraster 
grafisch dar. Der sofortigen Erfolgskontrolle dient das pro- 
beweise Abspielen der Kreation. Ist die endgültige Form 
gefunden, speichert der CPC die Kurven wahlweise als 
Basic-Programm in Form von ENV-Befehlen. Auch an eine 
Druckerausgabe ist gedacht. Dassich eine Kurve über meh- 
rere Bildschirmseiten erstrecken kann, sind Hardcopies 
sowohl von einzeln bearbeiteten Teilen (Bild 1) alsauch vom 
gesamten Kurvenverlauf (Bild 2) anzufertigen. 

Geben Sie zunächst Listing 1 ein und speichern es. Auch 
Listing 2 speichern Sie sicherheitshalber gleich nach der 
Eingabe. Danach starten Sie es mit »RUN«. Es erzeugt 
dann selbsttätig den Maschinencode für die benötigte 
Befehlserweiterung und speichert ihn automatisch unter 
dem Namen »ENVELOPE.BIN«. Mit Listing 3 verfahren Sie 
genauso; es enthält die Hardcopyroutine, die den Dateina- 
men »ENVELOPE.HRD« erhält. Dabei handelt es sich um 
eine Routine die wir erstmals in der Happy-Computer, Aus- 
gabe 6/86, veröffentlichten. Sie ist in dieser Version an den 
DMP 2000 und andere Epson-kompatible Drucker ange- 
paßt. Die Anpassung an andere Drucker entnehmen Sie 


Bild 1. So einfach und übersichtlich können auch Sie in 
Zukunft Ihre Lautstärke-Hüllkurven entwickeln 


m ä u 
Huelrıkuar oo. a 

) 
IV = | 


L 
Haxal <IS_<N> 3 
Sir za? Brriaschirn ? a 


Bild 2. Der gesamte Kurvenzug wird im Diagramm sichtbar 


PRAAPPYMG 
con\i 


NW .HMOMECOMPUTER 


$ 
S 
H 
Di 
Haget-Menue verlassen 
Programm verlassen 


IM _<== Zeit 


‚ir 9,91, Sek 


Bild 3. Aus dem Hauptmenü heraus ist nicht nur die 
hörbare Kontrolle Ihrer Kreation wählbar 


bei Bedarf bitte diesem Beitrag. Natürlich lassen sich auch 
andere Hardcopyroutinen einbinden. Voraussetzung dafür 
ist jedoch, daß sie oberhalb der Adresse 9FFF hex liegen. 
Die genaue Adresse des Aufrufs müssen Sie dann im vier- 
ten und fünften Byte der Zeile 109 in Listing 2 eintragen 
(dort steht in dieser Version AO1B hex in der Reihenfolge 
Lowbyte, Highbyte). 

Dem Start des Programms folgt eine kurze Verzögerung, 
während der die beiden Binärdateien nachladen. Am 
besten eignet sich ein Eingabebeispiel zum Kennenlernen: 

Oben links erscheint der Schriftzug 
Env Nr. : 
und der Cursor dahinter signalisiert, daß der CPC auf Ihre 
Eingabe wartet. Nun wählen Sie eine der möglichen 15 
Hüllkurven mit ihrer Nummer aus. Geben Sie also zur 
Probe <1> ein und drücken Sie danach <ENTER>.Die 
nächste Aufforderung 
Start-Lautstärke der Envelope setzen 
wird nun unten links sichtbar. Die Lautstärken sind am lin- 
ken Bildschirmrand aufsteigend abzulesen. Mit den Rich- 
tungstasten bewegen Sie den Cursor auf die gewünschte 
Lautstärke. Fahren Sie also den Cursor auf die Position 0 
(Anzeige »Y=0«, oben links im Bild 1) und drücken Sie an 
dieser Stelle <COPY> zur Bestätigung. Nun ist der Cur- 
sor frei beweglich. Um in unserem Beispiel fortzufahren, 
bringen Sie den Cursor ans obere Ende der Skala (auf den 
Wert 15). Anschließend drücken Sie die rechte Cursorsteu- 
ertaste, worauf der Zeiger gleich um einige Positionen nach 
rechts springt. Nur auf diesen Positionen ist die Lage des 
neuen Kurvenpunkts erlaubt. Das signalisieren auch stets 
die beiden Anzeigen »X(Laenge)=« und »Y(Hoehe)=«oben 
rechts auf dem Monitor, wenn sie invers (weiße Zahl auf 
schwarzem Hintergrund) dargestellt sind. Nachdem Sie 
nun an der ersten möglichen Position wieder <COPY> 
drücken, zeichnet Ihr CPC den ersten Teil der Grafik. Dar- 
aufhin ändern sich noch weitere Bildschirmanzeigen. 
Oben links sehen Sie nun nämlich die Werte dieses ersten 
Hüllkurventeils (Part). In der untersten Zeile ist der entspre- 
chende ENV-Befehl mit den bisherigen Parametern sicht- 
bar. Nun bewegen Sie den Cursor mit gleichbleibendem x- 
Wert auf die y-Ordinate 0 (ganz unten). Wenn Sie nun ein- 
mal die rechte Cursortaste drücken und im Anschluß daran 
<COPY>, erhalten Sie eine Hüllkurve in Form eines Drei- 
ecks. Sollen sich spätere Kurven über mehrere Bildschirme 
hinweg erstrecken, gelangen Sie durch Druck der Leerta- 
ste in diese weiteren Bereiche. 

Die Kurve ist vollständig und deshalb nicht mehr zu 
erweitern, wenn die Parameter des ENV-Befehls am unte- 
ren Bildschirmrand vollzählig sind. Drücken Sie jetzt 


9il 


<ENTER>, um ins Hauptmenü zu gelangen (Bild 3). Der 
Cursor steht auf dem Punkt »Spielen«. In diesem Menü löst 
die ENTER-Taste die Funktionen aus. Probieren Sie esalso 
einfach mal mit <ENTER>, und Sie hören mit dem Kam- 
merton A, was Sie gerade eingegeben haben. Die anderen 
Unterpunkte erreichen Sie, indem Sie den Cursor mit der 
oberen und unteren Cursor-Steuertaste bewegen. Beim 
Sichern erzeugt der Envelope Composer ein Basic- 
Programm mit den generierten ENV-Befehlen. Diese die- 
nen später als Grundstock für eigene Musikprogramme. 

»Helppage« ruft ein Hilfsmenü auf (Bild 4), das die wich- 
tigsten Bedienungsregeln in Erinnerung ruft. Mit »Dia- 
gramm« erhalten Sie nicht nur einen Überblick über die 
gesamte Hüllkurve (wie in Bild 2); hier läßt sich auch die 
Hardcopy aufrufen. Wollen Sie eine weitere Hüllkurve ent- 
wickeln, bedienen Sie sich des Menüpunkts »Ende«. Das 
Ende der Arbeit leiten Sie über »Programm verlassen«oder 
durch zweimaligen Druck der Taste <ESC> ein. 

Das Programm nutzt - wie übrigens auch die vier Abbil- 
dungen zeigen - die verschiedenen Schriftgrößen aller drei 
Bildschirmmodi gleichzeitig. Daes auf einem CPC 464 ent- 
wickelt wurde, arbeitet diese Ausgabeart nicht auf den 
CPCs 664 und 6128. Die Zeichen erscheinen auf Compu- 
tern dieser Bauserie in gewohnter Modus-2-Darstellung. 
Andere Einschränkungen existieren jedoch nicht. 

(Michael Wessel/ja) 


= entsprechende 

5 = hoeflker Marne! *Fefinieren 
Kauptnenue einblenden 

(EPICH = eine Seite ver 


EIN: 
Helppage = die Helppage 
 Biagramı = Muelikurpe wird {n.Di 
Inde neue Huelikurve definieren , alte 
üje nonentane, Ruelikurve wird heerhar 
alfe-definierten Huelikurven auf Diskette/Rassette sichern 
= Funktion ausfuehren 


agrannforn ausgehen. 
schliessen 


Bild 4. Haben Sie im Eifer des Gefechts einmal die Bedie- 
nung vergessen, hilft Ihnen der Aufruf der »Help-Page« auf 
die Sprünge 


Steckbrief 
Envelope Composer 


CPC 4864, mit Einschränkungen 
auch auf 664/6128 


Explora/CPC 
Kassette, Diskette 


Programm: 
Computer: 


Checksummer: 
Datenträger: 


10H (39881 
20 '* * LFCABI 
zo '* r ” CABS@] 
40 '» 2008 Hamburg Niendorf #* L9FS8] 
SB RR c5488] 
&0' 18454] 
78 "Arrays definieren [8652] 

. '86SE 
98 ON BREAK GOSUB 3530 CABSCI 


109 MEMORY W4FFF:DEFINT a-z:DEFREAL s LF464] 


110 DIM t(4,14) ,5(4,14) ‚1(4,14) (60322 

128 DIM erlau(14) ‚le14} Lasse 

jap" (88761 

(E2821 

CSABCI 

168 svscr=&5116 L8ESB] 

170 ° LasBEI 

188 ‘Variablen definie: LA1SAI 

a casc23 

[2881 

LF&De] 

16142] 

[B77E3 

ECAD&I 

L&AFCI 

LEZBEI 

CBAB2I 

tacc23 

[27641 

CBIEAI 

S3EC1 

ser® 

13404] 

LB6BC3 

350 ‘Windows definieren EDCB61 

300 ' ta4caı 
370 WINDOW #1,72,76,3,3:WINDOW #2,72,76, 

4,4 tascEı 
380 WINDOW #5,3,20,4,4: WINDOW #6,3,38,4 

As WINDOW 47,4,7 177,24724 C6FC6I 

390 PAPER #7,1:PEN #7, Ca7Fc3 

A0Q PAPER YaLLEPEN #410 [D9EBI 

a1B PAPER #2,1:PEN #2,8 CFADAI 

420 ' LEsBAI 

430 ‘Rahmen zeichen [6578] 

a0 ° LEABEI 
As PRINT CHRELISB)+STRINGE (78, 154) HCHRS 

LA526] 

460 Fi an } y=2 TO 24 EFDB&] 
370 LOCATE 1,iysPRINT CHR$(149):LOCATE 8 

9: SPRINT CHR& (149) 152181 

280 Ni TAEF 


498 LOcare 1,25: PRINT CHR#(147)+STRINGS( 
78,154) +CHR$ (153) ; [3 

500 LOCATE 60,2: PRINT CHR$(15@) +STRINGS( 
16,154) +CHR$ (156) :LOCATE &@,S:PRINT 
CHR$ (149) +STRING$ (16,32) +CHRS (149) ıL 
OCATE 60,4:PRINT CHRE(149)+STRINGS (1 
6,32) +CHR$ (149) :LOCATE &@,5:PRINT CH 
REC147)+STRINGS (16, 154) +LHR$ (155) 

51® LOCATE 43,2:PRINT CHRS(15@) +STRINGS( 
15,154) +CHR$ (156) :LOCATE 43, S:PRINT 
EHRE (149) +STRINGE (15,32) +CHRECLA)sL 


OCATE 43,4:PRINT CHR$(149)+STRINGSL 
5,32) +CHR$ (149) :LOCATE 43,5: PRINT CH 
RE(147)+STRING$ (15, 154) +CHR# (153) 

52® LOCATE 2,3: PRINT CHR$ (158) +STRINGS (3 
8,154) +CHR$ (156) :LOCATE 2,4:PRINT CH 
REC149) +STRINGS (38,32) HCHR$ (149) 1 LOC 
ATE 2,5: PRINT CHR$(147) +STRING$ (38,1 R 

> 


1206E1 


54 +CHRE ( 153: 53E2] 
sse CQ7BEI 
548 'x-Leiste der Grafik C5F74] 
Ei CE1C2] 
568 ıxon (91581 
578 FOR ix=4 TO_77 SICcc) 
588 LOCATE ix,22: PRINT CHR$ (207) (91803 
598 IF LEN(STR$(IX/1@))C3 THEN LOCATE ix 

+5,22: PRINT CHR£(143) Lass] 
&@@ NEXT L7cEA] 
&18 !XOFF EC6CCH 
620 ' EBEBE] 
638 'y-Leiste der Grafik [A476] 
640 [10021 
&58 FOR iy=21 TO_& STEP- E2@2E1 
668 LOCATE ZuiyaPRINT USING"A#" 3 16-4iy-5 

DEHERINTCHR= AS) LDE761 
678 LicFBl 
688 LOCATE 4,224PRINT CHRS(14S) SLOCATE 4 

„21:PRINT CHRS( 199421 
se LESCCI 
788 "Beschriften [26961 
zı8 ' La9BEI 
728 LOCATE 62,3: PRINT"X(Laenge sLOCATE 

62,4: PRINT"Y(Hoehe) =" CDeD41 
73@ CLS’#1:CL5 #2 LBFA2] 
748 LOCATE 2,2:PRINT"X Env-Composer "+CH 
RE(1E4) +" 1986 by: Michael el 
LCABBI 
758 LOCATE 8,251PRINT"X VOLUNE X"+STRING 

$ (66,143 LC1A61 
768 ımı [346E] 
77@ LOCATE 8,23: PRINT"X<== Zeit in 9.01 

Sek . =m5x" CBA96] 

CB2CC1 

itter zeichnen [4894] 

LI1BBEI 

sıa ınz [&B683 

828 :x C1056] 

838 WINDOW #3,79,79,2,24: PAPER #5 „a L6BaA] 
848 LOCATE #3, „SEPRINT #3, "PAGE: "+HEXS( 

Bage! 1399C1 
ORIGIN 8,8 139621 
B&B FOR ix= "4x8 TO 778 STEP B:MOVE i 

x,4*16-1:DRAW ix ,20#16-1,1:NEXT L9ABAI 
878 FÜR iy=28*16& TO 4#16 STER ER Kal 7 

7=8,iy-1:DRAW 4#8,iy-1,1:_ NE CAZFAI 
888 MOVE 77#8,28*15:DRAW 32, zanıcı MOVE 
7728, ari6-1: DRAW 77#8,16 [79BAJ 
878 an ER) @: IF page>® THEN PAPER #3,1:60 
L35B0] 
9aa tQECQ] 
918 "Env-Nummer eingeben [4118] 
920 ° L18C413 
938 enves=8 [4D941 
948 FOR i=® TO 14 [4604] 


= ——_ 
—  E w ——— 
m 
958 IF 1(8,i1)<>@ THEN enves=enves#+1 LAsCEI 1718 xx=«x-steigung LF632] 
968 NEXT L1DFcı 172@ NEXT L[F@52] 
970 text$=STR*(enves)+" = Anzahl der bel 1738 : [98241 
egten Huellkurven . 199051 1748 "in Arrays setzen TAZ6A] 
988 IB 2418 1[C8581 1750 " [9628] 
978 _!WAIT 25000 LFF141 1768 cLS #5 LF6901 
ına2 !Mi 158B&6] 1778 PAPER #4,1:PEN #4,8:CL5 #4 1[517CJ 
181@ INPUT #5,"Env Nummer :",n L1iE16] 1788 :Mı [6ED4] 
1828 IF n<1 OR n>15 THEN 1818 102223 1798 PRINT #5,"P"part+1":X"; 185341 
19838 n=n-1 LAEB&] 1888 IF ay=y THEN PRINT #5," * HOLD = x" 
1042 FOR i=9 TO 4 LE9B23 6070 1838 L3AFc9 
1850 IF 1(i,n)=@ THEN NEXT:GOTO 1168 13996] 181@ PRINT #5,dysı: IF 11622 THEN PRINT #5, 
1068 text$-" Diese Huellkurve existiert "+5 ®3 ELSE PRINT #5,"-5 "; 122461 
bereits !" LFiE4] 1828 PRINT #5, "&"+HEX$ (s' gung)+" X"; [246] 
19070 GOSUB 2418 1599E] 1838 IF ay=y THEN t(part,n)=1:s(part,n)= 
1088 !WAIT,%SOOB [5262] 16:1 (part ‚n)=ROUND (dx/csteig):GOTO 
197980 !MZ [73CA] 1878 [4258] 
1188 INPUT #7," Soll sie geloescht werde 184@ IF y>ay THEN stpart,n)=-1 ELSE stpa 
n <3> &N? "zwahls LF9E2] rt,n=1 tBa7@1 
1118 IF UPPER$(wahl$)<>"J" THEN 1090 18836] 1858 t(part,n)=dy [3C3C9 
1128 FOR i=® TO 4:tli,n)=B:sti,n)=@:ltli, 186@ 1 (part,n)=steigung [&D48] 
m) =B: NEXT LC52A3 1878 texts=" ENV+STRF(n+1) TEBBC] 
1138 text$=" O.K. ‚Huellkurve geloescht . 1888 FOR i=@ TO 4 tB1cal 
";GOSUB 2418 192843 1890 text$=text$+" ,"4STR$(t (I ,m))+" ,"48T 
1140 enves=enves-1 [C2861 RS (Si md )#" FHSTRECL MI )ENEXT  LBBCAI 
1150 !WAIT,25008 [2BSE1 19@@ GOSUB 2418 170421 
1160 MB 16202] 1918 axsktofsıay=y EFB&CI 
1178 LOCATE 52,1:PRINT"ENV":LOCATE 52,2: 1928 Sn L37E6] 
PRINT USING" ##"jn+1 190981 1938 le(n)=@:FOR i=® TO 4:lein)=lein)+Lt 
1188 text$=" Star Lautstaerke der Envel i,m)#t(i,n)zNEXT [D6B8A] 
ope setzen tBIEBI 1948 GÖTO 1335 t731C1 
1198 GOSUB 2410 [27.7757 1958 | 02201 
120@ LOCATE #3,1,14:1PRINT #3, "ENVES: "+HE 1968 'Env spielen tB7A@] 
X# (envas); L5F9@] 1978 LEAS@] 
1210 PAPER MS,1 EsBsE1 1988 ISVSCR,svser LaCBB3 
1220 GOTO 1378 [A312] 1998 WINDOW #4,5,77,6,21:PAPER #4,0: PEN 
1230 ' CBB1A1 #4, 1:CL5 #4 [846E1 
1248 "Cursor-Routine C6DSEI 2008 !XÜFF: IMB:PRINT #4:PRINT#4,"Env Nr. 
1230 ' [92181 s"n+ 3806] 
1240 IxON CSEBa] 2919 IMISPRINT #4,"<4>Lautstaerke ı" 159041 
1270 a$=INKEY$: IF a$="" THEN 127@ [35F@) tEaDe] 
1288 IF BEORELIS) THEN 3238 190923 2050 Eelyr« sa FOR i=® TO 4:PRINT #4,"Par en 
129@ LOCA a+ ıPEN ®:PRINT CHR$(253) ICOBFEI 
1500 IF INKEY(@ILO THEN y=y-1 ELSE IF IN 2848 PRINT a Te RS RENIED SERRINT #4 
KEY(2)=® THEN yay+i CE4FEI AURING RER pm CL In) JıPRENT 8," "ap 
1310 IF INKEY(@)=@ THEN 2598 ELSE IF ste INT #4 USING Kanal cin) aNEkT L6FBOI 
er AND INKEY(1)=® THEN 2670 CA4BEI 2085® ENV n+1,t(Q,n) „s(@,n) ‚I (B,n) t(1,n) 
1320 IF INKEY(47)=@ AND part>-1 THEN 248 „stl,n) ,Lil,n) st(2,n) ,8(2,n) ,1(2,n) 
(} 12502] een used LS Elan alas) LiBaaı 
1330 IF xtofscax+i THEN x=ax+i-of 184881 L) 
1340 IF yc& THEN y=6 ELSE IF y>21 THEN y 2060 PRINT #4:PRINT #4:PRINT #4,"<TASTE> 
=21 194281 druecken zum verlassen ." 157021 
1350 IF x>72 THEN x=72 ELSE IF x<® OR pa 207@ IF INKEYS<>" THEN !M2: !SORESET: ILD 
Ct<d THEN x=@ CB4301 SER/SYscr :60TO 1260 L9FACH 
1360 IF INKEY(9)=® AND x<72 THEN IF part 2888 LOCATE #4,18,3:PRINT #4,PEEK (&BS6B) ErSas1 
<@ THEN ay=yıpart=@:erlau (n)=16- (y- - 
S):CLS #7Yn-nPlıGoTo 1370 ELSE IF’p 2090 !SOTEST,i:IF PEEK(&SQ0®)=4 THEN SOU 
art<S THEN 1448 tEESCI ND 1,284,1ein) ‚erlau(n) ‚n+1 EBES4] 
137@ PEN 1:LOCATE »+5,y: PRINT CHR$(233) L[DIFEI 2188 GOTO 297: LASQAI 
1380 IF ay<>y THEN steigung=((x+ofs-ax)/ 2110 / CBD161 
ABS(y-ay)) ELSE steigung=x+ofs-ax LAFCBI 212@ ’Sichere Huellkurven cD4081 
1398 IF tal qungSıNT (weni gung) _THEN. PAPE ZIAB 1SVBCR‚avscraWINDOW 44,5,77,6,211Ppa PAR 
Kan EN 41,0 ELSE PAPER #1,B:PEN ErSaAI Ar BER BALOHFEN 98, 1:CLS Fr LIF9EI 
LT g 72 THEN PRINT ® 179541 
Bee Sgungy SS LET 2168 IMI:INPUT #4," Erste Zeilec3d:" 
141 RINT #2,STR$t16-(y-5)) CEEICI . 17098] 
aa Euro all [55141 217@ INPUT #4," Zeilenabstand :",zeab LBFDAI 
1430 ° [BSIEI 218@ !M2:PRINT #4:PRINT #4, ex Generie 
1440 "Steigung o. Gefaelle berechnen 118243 ctes BASIC-Programm : X t3aDA1 
1450 ' [96221 2198 PRINT #4 [BSEB] 
TE 2 [BEEBI zzu0 Ir e=@ THEN erze=i0 tepF2] 
147@ IF (dx<>® AND dy<>8) THEN steigung= 2218 IF zeab=® THEN z: 18 189441 
tdx/dy) ELSE steigung=® LF@261 2228 OPENOUT" !env-bl.b: 16935A1 
A 2248 Ir 1 (8.1)=0 THEN 232 1a7783 
tt zu klein !! 410: G0TO v 
7a un ns [3AB4] 2258 zeile$=MID$ (STR$(erz: Z2)+" ENV "+M 
149@ IF steigung<>INT (steigung) THEN GOT ID$ (STRE(i+1) ,2) L9BAEI 
0 1370 CA8641 226@ FOR ii=@ TO 4 TABBEI 
1508 PEN 1 [DE341 2278 zeile$=zeiles+" ,"+MID$(STRS(E (ii ,i) 
1518 IF y>ay THEN 1648 [29C61 2,2) +" ,"+MIDS(STRSCS CHI ED) IH" "+ 
1520 ' CBI1EI MIDS (STRE(1 (ii ,1)),2) L147E] 
1530 "Steigung (Positiv) 1326A1 He EEE [893A1 
1548 ' 193221 2298 zeile$=zeiles+" " SOUND x,x,"+MID$( 
1558 IF ax>ofs_THEN WINDOW #4 ,ax+5-ofs,x STRE(Lei)) „2)+" ,"+MIDS(STRF(erlaut 
+5,ay,21 ELSE WINDOW #4,5,x+5,ay,21 13) ,2)+" „"+MIDS(STRE (IH) 524" zur" 
15288] 1319A1 
1568 xx= tac22 2308 PRINT #4," "+zeile$:PRINT #9,zeiles 
1570 FOR iy=y TO ay [4592] CBF1AI 
1588 IF xx+5>4 THEN WINDOW #3,xx+5,x+5,i 2318 erze=erzetzeab [9DB81 
y,iy ELSE WINDOW #3,5,x+S,iy,iy LIAERI 232@ NEXT i [DESEI 
1598 CLS #3 L[F4BE)J 2358 CLOSEDUT T66ACI 
1600 xx=xx-steigung [972E1 2348 PRINT #4:PRINT #4,"<3>Fertig.Das Pr 
1618 NEXT L[S94E] amm ist unter dem Namen‘ RINT # 
1628 GOTO 1768 [7E2@1 4,"<3>ENV-BL.BAS gesichert . £[2F18J 
1830 " [C8221 2358 GOSUB 3578 L[CDB2] 
1648 "Gefaelle (Negativ) ECBECI 2368 !LDSCR,svser £9C78] 
1658 " TE226] 2378 G0T0 1258 L2C1C] 
166® IF ax>ofs THEN WINDOW #4 ,ax+5-ofs,x 2388 ° [98281 
+5,y,21 ELSE WINDOW #4,5,x+5,y,21 [35381 2398 "Subroutine : Textmeldungen in Wind 
1678 xx=x [4726] on #7 [6458] 
1688 IF axd=ofs THEN dix=ax-ofs ELSE ddx 2400 ' [92141 
-8 15614] 2418 !M2:CLS #7 EC1F@] 
1698 FOR iy=y TO ay STEP -1 L[F94C] 
1788 IF xx+5>4 THEN WINDOW #3,ddx+5,xx+5 Pa 
siy,iysCLSs #3 c@aDı81 Listing 1. »Envelope Composer«-Hauptprogramm 


93 


YAyiyw HOMECOMPUTERE 


2428 PRINT #7,text$ [9188] 
243@ FOR i=7 TO ® STEP -1:S0UND 1,284,3, 
1 :NEXT 1DsaAı 
2440 RETURN CADF4]1 
2450 ' 195241 
2460 'Page + 1 193581 
2470 ' 187281 
2480 IF ay<>y THEN steigung=INT ((x+tofs-a 
x+72\/Abstyray)) ELSE steigungex+of 
ax+72 LSBERI 
IF steigung>255 THEN 1378 Lara) 
ofs=ofs+72 LFE9®] 
[11763 
LEB9CH 
253@ WINDOW #4,5,77,6,21: PAPER #4,Q:PEN 
#4, CB8361 
2540 CL& #4:PAPER #4,1:PEN #4,0 CAS741 
2550 G0T0 81 C71Bc3 
2540 ' 196281 
2570 ‘Naechste Position fuer Eingabe auf 
Y hnen - LE7ABI 
2seo ' EBC2C1 
2590 IF y=ay THEN x=x-1:60T0_133@ L6BB&1 
2400 FOR ixzx+ofs-1 TO anti STEP-1 (5C581 
2610 dx=ix-axıdy=ABS (y-ay) EFDCBI 
2620 IF dx/dy=INT(dx/dy) AND dx/dy<256 T 
HEN x=ix-ofs ELSE NEXT C4ABBI 
2630 GOTO 1350 CAF161 
2640 ' EBA2&I 
2659 'Naechste Position fuer Eingabe auf 
Y-Hoehe berechnen + ccsa21 
2660 ° CBa2A2 
2670 IF y=ay THEN x=x+1:G070 1330 t2AaB3 
2480 FOR ixsutofs+l TO ofn+x+72 ED97C3 
2690 dx=ix-ax:dy=ABS (y-ay) LESDEI 
2708 17 dx /dy=INT(n/ay) THEN wmix-afs E 
LBE NEX LA9Q61 
2710 G0TO 1330 (49141 
2720 ' tBA241 
2730 "Huellkurvendiagramm ausgeben (Uebe 
sicht) LSCA&I 
2740 [94281 
2750 !SVSCR,svser CBABQI 
2760 IXOFF EDBSCH 
2770 WINDOW #4,1,8@,1,25 192401 
2780 CLs 12861 
2790 IMO:PRINT "Diagramm von" LEES&1 
2800 PRINT "Huellkurve Nr. "n+1 Cieraı 
zeıo ım2 L76CC1 
2820 ORIGIN 0,308 EC3861 
2830 1y=8: xphye=B: yohysrerlautn) 163561 
2849 FOR i=-50 TO 200 STEP S®:PLOT Q,-i: 
DRAW 637 ,-i 1 NEXT L3CE23 
2858 MOVE 0,8: DRAWR &,-2@@:DRAWR ®,250:M 
OVE_637 ,0:DRAWR &,-2@0:DRAWR 8,250 [5906] 
2860 MOVE @,erlau(n) «stil Caassı 
2870 FOR i=0 TO 4 L37CA) 
288@ IF s(i,n)<>ABSisti,n)) THEN yvektor 
=-t(i,n) ELSE yvektor=t (i,n) CDSBEI 
2898 IF s(l,n)=1& THEN yvektor=® Cnaraı 
2700 xphyserphyssı (han) #2 L&ECEI 
2910 IF xphys<657 THEN DRAWR 161 ,n)#2,yv 
ektorsStyphyamyphystyvektor ELSE iy 
Siy-SB:ORIBIN OnSßGelysMüvE B,yphys 
#3: xphys=0: G0T0' 2908 1C2143 
2920 NEXT [FESBI 
295@ IML:LOCATE 1,20: INPUT "Hardcopy <> 
<N> "zwahl&? IF UPPER$ (mahl$)=73" T 
HEN INPUT "<D>iagramm oder <B>ildsc 
hirm ";wahlt: IM2tIF UPPERE (wahl $ 
B" THEN !LDSCR,svscr ı !HARDCOPY ELSE 
{HARDCOPY csppa3 
940 LOCATE #4,1,22:G0SUB 3570 [11681 
2950 ILDSCR,svser (22821 
2960 GOTO 1260 A926] 
2970 ' £C7323 
2980 'Helppage coBad) 
2000 (C5361 
Zaaa !SVSCR,svscr tapaaı 
3@1® WINDOW ’#4,5,77,6,21:PAPER #4,Q: PEN 
#1 c152a3 
3020 CLS #4 E187C3 
1 74 aa [5147 
101 '#* ENVELOPE.BIN — DATA-Lader von CPC =» TE4AEI 
102 "aaa LASDEI 
103 ° [DEB6J 
104 DATA 5008,84,01,04,50,21,5E,50,C3,4613 [5202] 
185 DATA 1,BC,2D,50,C3,62,50,C3,48D3 [CD64] 
185 DATA 4,50,03,86,58,03,93,50,3EFA [A444] 
197 DATA :3,97,50,C3,9D,50,C3,FB,46A5 [629A] 
108 DATA 5020,58,C3,A3,50,C3,B3,50,C3,0D17 [18381 
187 DATA 5@28,CD,50,03,1B,A0,53,56,53,6FE3 [SEBBI 
118 DATA 59050,43,D2,4C0,44,53,43,D2,53,1AAS LI[D71E] 
111 DATA 5038,4F,54,45,53,D4,53,4F,52,3830 [3718] 
112 DATA 5840,45,53,45,D4,58,4F ,‚CE,58,3198 L[L&9AC] 
113 DATA 5048,4F,46,06,57,41,49,D4,4D,2979 [11643 
114 DATA 5850,68,4D,B1,4D,B2,48,41,52,5DD@ [67681 
115 DATA 50598,44,43,4F ,50,D9,00,53,50,381E [4518] 
116 DATA 5060,0A,5@,FE,81,C8,DD,56,81,0597 [&sB5A1 
117 DATA 5048,DD,5E,08,21,90,C0,@1,FF,78ED L@D9EI 
118 DATA 5070,3F,ED,BQ,C9,FE,@1,C0,DD,3S8F9 IBB1AI 


119 
128 


124 


126 


132 
133 
134 
135 
136 
137 


IMB:PRINT #4,"X Help-page X" 
IM1:PRINT #4,"X Direkteingaben<11>X 


IMZ:PRINT #4," Cursorkeys <";:FOR i 
=24@ TD 245:PRINT #4,CHR$ (1) 3 :NEXT: 
PRINT #4,"> = entsprechende Cursor- 
Richtuni 
PRINT #4, 
ssen" 
PRINT #4," <COPY><2>= Huelikurvenpa 
rt definieren" 

PRINT #4," <ENTER> = Hauptmenue ein 
blenden 

PRINT #4," <SPACE> = eine Seite wei 
terblaettern" 

1:PRINT #4,"X Hauptmenuekomnandos 


<6> ıMm2 
PRTHT Aa" Helppage = die Halppage 
wird eingebendet 


Diagramm = Huellkurve wi 


24<ESC> = Programm verla 


Huellkurve 
(en 

„" Spieleng 

e Huelikurve wird 

PRINT #4," Sichern<2>= 

rten Huellkurven auf Disk 


en" 


SOSUB_ 3570 
!LDSCR , svser 
G0T0 1260 


{Pull-dawn-Menue 


iy=3 
!XOFF 
ISVSER, svser 
WINDOW #4 ,5,77,6,21:PAPER #4,0: PEN 
#1 
CLS #4 
!MO: PRINT #4, "XHaupt-MenueX" 
IM: PRINT #41 PRINT #4,"<2>5pielen" 
PRINT #4, "<2>Sichern 
PRINT #4 Helppage 

Di agramn" 
de 
Haupt-Henue verlas! 


PRINT_#4, "<2>Programn<4>verlas: 
sOTO 3438 
a$=INKEYS: IF as="" THEN 3370 
LOCATE #4,1,iytPRINT #4, 
IF as=CHRE(248) THEN iy: 
IF as=CHR$ (241) THEN iysiy+i 
IF a$=CHR$(13) THEN 3450 

IF iycS THEN Ay=S ELSE IF Ay>9 THEN 

i 


LOLATE #4,1,iyiPRINT #4.CHRE(247)+C 
HR& (246) 

6070 3370 

!M2: ILDSCR,svscr:ON iy-2 GOTO 1988, 
2140 ,3008,2750,349@, 1268, 3530 


‘Neue Huellkurve definieren 
MODE 2:60T0 208 

{Programm verlassen 

INK 1,@:PEN I1MODE 2:END 

‘Auf Taste warten 

IM1:PRINT #4 

PRINT #4,"<TASTE> druecken zum verl 


assen . 
CALL &BBQ6: |M2: RETURN 


SQE@,20,21,D2,Bi, 
SQE8,B1,36,08,21,D4,B1,36,04,521C 
S@F®,21,D5,B1,36,02,21,D6,B1,3109 
S@FB,36,@01,09,FE,01,C0,06,05,0E81 
5188,DD,66,81,DD,6E,2@,2E,7D,79AB 
S198,FE,28,C2,® C,FE,BB,65A4 


LEEABI 


LC4B61 


129681 
CDFC6I 
L3CAAI 
capası 
EC21EI 
LSB6C1 
CB4883 
L92DA1 
CACBEI 
1243E1 


133303 


CAS6E] 
E61B41 
C167A1 
CABIEI 
193181 
EAsscı 
Ea11c9 
68174] 
tE430] 
EAFABI 


192381 
EF98A] 
EBEDAI 
LF2CB] 
EBICCI 
19282] 
LD67C1 
tar321 


15374] 
L9B6EI 
CASIEI 
L38FC9 
CO9ECI 
[552C] 
caa1Aı 
LEC941 


CCBC4] 


L@DECI 
189221 


L9A721 
[ES28] 
COBAA] 
£972C1 
E1s18] 
CBDIEI 
[BE9B] 
EBB22] 
[94541 
199261 
ca104] 
c972A1 
Eo14E] 


EsAtal 
cacial 


LBa3A] 
E266C1 
ESCFO1 
CasAcı 
t542E] 
CAABZI 
193541 
LABSAI 
E446C)9 
Ler20] 
ED7anı 
CFaFB] 
EFSSCH 
LACF@] 
LACS2] 
C8828) 
[28601 
EF7CR1 
[5E8@1 


u 


158 DATA S118,C02,86,51,18,EB,C9,00,08,4FDC LiF62] 148 NEXT i LFABAI 
137 DATA #ENDE* IDECE]I 149 READ pr$:pr2=VAL("&"+pr&):IF pr2<® THEN 
i B4:MEMORY adr-1 [5F823 pr2=pr 2445536 [2A961 
'ENDE#"THEN 152 [7E86] 158 IF pr<>pr2 THEN PRINT"Pruefsummenfehler 
[61003 in Zeile";zeile:STOP LC6AC) 
13862] 151 zeile=zeile+1:G60T0 141 [DBS6] 
[A548] 152 SAVE"ENVELOPE.BIN" ,B.&50@8,&116: END [C420] 
145 POKE adr ‚aradr=adr+i [BS1C) 
105 Ban ar DR ae ne Ten rear resss (*'7C9 | Listing 2. Der DATA-Lader enthält den Maschinencode 
& CAABAI für die Befehlserweiterung zum Envelope Composer 
LOW ° Arab a [51 DA] 138 DATA A1i1@,3SF,CB,11,10,F6,3A4,65,A1,2953 L[SAsC]I 
ı1m1 ENVELOPE.HRD - DATA-Lader von CPC #* L[S58B8] 139 DATA A118,A1,4F,CD,37,A1,3A,4E,A1,5CAD LA9FO) 
12 7 aan LASDE TI 148 DATA A128,A7,CC,37,A1,C1,23,10,DD,4A09 L[4E96] 
105 CDEB6I 141 DATA A128,E1,C1,7C,E6,F8,4F,23,7C,47E6 (&BEB] 
104 DATA AQBB,01,89,A0,21,17,AQ,C3,D1,17BF C913SC] 142 DATA A130,E6,07,B1,67,10,AB,C9,79,6157 [8264E] 
105 DATA ABBB,BC, BE AB,CH, ib, AB,48,41,4739 (4184) | 145 DATA A1S8,CD,2B,BD,DB,C5,ES,3E,42,73E2 [5512] 
’D9} ‚aa ‚20, 3574 144 DATA A1LA@,CDJIE,BB,E SCH ‚28, ’ }7FD5 ECFSE] 
2 ‚BE7O 145 DATA A148,7B,6E,A1,C7,00,00,00,00,3EB@O L3954] 
145 DATA A150,00,00,00,00,08,00,00,00,80080 (SC5@] 
147 DATA A158,40,20,10,08,04,02,01,88,2A22 LSABCI 
148 DATA A160,44,22,11,AA,55,00,00,00,20AB LBCE@I 
11 149 DATA A148,098,90, 00,00,00,00,00,00@ B548] 
112 5 E,A ‚A1,B Aa? 150 DATA A170,84,1B,4C,40,01,84,1B,4B,8925 L[BEQA] 
113 DATA AQ48,CE,00,87, 32 66, A1,BE,@D,7565 L[5A641 151 DATA A178,40,01,03,1B,41,07,03,1B,2399 L4CE41 
114 DATA AQS5Q,CD,37,A1,BE,@A,CD,S7,A1,7C2B [2BD8I 152 DATA A199,41,00,20,00,00,00,00,00,238@0 Li17Al 
115 DATA AQS8, 3E,@2,CD,AD,AQ,SE,7F,32,09C4 [5108] *ENDE* 7806] 
116 DATA AQ60,65,A1,24,4C,A1,7C,F6,C0,1E94 CBOB4) adr=&AB@B: zei 184: MEMORY adr-1 [70241 
117 DATA AQ68,67,06,10,05,20,05,3E,78,3BE® LDF22) READ ds: IF d#: ENDE#"THEN 166 LFB9AI 
118 DATA A@79,32,65,A1,04,C5,CD,C2,A@,1@18 [2DSA1 [5316] 
119 DATA A@78,3A,4E,Al,FE,02,CC,C2,08,1744 L[SED2] i=1 TO ESAsCI 
128 DATA ABBR,11, ‚ao, ‚as, ’A7, JED ‚52,7C,F6,85DE LAC9B] 158 READ as: azVAL("RNHas) LF64A] 
121 DATA AQBS, 3F, SC, 28, as, = B@,SF,19,172F [7D66] 159 POKE adr ‚aradr=adr+1 [1826] 
f 16@ pr=pr*2: IF pr>65535 THEN pr=pr-65535 CABF4)J 
161 pr=UNT(pr)XOR a:IF pr<@ THEN pr=pr+6553 
’ & L7EACI 
125 DATA ABAa,C1, ECH &8) SE,! 23, 21, ‚70, A1,7FBD L[SE94] 162 NEXT i t10821 
126 DATA AQBO, sa, }23)04,28,09, EM ©,F8, j2F@4 T2B44] 163 READ pr$:pr2=VAL("&"+pr$)zIF pr2<@ THEN 
127 DATA AQBB, 46,23,4E,23,CD,37,A1,18,27D6 LAB7ZEI pr2=pr2+65536 [94BE] 
128 DATA ABCH, MICH CH „ES, s2r 78,Al, ‚3A, ae, S14E [6CC41 164 IF pr<>pr2 THEN FRINT"Pruefsummenfehler 
129 DATA AUCB,A1,FE,02,28,05,4E,23,86,4098 [EDBS1 in Zeile";zeile:STOP LSE16] 
138 DATA ABDB,28,87,CD,BS,AQ,E1,3A,4E,1&DE [97DA1 165 zeile=zeile+1:60T0 155 1226A1 
131 DATA A@DE,A1,FE,02,06,28,28,82,85,4EC2 L[CA721 155 SAVE"ENVELOPE.HRD" ‚„b,&AB9B,%182:END 163921 
132 DATA ABEQ,59,C5,E5,11,67,A1,3E,87,8537 IFCS5@] 
133 DATA AQEB,ED,AB,2B,01,20,08,89,30,5BF2 [827AJ Be» E NER ErL; 
5 = Br + a er Listing 3. Die Hardcopyroutine läßt sich an fast alle 
136 DATA A1B@2,A1,3A,66,A1,47,C5,11,67,5989 [12621 Drucker anpassen oder gegen eigene Unterprogramme 
137 DATA A1B8,A1,06,07,1A,13,A6,FE,@1,53BD [25821 austauschen 


Lustiges Boxenbasteln 
per Computer 


Das Selberbauen von Lautsprecherboxen für die 
heimische Stereoanlage erspart eine Menge 
Geld. Doch das Berechnen der Bauteiledaten für 
die elektrische Frequenzweiche sowie das Ermit- 
teln des Boxenvolumens und der äußeren 
Abmessungen ist nicht jedermanns Sache. 


ie glauben gar nicht, was Ihr Computer alles kann. 
Mit dem ausgetüftelten Programm »Boxenkit« ist er 
sogar in der Lage, Ihnen sämtliche elektrische und 
Physikalische Daten für den Selbstbau von Lautsprecher- 
boxen zu berechnen und den Schaltplan auszugeben. 
Zudem können Sie die Werte für eine Lautsprecherbox 
beliebig oft mit wechselnden Parametern berechnen - bis 
Sie Ihre Traumbox gefunden haben. Im folgenden werden 
wir Ihnen exemplarisch einen kompletten Arbeitsgang mit 
Boxenkit vorstellen. 
Zu Beginn des Programms erscheint das Hauptmenü, 
das folgende acht Punkte zeigt: 
- Daten der Frequenzweiche berechnen 
- Gehäusemaße berechnen 
- Schaltplan anzeigen 
- Daten speichern 


- Daten lesen 

- Daten drucken 

- Programm erläutern 
- Programm beenden 


Wenn Sie schon ein passendes Lautsprecherset besit- 
zen, wählen Sie den ersten Punkt des Menüs an. 

Unter der Kopfzeile des Menüpunktes »Frequenzwei- 
chen« erscheint das entsprechende Arbeitsblatt. Sie kön- 
nen zwischen einer Zweiweg- und einer Dreiwegweiche 
wählen. Haben Sie sich entschieden, so müssen Sie die 
Impedanzen (Scheinwiderstände) der einzelnen Lautspre- 
cher sowie die Übergangsfrequenzen zwischen den Fre- 
quenzbereichen der Lautsprecher eingeben. 

Danach berechnet der Computer in Sekundenschnelle 
die Daten für eine Frequenzweiche mit einer Flankensteil- 
heit von 6 und 12 Dezibel pro Oktave (»6db/Okt.« bezie- 
hungsweise »12db/Okt.«). Die Werte werden in Form von 
zwei Tabellen ausgegeben. 

Am unteren rechten Bildschirmrand erfolgt nun die 
Abfrage, ob die Werte mit anderen Daten erneut berechnet 
werden sollen, oder ob das Hauptmenü gewünscht ist. 

Für die Berechnung des Boxenvolumens und der Gehäu- 
semaße wählen Sie den zweiten Menüpunkt an. Wenn Sie 
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Bild 1. Der Schaltplan der Zweiweg-Frequenzweiche 
mit 6 Dezibel Flankensteilheit ... 


Bild 3. Ebenso der Schaltplan der Dreiweg-Frequenzweiche 
für eine Flankensteilheit von 6 Dezibel ... 


Zueiweg-Heiche (12dh/0kt.) 


1 hoch 


Dreiueg-Heiche (1ädh/ökt.) 
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Bild 2. ... und mit 12 Dezibel Flankensteilheit 


sich in diesem Metier nicht auskennen, sollten Sie sich 
jedoch zuvor mit dem vorletzten Menüpunkt Klarheit dar- 
über verschaffen, worum es beim Berechnen der Boxen- 
ausmaße geht. 

Innerhalb gewisser Grenzen kann der Anwender nun 
»seine« Lautsprecherbox entwerfen. Die Grundform der 
Box ist jedoch als Quader festgelegt, und Fehleingaben 
sowie Überschreitungen von Grenzwerten fängt Boxenkit 
ab. 

Hat man sich dann für ein bestimmtes Verhältnis zwi- 
schen Höhe und Tiefe oder Höhe und Breite der Box ent- 
schieden, so berechnet der Computer den dritten Wert und 
gibt gleich noch die Zuschnittmaße für die benötigten Holz- 
platten aus, wobei die Materialstärke selbstverständlich 
berücksichtigt wird. 

Darauf ist der dritte Menüpunkt an der Reihe, denn 
schließlich möchte man auch den Schaltplan für die Fre- 
quenzweiche sehen. Aus Platzgründen haben wir die Bild- 
dateien der vier Schaltpläne, aus denen der Anwender aus- 
wählen kann und die vom Programm automatisch mit 
einem Bestückungsplan versehen werden, nicht abge- 
druckt. Der ambitionierte Leser kann die Schaltbilder 
jedoch aus Bild 1 bis 4 entnehmen und diese als Grafiken 
selbst programmieren oder aber die Leserservice-Diskette 
erwerben, auf der die vier Schaltpläne als für Boxenkit 
erkennbare Bilddateien (»2WEG6DB.GRF«, »2WEG12DB. 


Bild 4. ... und 12 Dezibel (diesmal mit Bestückungsplan) 


GRF«, »3WEG6DB.GRF« und »3WEG12DB.GRF«) gespei- 
chert sind. 

Von den Schaltplänen lassen sich auch Hardcopies auf 
Druckern, die mit dem Epson-Steuerzeichensatz arbeiten, 
anfertigen. 

Sämtliche Daten können in den zwei folgenden Menü- 
punkten auf Datenträger geschrieben und von Datenträger 
gelesen werden. Die Dateien werden dabei jeweils mit der 
Extension »box« versehen. 

Zu guter Letzt kann man sich die Boxen-Daten über den 
Menüpunkt »Daten drucken« fein säuberlich auf einen 
Bogen im DIN-A4-Format ausgeben lassen. 

Mit diesem Einkaufszettel gehen Sie dann zum Elektro- 
nikshop und zum Schreiner, um das Material für Ihre 
Box(en) zu besorgen. Nichts klingt so gut wie die ersten 
Töne aus einer selbstgebauten Lautsprecherbox! 

(Thomas H. Richter/ma) 


Steckbrief 
Programm: Boxenkit 
Computer: CPC 464/664/6128 
Checksummer:| Explora 
Datenträger: Kassette, Diskette 


10 RR L@B68] 
208 '** Boxenberechnung V.4.3  ** EDICEI 
BE ee LSF6CI 
48 '** fuer CPC 464 En L1ES21 
sB '** fuer CPC 664 ** [72381 
80 '** #uer CFC 6128 x LEASCI 
7 RR LAr74] 
80 '** von ** [52541 
98 '** Thomas H. Richter “* CaS16] 
100 RR [2588] 
11B '** (0) 1986 by GALACO %** [B9IEI 
120. Se LADSCI 
130 'x* Erster Teil ”* C7pacı 
149. RR 14770] 
150 '** Installationen & .. C87AR] 
168 '*%* Hauptmenues; x [3B7A1 
178 '** Boxengehaeuse geschl. #** 124501 
180 RR [53781 
198 CLEAR: IF HIMEM>&OFFF THEN MEMORY &FF 
FF:GOSUB 3958 LAFSAI 
208 MODE 1:EORDER 27: INK 9,27: INK 1,1:au 
sgabe=d: ffff=@ L7C641 
zıa ##=8 [7708] 


220 PAPER @:PEN 1 12704] 
238 GOSUB 5648 C2F481 
24@ LOCATE 9,6: PRINT CHR$ (24) ;STRING$ (22 
„" ")SCHRS(24) tB16C1 
25@ LOCATE 9,7:PRINT CHR$(24)5" HIFI-BOX 
ENBERECHNUNG "3 CHR# (24) t8cacı 
24@ LOCATE 9,8: PRINT CHR$ (24) ;STRING$ (22 
," ")SCHR$(24) 105743 
27@ LOCATE 10,11:PRINT"Frequenzweichen. . 
Dan [4641 
18,12:PRINT"Geschl. Gehasuse. 
CF1281 
10,13: FRINT"Schaltplan zeigen 
LE7941 
10,14:PRINT"Daten speichern... 
[8D821 
10,15:PRINT"Daten einlesen... 
tE9BS1 
10,16: FRINT"Daten ausdrucken. 
LBEBEI 
19,18: PRINT"Erklaerungen. .... 
L1SE6] 


10,19: PRINT"Frogramm beenden. 


768 


770 


En 

LOCATE 10,23:PRINT"Ihre Wahl bitte.. 

wahl $=UPPER$ CINKEY#) IF wahls="" THE 
THEN GOSUB 3618:G60T0 28 
THEN GOSUB 4549:60T0 28 
THEN ww(2)=1:G0T0 1188 
THEN 2648 
THEN 460 

IF wahls="?" THEN GOSUB 4220:60T0 28 

a 

IF wahl#="S" THEN GOSUB 5810:60T0 20 

[) 

IF wahl$="6" THEN 4110:60T0 200 

s0TO 2am 

wwedei 

MODE 2:G0SUB 566@: BORDER 27: INK: 0,27 

zINK 1,1 

LOCATE’45,4: PRINT CHR$ (24); "&13>"HCH 

R& (24) 

LOCATE 45,5: PRINT CHRF(24)5" GEHAEUS 

E... "ICHR# (24) 

LOCATE 45,6: PRINT CHRS (24); "<132"5CH 

RE (24) 

LOCATE 1,5: INPUT"VCas) - Wert<3d: ", 

vass 

IF LEN(vas$) >3 OR vas$=""THEN LOCATE 


1,5:PRINT STRINGS (SQ+LEN (vas#)," ") 
:G0T0 Sı1a 

F ASC(LEFT& (vas$,1))<48 OR ASC(LEFT 
$(vas#,1))>57 THEN LOCATE 1,5:PRINT 
STRING$ (3Q+LEN (vas$) ," ")5:60T0 51® 
IF vas$="B" THEN LOCATE 1,5:PRINT ST 
RINGE (38," ");:G0T0 51@ 

IF LEN(vas$) >=4 THEN LOCATE 1,5: 
T STRING$ (SO+LEN (vas$) ," " 


IF RIGHT£(vas$,1)="." THEN LOCATE 1, 


REIN 
:60T0 518 


S:PRINT STRING$ (SQ+LEN (vass) ," ")5:6 
0T0 Sı@ 

vas=VAL (vas$):IF vas<1® THEN LOCATE 
1,5: PRINT_STRINGS(36," "):G0T0 512 
LOCATE 1,7: INPUT"Ots) - Wert£s>: ", 
gts# 

IF LEN(gts#) >4 OR gtss=""THEN LOCATE 


1,7:FRINT STRING$(SO+LEN (gts#) ," ”) 
::60T0 588 

IF ASC(LEFT$(gts$,1))<48 OR ASCILEFT 
$(gts#,1))>57 THEN LOCATE 1,7:PRINT 
STRINGE(S@+LEN (qts$) ,“ ")5:60T0 588 
IF LEN(gts$)=3 THEN x$=LEFT$(gts$,2) 
8 $=RIGHTE(x$, 1) IF x$<>"." THEN LOC 
ATE 1,7:PRINT STRINGS(S@+LEN (gts#) ," 

"):G0TO S8@ 

IF gtss="@" THEN LOCATE 1,7:PRINT ST 
RING$ (3@," ")5:G0TO 588 

IF LEN(gts$) >=5 THEN LOCATE 1,7:PRIN 
T STRING$ (SO+HLEN (gts$)," "):B0TO 580 


IF RIGHT$(gts$,1)="." THEN LOCATI 
7: PRINT STRINGF (SO+LEN(qts#)," ")r 
0To 53a 

ats=VAL (qts#) IF gts<Q.@1 OR ats>® 

9 THEN LOCATE 1,7: PRINT STRINGS (35, ' 
"):60T0 588 

LOCATE 1,9: PRINT"@(tg) - Wert<3>: 

707" 

gtg=0.707 

vga= (atg"2/gts*2)-1 
vabrvan/vga 

vg=vgbr@. 92 
LeCATe 1,1142 PRINT CHR# (24) } "Volumen 

bedaempft : "HROUND(vg,2)5" Liter 

HRE (24) 

LOCATE 1,14:PRINT"Geben Sie nun die 
jewuenschten Abm: 
T"Die Materials 
28 und 99 mm Liegen" :PRINT"Au 

messungen duerfen zwischen 15 un 

@ cm en. ":LOCATE 60,24: PRINT"bit 

te <Taste>...":CALL #BBA6 

FOR t=14 TO 16:LOCATE 1,t:PRINT_STRI 

NGE(56," ") }LNEXTELOCATE 60,24: PRINT 
STRINGELLF," "); 

LOCATE 1,14: INPUT"Materialstaerke in 
mm2>: ",‚mast# 

IF LEN(mast$)>4 OR mast$=""THEN LOCA 

TE 1,14:PRINT STRING$ (S0+LEN (nast#), 
" "356070 748 
1F ASC(LEFT$ (mast$,1))<48 OR ASC(LEF 

T&(mast#,1))>87 THEN LOCATE 1,14: PRI 
NT_STRINGS (S0+LEN (mast#) „" 
748 
IF LEN(mast$)=3 THEN x#=LEFT$ (mast$, 

Z)ıx$=RIGHT$(x$,1): IF x$<>"." THENL 
OCATE 1,14: PRINT STRING$ (SO+LEN (mast 

$)," ")IGOTO 748 


& 


T218E] 
195561 
tsFsaı 
t3AD&J 
[S@DCI 
{F93@0] 
LEBSEI 
EFBEO] 
L9FE2I 
LC2CCI 
19C90] 
CCD4BJ 
[66383 
(2521 
tDsıcı 
LEB@21 
1B512) 


135183 
LAEA21 


LF3D81 
£71D41 


L794E] 


LFEB&I 
[93041 
LAB621 


CR718] 
137341 
cac781 
[3E081 
182981 
L1S54E] 
L2E&CI 
L76EE] 
[E9841 
CBAB6] 


LA7EA] 
[44061 


t7BEC1 


LFSE4] 


[89881 
L5D22) 


LIFFAI 


CBBCEI 


Laaacı 


788 
792 


8a8 


sıo 


820 
830 


840 


858 


868 


870 


838 


890 
a8 


18 


928 


938 


942 


958 


IF mast$: THEN LOCATE 1,14:PRINT 
STRING$ (38," ");:G0TO 748 

IF LEN(mast$#)>=5 THEN LICATE 1,14:PR 
INT STRING$ (S@+LEN (mast#)," "):G0TO 
740 

IF RIGHTS (mast#,1)="." THEN LOCATE 1 
14: PRINT STRING$ (SQ+LEN (mast$) ," ") 
60T0 748 

mast=VAL (mast#): IF mast=® OR mast>1Q 
@® OR mast<B THEN LOCATE 1,14:PRINT 8 
TRING$(35," "):G0T0 748 

LOCATE 1,16: INPUT"Standhoehe aussen 
in cm: ",auhos 

IF LEN(auho#) >5 OR auhos=""THEN LOCA 
TE 1,16: PRINT STRING$ (S@+LEN (auho#) , 
" ")5:G0T0 820 

IF ASC(LEFT$(auho#,1))<48 OR ASC(LEF 
T&(auho®,1)) >57 THEN LOCATE 1,16: PRI 
NT STRINGS (SQ+LEN (auhas) „" ")EEGOTO 
IF auhos="@" THEN LOCATE 1,16: PRINT 
STRING$ (30," ")5:G0T0 820 

IF LEN(auhao#) >S_THEN LOCATE 1,16: FRI 
NT STRINGS (S@+LEN (auho$) ," "):GOTO 8 
28 

IF RIGHT$(auho$,1)="." THEN LOCATE 1 
„16: PRINT STRING (3@+LEN (auhas) ," ") 
GOTO 820 

auho=VAL (auho$): IF auho=® OR auho>2@ 
® OR auho<15 THEN LOCATE 1,16: PRINT 
STRING# (35," "):GOTD 928 

LOCATE 1,18: INPUT"Tiefe oder Breite 


in cm: ",tibr$ 
IF LEN(tibr$)>S OR tibr$=""THEN LOCA 
TE 1,18:PRINT STRING$ (S@+LEN (tibr$) , 


;:60T0 898 

IF ASC(LEFT$(tibr$,1))<48_OR ASC(LEF 
T£ttibr$,1))>57 THEN LOCATE 1,18:PRI 
NT STRING$ (30+LEN (tibr$) ," ")3:G0T0 
898 

IF tibr$="@" THEN LOCATE 1,18:PRINT 
STRING$ (38," ")5:60T0 898 

IF LEN{tibr$)>5 THEN LOCATE 1,18:FRI 
NT STRINGE(SQ+LENttibr&)," "):G0T0 8 
a 

IF RIGHTS (tibr£,1) THEN LOCATE 1 
‚18: PRINT STRINGS(SG4LEN(tibr$) ," ") 
3:60T0 898 

tibr=VAL(tibr$):IF tibr=@ OR tibr >28 
@ OR tibr<1® THEN LOCATE 1,18: PRINT 
STRING$ (35," "):60T0 898 


960 mast=mast/18 
770 vg=INT (vg=1@0@) 
332 hoi=auho-mast#*2 
998 ho2=vg/hal 
1Q0@ ti1=tibr-mastx2 
121Q ti2=ho2/til 
1822 br2=ti2+2%*mast 
105@ LOCATE 1,20: PRINT CHR$(24); "Tiefe 0 
der Breite: "ROUND (br2,2)5" cm" ;CHR$ 
(24) 
1048 LOCATE 48,14:PRINT CHR$(24) ;"Zuschn 
ittmasse. CHR£ (24) 
19058 seiwi=br2: seiw2=auho-2*mast 
1060 LOCATE 40,16:PRINT"2 Stueck_" 
USING" ###.##";seiwi 
'RINT USING" ###. #4"; seiw25 : PRINT 
c 
1978 depli=tibridepl2=br2 
1080 LOCATE 40, 18:PRINT"2 Stueck "zsPRIN 
T USINGTehR ART pdepLi;:PRINT" cm 
RINT USING" #RH. HH" ;dep124 : PRINT 
1898 frpli=auho-2%mast: frpl2=tibr-2*mast 
1100 LOCATE 40,20: PRINT"2 Stueck "ztPRIN 
T USING" WÄR. MR" frpii;EFRINT" cm # 
"33 PRINT USING" AH. HH" 5 Arpl24 : PRINT 
"em 
11190 LOCATE 30,24: PRINT"Neue Berechnung 
eisr 
112@ LÜCATE 30,25:PRINT"Zum Hauptmenue<2 
1130 awa$=INKEY$: IF awas="" THEN 1130 
1140 mast=mast»10: vg=vg/ 1000 
115@ IF awas="2" THEN 200 
1160 IF awag<>"1" THEN IF awas<>"2" THEN 
LOCATE 30,25: PRINT STRINGE(30," ") 
:G0T0 1120 
117@ GOTO 470 
LEID ° aan a 
1190 '*% Zweiter Teil ** 
1200 1 RR 
1210 '** Frequenzweichen x 
1228 ° aan ae 
123@ MODE 2 
1242 GOSUB 5660 
1258 LOCATE 45,4:PRINT CHR$ (24) ;"<12>" 


LEE2@J 


189721 


CiC161 


150281 
CRDABI 


EBB6C1 


t889E1 
[SB0E1 


L&FD6I 


140061 


138461 
[28021 


£D7921 


173041 
[20241 


CASF4] 


ca2241 


185721 
LABECI 
L4EBC] 
EDBEZ] 
[7638] 
CBDS6] 
ECEEB] 
C4CE21 


E4B481 


CBA&4] 
CB9RCI 


143661 
144001 


LCD221 
[58861 


ECB421 
183681 


17042] 
EC65C1 
CF@721 
LBA4EI 


LAB1B] 
[97BA] 
LasEaı 
[2524] 
t27EC1 
Csaac] 
EB9FBI 
ESBBAJ 
C3DB@] 
LEC4EI 
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Die Ausgaben 

6/85, 7/85 und 9/85 
sind bereits vergriffen 
und nicht mehr lieferbar! 


Auch die bisher 
erschienenen Sonderhefte 


können Sie 
jetzt direkt bestellen: 


SONDERHEFT 03/85: SPIELE 

Ein Super-Nachschlagewerk für alle Spiele-Fans mit 
100 Spielen im Test und großer Marktübersicht. 
SONDERHEFT 01/85: SCHNEIDER 2 

Noch mehr Tips und Tricks für Einsteiger und Fort- 
geschrittene mit vielen interessanten Programm-Listings. 


SONDERHEFT 02/86: ATARI 1 

Besonders 800 XL- und 130 XE-Fans erwarten jede Menge 

Anwendungs- und Spi sowie Informationen. 

SONDERHEFT 03/86: 6800er 

Umfassende Informationen zur neuen Computer- 
Vergleichstabelle, die im 

informiert. 

SONDERHEFT 04/86: SCHNEIDER 3 

Eine Erweiterung für alle Schneider-Anwender, Super- 

Programm-Listings und großer EinsteigerTeil. 


SONDERHEFT 05/86: PROGRAMMIERSPRACHEN 

Fuß fassen in »Pascal«, »C« und »Forth« mit jeweils ei- 

‚nem grundlegendem Kurs und vielen Änwendungs- 

Listings. 

Umfangrei ar äsingtel viele Informationen, 7 
cher teil, viele Informationen, 

und Tricks für Anwender der 68000er Computer." 


SONDERHEFT 07/86: SCHNEIDER 4 


Mit den Schwerpunkten Joyce und CP/M plus, Rat- 
schlägen zur Vortex-Karie und vielen Tips & Tricks. 


SONDERHEFT 08: COMPUTER AlS 

Wirsenswertes fir Binteiger und gustzliche 
tionen zur ee ewaR Computerzeit. 
SONDERHEFT 09: 68000er 

Mi den Schwerpunkten Sound- und Videodigitaliie- 


Informa- 


rung und Spieleprogrammierung. 
SONDERHEFT 10/86: SCHNEIDER 5 

Der neue Schneider-PC wird vorgestellt. Wieder viele 
Hilfestellungen und Kurse. 


Allee Uber aktuelle Spieletests, Computerprogrami 

15 über sts, tet me, 
Grafik- und Musik-Software. 

SONDERHEFT 12/86: 68000er 4 

‚Ausführliche Testreihe aller Grafikprogramme für 
AtariST, Amiga und Sinclair QL sowie viele Grund- 
lageninformationen zu diesen Computern. 


13: SCHNEIDER 6 
Diskettengrundlagen-Kurs. Reiche Auswahl an Pro- 
‚grammen für CPC. Schneider CPC oder PC: Fakten 
und Vorteile. 


SONDERHEFT 14: SOFTWARE 
Der Softwareführer 1987 für Ihre optimale 
Programmauswahl. 


SONDERHEFT 15: HARDWARE-TESTHEFT 
Über hundert Geräte für optimale Hardware-Auswahl 
im Test. 


Denia Base Plus animierte Grafik. 


SONDERHEFT 17: SPIELE-TESTS 
wählte Spieleneuerscheinungen vorgestellt und 
kritisch unter die Lupe genommen. 


Tragen Sie die Nummer des gewünschten 
Sonderheftes (z.B. 08/85) auf dem Bestellab- 
schnitt der hier eingehefteten Bestell-Zahlkar- 
te ein. 


WWW.HOMECOMPUTERWORLDB.COM 


Am besten gleich 
mitbestellen: 
Die Happy-Computer- 
Sammelboxen 


Für alle Leser, die »Happy 
Computer« regelmäßig 
kaufen, sammeln oder im 
Abonnement beziehen, 
gibt es ein interessantes 
Service-Ängebot: die Hap- 
py-Computer-Sammelbox! 


Mit dieser Sammelbox 
bringen Sie nicht nur 
Ordnung in Ihre wertvol- 
len Hefte, sondem schaf- 
fen sich gleichzeitig ein 
interessantes und attrakti- 
ves Nachschlagewerk. Ein 
kompletter Jahrgang (12 
Ausgaben) paßt in eine 
der praktischen Sammel- 
boxen! 


Übrigens: Die Sammelbox 
ist nicht nur ein prakti- 
sches Aufbewahrungs- 
mittel: Sie eignet sich 
auch hervorragend als 
Geschenk für Freunde 
und Bekannte zu vielen 
Anlässen. 


1268 
1270 
1288 


1290 
1300 
1318 
1320 


1330 
1340 


1352 


13568 


1450 


1540 


1558 


1568 


157@ 


1588 


1590 
1608 


1618 
1628 
1630 
1648 
1658 


LOCATE 45,5: PRINT" WEICHEN... " 
LOCATE 45, RINT"<12>";CHR$(24) 
LOCATE 45,9: PRINT" Zweiweg- oder Dre 
iwegweiche ?£2>(2/3>" 

as=INKEY£ 

IF as< OR _a$>"3" THEN 1298 

IF as= 

E #ff=2 

LOCATE 45,9: PRINT STRINGS(36," ")zL 
OCATE 45,9:PRINT"ZWEIWEGWE 


INEHHRENER 
LOCATE 1,5: INPUT" Impedanz des Tieft 
geners :"ırt& 

IF_LEN(rt$) >3 OR rt$=""THEN LOCATE 
1,5: PRINT STRING$ (SO+LEN (rt#) ," ")4 
:G0T0 1338 

IF ASC(LEFT$(rt$,1))<48 OR ASCLLEFT 
&(rt#,1))>57 THEN LOCATE 1,5: PRINT 
STRING (SO+LEN(rt#)," ")5:60T0 1330 


IF LENtrt$#)=3 THEN x#=LEFT$(rt#,2): 
%$=RIGHT£ (x$,1) IF x%<>"." THEN LOC 
ATE 1,5:PRINT STRING$ (SOHLEN(rt$) „" 
"):G0T0 1330 

IF rt$="@" THEN LOCATE 1,5:PRINT ST 
RINGE (38," ")3:G0T0 1338 

IF LEN(rt#)>=4 THEN LOCATE 1,5:PRIN 
7 STRINGE(SO+LEN(rt#) ," 6070 155 
IF RIGHT£(rt$,1)="." THEN LOCATE 1, 
S:PRINT STRINGF(S@+LEN(rt$)," ")4:6 
070 1330 

rt=VAL(rt#) 

IF rt<2 OR rt>32_THEN LOCATE 1,5:PR 
INT STRINGF(SO+LEN(rt#)," ")5:60T0 
1330 

LOCATE 1,7: INPUT" Impedanz des Hocht 
oeners :",‚rh& 

IF_LEN(rh$) >53 OR rh$=""THEN LOCATE 
1,7:PRINT STRING£(SO+LEN{rh£) ," "); 
:G0TO 1420 

IF ASC(LEFT$(Ch$,1))<48 OR ASC(LEFT 
&(rh#,1))>57 THEN LOCATE 1,7:PRINT 
STRINGS (SO+LEN(rh#) ," ");:G0T0 1420 


IF LEN(rh$)=3 THEN x$=LEFTE(rh$,2): 
KS=RIGHTE (XS, 1) IF x#<>"." THEN LOC 
ATE 1,7:PRINT STRINGS (SO+HLEN (rh#) ," 
"):60T0 1420 

IF rh$="@" THEN LOCATE 1,7:PRINT ST 


RING$(38," ");:G0T0 142@ 
IF LEN(rh$) >=4 THEN LOCATE 1,7:PRIN 
S STRING$ (SO+LEN(rh$) ," ")ıG0TO 142 


IF RIGHT$(rh$,1)="." THEN LOCATE 1, 
7:PRINT STRING$ (30+LEN{rh#)," ")5:6 
0TO 1428 
rh=VAL (irh$) 
IF rh“2 OR rh>32 THEN LOCATE 1,7:PR 
INT STRING$(38," ");5:G0T0 1428 
LOCATE 1,9: INPUT"Uebernahmefrequenz 
in Hz #i1#:IF LEN(#1$)>5 THEN LO 
CATE 1 PRINT STRING$ (IB+LEN(#1$), 
* ")ıGÖTQ 1510 
IF #1 "" THEN 1568 ELSE x$=f1$:y$= 
RIGHT£(#18,4)s IF ASC(LEFTS(K$,1))< 
8 OR ASC(LEFT$S(x$#,1))>57 THEN LOCAT 
E 1,9:PRINT STRING$(SB+LEN(f18)," " 
):GOTO 1518 
»s=LEFTE(y$,1)ı y$=RIGHT$ (#18, 5): If 
ASC (LEFTE(K$,1))<AB OR_ASC(LEFTS(x$ 
1)) >57 _THEN'LOCATE 1,9: PRINT STRIN 
G$ (3O+LENF1E) ," "):60T0 1518 
x$=LEFT$(y$, 1) y#=RIGHTE (18, DI IF 
AST (LEFTE(K$,1))<48 OR _ASC(LEFTS(x# 
„12)>57 THEN LOCATE 1,9:PRINT STRIN 
G$(3B+LEN(#f1$)," ")sGOTO 1518 
xs=LEFTS(y$,1) re y$=RIGHT$(#1$,1)ı IF 
ASC(LEFTS(x$,1))<48 OR ASC(LEFTF(RS 
1))>57 THEN LOCATE 1,9:PRINT STRIN 
G$ (30+LEN(F1$)," ")iGOTO 1518 
xs=LEFT$(y$ 1) IF ASCCK$)<AB OR ASC 
(x%) >57 THEN LOCATE 1,9:PRINT STRIN 
6$(30+LEN(f1$)," "):GOTO 1518 
IF RIGHT$ (#14, DD= ." THEN LOCATE 1 
9:PRINT STRING$ (3SO+LEN (#18) ," "):60 
TO 1518 
IF fi$="" OR VAL(f1$)=B THEN LOCATE 
1,9:PRINT STRING$(SB+LEN(Fi18)," ") 
:G0TO 1510 
+1=VAL (+18) 
IF f1<5@ OR #1>58@8 THEN LOCATE 1,7 
PRINT STRING$ (SB+LEN(f1$)," "):GOT 
0 1518 
PRINT 
REM 2-weg 6 dB/Okt. 
1t25db=18BB8*rt/ (2#3.1415927##1) 
ch24db=1009900/ (2#3.1415927#f1#rh) 
LOCATE 1,13:PRINT"Zweiwegweiche mit 
&dB/Okt" 


LA9CE] 
[ES161 


CSAFC) 
TEDAA] 
[E648] 
LESD&1 


CABCBI 
108563 


LO3QE1 


[1B443 


CAF82] 


C1AD2] 


CE884] 


C483C1 
[B88C1 


CEB9B1 
13936] 


L62CA1 


C1B08] 


C6DSE] 


GEBE] 


[24581 


19218] 


LEBEEI 
C@DA21 


1D746] 


[817C1 


t421C] 


L9B1C1 


CD6iC] 


[C8ECI 


LD7921 


tE912] 
[38641 


[96781 
[CaEA] 
[B66C1 
L78E2] 
13102] 


151541 


1568 
1678 
1688 
1698 


1708 
1718 


1728 
1738 
1740 


1758 
1768 


1770 
1788 


1798 
1800 


1818 


1820 


185@ 


1848 


1858 


1868 


1878 


1888 
1898 


1908 


1918 


1928 


1938 


1948 


1958 


1768 


1978 
1988 


1990 


2a00 


2218 


2020 


2038 


2049 
2858 


LOCATE 1,15:PRINT"Lt = PRINT USI 
NG" He. #4"; 16260 PRINT" mH" 

LOCATE 1,17:PRINT"Ch PRINT USI 
NG"####. ##";ch26db; :PRINT " "+CHRS( 


183) +"F" 

1t=10@B«rtx1.4142/ (2#3.1415927%*f1) 
ct=1000@B8/ (2x3. 1415927«F1xrt#1.414 
2) 

Ih=1@@@*rh*1.4142/ (2#3.1415927%#1) 
ch=1@2@090/ (2x3. 1415927*#1*rh*1.414 
2) 

LOCATE 48,13: PRINT"Zweiwegweiche mi 
t 12dB/Okt." 

LOCATE 48,15: PRINT"Lt = ";:PRINT US 


ING" #H##.##";1t;: PRINT" mH" 

LOCATE 48,17: PRINT"Ct "3:PRINT US 
ING" ###n.d4#"5ct; : PRINT" "4CHR$ (183) 
sup" 

LOCATE 48,1 RINT"Lh = "z:PRINT US 
ING" AH." Ih5 PRINT" mH" 


LOCATE 48,21: PRINT"Ch = " 
TNOSSRESEERSTEHFLERINTE $ 
+upn 

60T0 2528 

LOCATE 45,9: PRINT STRING$(36," ")sL 
OCATE 45,9: PRINT''DREIWEGMWE 
TIESHIETENS 
LOCATE : INPUT" Impedanz des Tieft 
oeners<S?: "‚rt# 

IF LEN(rt#) >3 OR rt$=""THEN LOCATE 
1,5:PRINT STRING$ (SI+LEN(rt#) ," ")5 
:60T0 1798 

IF ASC(LEFT£(rt$,1))<48 OR ASC(LEFT 
#(rt$,1))>57_THEN LOCATE 1,5:PRINT 
STRINGS (SI+LEN(rt$) ," ")5:60T0 1790 


IF LEN(rt$)=3 THEN x$=Li sirt$,2): 
“S=RIGHTS(x$,1)ı IF x$<>"." THEN LOC 
ATE 1,5:PRINT STRING (S14LEN(rt#) 
“):G0T0 1798 

IF rt$="@" THEN LOCATE 1,5:PRINT ST 
RING (33," ")5:G0T0 1790 

IF LEN(r£$)>=4 THEN LOCATE 1,5:PRIN 
T STRINGS(S1+LEN (rt$) ," "):60T0 179 


o 

IF RIGHT$(rt$,1)="." THEN LOCATE 1 
S:PRINT STRING$ (S14LEN(rt$) ," "518 
0TO 1798 

rt=VAL (rt$) 

IF rt<2 OR rt>32 THEN LOCATE 1,5:PR 
INT STRING$ (38, ")5:G60T0 1798 
LOCATE : INPUT" Impedanz des Mitte 


1komner usaH: "rm$ 

IF LEN(rm$) >3 ÖR rm$=""THEN LOCATE 
1,6:PRINT STRING$(S1+LEN{rm$) ," "): 
:60TD 1888 

IF ASC(LEFT$(rm$,1))<48 OR ASCI(LEFT 
Strm$,1))>57 THEN LOCATE 1,6:PRINT 
STRING# (SI+LEN(rm$),“ ")5:60T0 1888 


IF LENtrm$)=3 THEN x$=LEFT$(rm$, 2): 
x$=RIGHT$(x$,1): IF x$<>"." THEN LOC 
ATE 1,6:PRINT STRINGS (S1HLEN (rm#) ,„" 
"):60T0 1898 

IF rm#="@" THEN LOCATE 1,6:PRINT ST 
RING$(33," ")3:G0T0 1888 

IF LEN(rm$) >=4 THEN LOCATE 1,6:PRIN 
T STRING$(SI1+LEN(rm$)," "):G0TO 188 


8 
." THEN LOCATE Ir 


PRINT US 
CHR$ (183) 


IF RIGHTS (rm$,1) 
&:PRINT STRINGS (S1+LEN(rm$) ," ")53 
OTO 1888 

rm=VAL (rm$) 

IF rm<2 OR rm>32 THEN LOCATE 1,6:PR 
INT STRING$(38," “);:G0TO 1888 
LOCATE 1,7: INPÜT"Impedanz des Hocht 
oeners<5>: "‚rh$:PRINT 
IF_LEN{rh#)>3 OR rh$=""THEN LOCATE 
1,7:PRINT STRING$ (S1+LEN(rh$) ," ")5 
:6070 1978 

IF ASC(LEFT$(rh$,1))<48 OR ASC(LEFT 
*irh#,1))>57 THEN LOCATE 1,7: PRINT 
STRING$(SI+LEN(rh#) ," ")5:180T0 1970 


IF LENtrh$)=3 THEN x$=LEFT$trh$,2)ı 
x$=RIGHTS(x$,1): IF n#<> THEN LOC 
ATE 1,7:PRINT STRING$(S1+LEN(rh$) ," 
"):60T0 1970 

IF rh$="8" THEN LOCATE 1,7:PRINT ST 
RING$ (33," ")5:6G0T0 1978 

IF LENtrh$)>=4 THEN LOCATE 1,7:PRIN 
T STRING$(31+LEN(rh$) ," "):G0T0 197 
eo 

IF RIGHT$(rh$,1)="." THEN LOCATE 1, 
7:PRINT STRING$(31+LEN{rh$) ," ")5:6 

0TO 1978 

ch=VAL (rh$) 

IF rh<2 OR rh>32 THEN LOCATE_ 1,7:PR 
INT STRING$ (38, )5:60T0 1978 

LOCATE 1,9: INPUT"1. Uebernahmefrequ 


— 


C4D401 
[49641 
117381 


LABaB] 
LEFFA] 


CCA@A1 
CSF&CI 
[80461 


EFDSA1 
cB@22] 


18224] 
157621 


LOCAs1 
LtADAAI 


CSF261 
[8250] 
EFC9A] 
LAZEEI 
L269C1 
tA@S4] 
CCEAQI 


taca6ı 
LEFECI 


(88181 
[BA34] 
[81721 
L9DE2] 
148821 
EDCSAI 
C1884] 


ESCECI 
[5818] 


tDir; 


C182A1 


CD6441 
[55081 


L175E1 


[38161 
C6B5E] 


[6408] 


100 
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Sn = 
— 
enz in Hz<2>: ",fi$ C6B521 "Er 

2070 IF #1$="" THEN 2860 ELSE x$=fis:ys= 2488 LOCATE 48, PRINT US 
RIGHTS (#1$,4): IF ASCILEFTS(x$,1))<C4 ING“ ###.#% 

8 OR ASC(LEFT$(x#,1))>57 THEN LOCAT 2498 LOCATE 48, 3:PRINT US 
E 1,9:PRINT STRING$(Z1+LEN(f1$)," " ING" ###.## "+CHR$ (183) + 
):G0TD 2068 TEEFAI SE 

209® »$=LEFT$ty$,1):y$=RIGHTECF1S, SI IF 25@8 LOCATE 48,21:PRINT"Lh = "3:PRINT US 
ASCILEFT$(x$,1))<48 OR ASC(LEFTS(K$ ING"###.##"; Ih; : PRINT" mH 
„13)>57 THEN LOCATE 1,9:PRINT STRIN 2518 LOCATE 48,22:PRINT"Ch = ";:PRINT US 
BE (SI4LEN(#18)," "):G0T0 2068 199221 ING"###.##";ch; : PRINT" "+CHRE(1B3)+ 

2090 x$=LEFT$(y$,1) 1 y$=RIGHTS 18,2): IF "Fr 
ASC(LEFT$(x#,1))<A8 OR ASCILEFTE (SS 252@ LOCATE 48,24: PRINT"Neue Berechnung 
71))>57 THEN LOCATE 1,9: PRINT STRIN <1>" 

BE(SI+LENCF1S)," "):GOTO 2860 tar221 | 2538 LOCATE 68,25:PRINT"Zum Hauptmenue<2 

2100 x$=LEFT$(y$,1)y$=RIGHTSCH1S, 1): IF 2<2 
ASCLEFTSCK$,1))CAB OR ASCLLEFTEIKE 2548 anb$=INKEY$:IF aub$="" THEN 2548 
,1))>57 THEN LOCATE 1,9:PRINT STRIN 255@ IF awb$="2" THEN 288 
GE (S1+LEN(f1#)," "):G0TO 2868 TABıa] 2568 IF awb$<>"1" THEN IF awb$<>"2" THEN 

211@ IF LEN(#1$) >=4'THEN x$=LEFT$(y$,1)2 LOCATE 48,25: PRINT STRINGS(2@," ") 
IF ASC(x$)<A8_OR ASC(x$)>57 THEN LO :60T0 2538 
CATE 1,9:PRINT STRING$(S1+LEN(#1$), 2570 6010 1238 
" "):60T0 2868 1235081 | 2582 enn 

2120 IF fi$="" OR VAL(F1$)=Q THEN LOCATE 2590 

1,9:PRINT STRING$ (S1+LEN(#1$)," ") 2600 "== Dritter Teil ** 
6070 2960 183841 | 2610 nn 

2139 F1=VAL(#1$) 148521 | 2620 x Daten drucken x 

2140 IF f1<57 OR #1>50@@ THEN LOCATE 1,9 2EI@ "HunnnunEnnunnenrnernreene 
: PRINT STRING$ (S1+LEN(f1$) ," "):60T 2648 MODE 2:IF ausgabe=1 THEN WINDOW#I1,1 
0 2060 LFi1BA1 ‚8@,5,24 ELSE MODE 1:605UB 5640 

2150 265@ IF ausgabe=1 THEN file=1:50T0 2788 

nn [BBE&I ELSE file=8 

266@ LOCATE 5,1@:PRINT"Drucker vorbereit 
RIGHTS (#2$, F ASC(LEFTS (n$,1))<4 en..." 
8 OR ASCCLEFTE(x$,1))>57 THEN LOCAT 2678 PRINT#file,CHRS(15) ;CHR$ (27) CHR$ (51 
E 1,1@:PRINT STRING$ (S1+LEN(#2$) „" ICHR$ (30) ; 
"):G0T0 2158 L9FDZ2I | 2688 FOR u=i1 TO 2008: NEXT:LOCATE 5,10: PR 

2170 x$=LEFT£ (y$,1 =RIGHTS (426,3): IF INT STRING$(2@ ) 
ASC(LEFT$(x$,1))<A8 OR ASCLLEFTE(x$ 269@ IF ####=1 THEN 2728 
‚1))357 THEN LOCATE 1,10: PRINT STRI 27@@ LOCATE S,1@:PRINT"Bitte Namen einge 
NGS(SI4LEN(F28) ," "):60T0 2158 L9E761 ben..." 

2180 x$=LEFT$(y$,1)y$=RIGHTE(#28,2) : IF 271@ LOCATE 5,14: INPUT names 
ASC(LEFT$(x$,1))<AB OR ASC(LEFTS(KE 2728 rand=INT { (48-LEN (name$) ) /2) :PRINT#f 
‚1))557 THEN LOCATE 1,1B: PRINT STRI ile,TAB(rand) 5 :PRINT#file,CHR$(1A)C 
NG$ (S1+LEN (#28) ," "):G0T0 2150 148761 HRS [27) CHR$ (45) CHR& (1) names; CHR$ (28 

2190 x$=LEFT$(y$,1)ıy$=RIGHTE (#28, 1): IF I ;CHR$(1@ 

ASC(LEFTS(x$,1))<AB OR ASCILEFTEIRE 273@ IF ##ff=1 THEN 2778 
‚139357 THEN LOCATE 1,1@:PRINT STRI 2748 FOR u=1® TO 15:LOCATE 1,u:PRINT STR 
NG$ (S1+LEN (#24) ," "):GOTO 2158 LE276I ING$(35," "):NEXT:LOCATE 5,24: PRINT 

2208 IF LEN(#2$) >=4 THEN x$=LEFT$(y$,1): "Nicht mehr als 25 Zeichen "3LOC 
IF ASC(x$)<CAB OR ASC(x$)>57 THEN LO ATE 1,5: INPUT"Bezeichnung Tieftoene 
CATE 1,10: PRINT STRING$(S14LEN(#2$) r<2>: "tiert 

Be TO 2158 [31A41 | 2758 IF f#+=$ THEN LOCATE 1,7: INPUT"Beze 

221@ Ir +2$="" OR VAL(#2$)=@ THEN LOCATE ichnung Mitteltoener: "mittels 
1,1B:PRINT STRING$ (S14LEN(#28) ," " 276@ LOCATE 1,9: INPUT"Bezeichnung Hochto 
):80T0 2158 135543 ener<2>:" " ‚hoch 

222@ f2=VAL (2%) (D656] | 277@ FOR u=i TO’2:PRINT#file,CHR$(1Q) :NE 

225@ IF #2<15® OR #2>2@Q@® THEN LOCATE 1 xT 
„10: PRINT STRINGS(S1+LEN(#28) ,” "): 2788 IF file=1 THEN MODE 2:WINDOW#1,1,8@ 
&0TO 2150 LEFBEI ‚5,24: GOSUB 5668 

224® IF #1>+2 THEN a=fi:f1=f2:f2=a [9@7C] | 2798 IF’mwi1)=® THEN IF ww(2)=1 THEN 386 

2250 1t36db=1@@G#rt/ (2*3.1415927=#1) [25621 [) 

2260 1mS6db=10@Bkrm/ (2x3. 14159272) [BICAI | 28088 IF wwii)=1 THEN IF ww(2)=@ THEN 282 

2270 cm36db=1@089@0/ (2*3.1415727%rm#f1) L47DB1 a 

2288 ch36db=100Q0@8/ (2x3.1415927#rh##2) L[&6CE] | 2810 IF wwii)=@ THEN IF wwi2)=B THEN 356 

2290 LOCATE 1,13:PRINT"Dreiwegweiche mit [) 

&dB/Okt t9a7cı | 2820 ° 

23@@ LOCATE 1,15:PRINT"Lt = ";:PRINT USI 283@ IF file=1 THEN LOCATE 22,2:PRINT"in 
NE" ARRR. 4" 5 16 3adbz zPRINT" mi“ CCB321 i "CHR$ (24) name$CHR& (24 

231@ LOCATE 1,17:PRINT"Lm = ";:PRINT USI 1_THEN LOCATE 22,2: 
NG PRINT" mH" £871C1 PRINT"im Druck: "CHR$ (24) name$CHR$ ( 

2320 LOCATE 1,19:PRINT"Cm = "z:PRINT USI 24); ELSE IF file=8 THEN MODE 2:608 
NG" A" emSadb; = PRINT" "+CHRSC UB 5668:LOCATE 22,2:PRINT"im Druck 
a + LAFS@I "CHR# (24) namesCHR$ (24) 5 

233@ LOCATE 1,21:PRINT"Ch = ";:PRINT USI 2848 FRINT#file ‚CHR$ (27) CHR$ (45) CHR$ (1)" 
NG" 4 ##"; ch36dl PRINT" "+CHRS&(1 SEHAEUSE. . .";CHRSCZ7ICHRE 
33) +" LEB18] (45) CHRS(B®) 

2340 REM dreiweg 12dB/akt [S7F4) | 2858 IF file-8 THEN PRINT#file,CHRF(1) 

235@ 1t=10Q@+rt#1.4142/(2#3.1415927=#1) [AB2EI ELSE PRINT#file 

2360 ct=1000088/ (2x3.1415927%F1*1.41428r 2868 PRINT#file,"V(as) - Wert<3>: ";vas 
3) tBasEı | 2978 PRINT#file,"Olts) - Werti3%: "igts 

2370 cm=1@Q@@@0/ (2*3.1415927*F1=1.41428r 2888 PRINT#file,"Qttg) - Wert<33:<250.78 
m) LES24] a 

QO@*1.4142%*rm/ (2*3.1415927«#1) [34A21 | 2898 IF file=8 THEN PRINT#file,CHR$(10) 
OB@xrm#1.4142/(2#3.1415927*#2) L7FICI | 2998 IF ##=1 THEN PRINT#file:GÜTO 2910 
BQQaBR/ (2#3.1415927=fZxrme1.414 2718 PRINT#file,"Volumen hedaempft : "5: 
182441 FRINT#file,USING"##. #8"; vg; :PRINT## 
QR@xrh*1.4142/ (283. 1415927##2) L7DFAI ile," Liter“ 

2428 ch=100BQ@8/ (2x3.1415927=f2xrhr1.414 . 2928 IF tile=8 THEN PRINT#file,CHR$(I1); 
2) [2BaA1 ELSE PRINT#file 

2438 LOCATE 49,13:PRINT"Dreiwegweiche mi 293@ PRINT#file,"Materialstaerke in mm<2 
t 12dB/Okt." 12334] >: " ‚mast 

2448 LOCATE 40,15:PRINT"Lt 2948 PRINT#file,"Standhoshe aussen in cm 
ING" ###.#4"; 1#5 : PRINT LBCFEI :_",auho 

245@ LOCATE 48,16: PRINT"Ct 2958 PRINT#file,"Tiefe oder Breite in cm 
ING"###.##" ct; PRINT“ "+CHREÜBSI+ _ = *,tibr = 
ug" [Fı181 | 2968 PRINT#file,"Tiefe oder Breite<a>: " 

24640 LOCATE 48,17:PRINT"Lm :PRINT US „ROUND (br2,2);3”" cm" 

ING" ###. ##" ; Im; : PRINT [68EAI 2978 IF file=8 THEN PRINT#file,CHR$ (18); 

2478 LOCATE 48,18: PRINT"Cm zPRINT US E 
ING" ###.##" 5m; :PRINT" "+CHRE (183) + »Boxenkit« (Fortsetzung) 

PAADPISS 

NEE 
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LAZFCI 
12086] 


TEBB&I 
CFac2] 


[@6&D41 
L2E7A1 
LESS41 


CBBS8] 
Lassal 


C172E] 
L491A] 
C188C] 
LAAB&I 
C1S061 
CAFFB] 
175A2] 
EiDFCI 
[16321 
LA182] 
178641 
CADB21 


COAE2I 
[27177] 


LA2FB] 
IF46E] 


[920E] 
193001 


LIFCOI 
[@4DE] 
LCES@1 
194421 
[7B52] 
[23661 
tASSCI 


LAAsa] 
[20261 


EFSCCI 


LOAD&1 
[32141 
LA7F21 
C302C1 
166281 
L94anl 
CF4E4] 
L526C1 
[63881 
L&D781 
CBBF61 
[78201 


LIFARI 


| 


101 
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CHR$(1@) ELSE PRINT#file:PRINT#file 
PRINT#file ,CHR$ (27) CHR$ (45) CHR$(1)" 


Zuschnittmasse. 
CHRS(D) 

IF file=8 THEN PRINT#file,CHR$ (18) 

ELSE PRINT#file 

PRINT#file,"2 Stueck "j:PRINT#file, 
USING" ###. 44"; seiwl;:PRINTHFile," © 
m_x* "3:PRINT#FiLe USING" ###. #4" sei 
w23 : PRINT#file, "cm" 

PRINT#file,"2 Stueck ";:PRINT#file, 
USING" #44. ##";depl1;:PRINT#File," c 
mx "3: PRINT#File USING" ###. #4" } dep 
125 :PRINTHfile, "cn" 

ERINTHELLE,NZ Stuck "5:PRINTHFILE, 
USING" HA. A#"; frpli;:PRINTAFiLe," © 
m x* "3TPRINTHFILe USING" AR. #0" } frp 
12 NTHfile, "cm" 

IF file=1 THEN’LOCATE 68,25:PRINT"b 
itte <Tast ALL &BBQ6: LOCATE 
&8 ‚25: PRINT"217>" 

nn us1 TO 23PRINT#Hfile,CHR$ (IB) NE 
x 

IE ww(2)=® THEN 208 

IF #ff=3 THEN 3278 

PRINTHFi Le ,CHRE (27) CHRE(4SICHRS (1) " 
ZWEIWEGWEICHE. . ."CHR 
$ (27) CHRE CAS) CHRS (9) 

IF +ile=8 THEN PRINT#File,CHRS(1®) 

ELSE PRINTHfiLe 

PRINT#file, "Impedanz des Tieftoener 
s :"srt,tiofs 

PRINT#fl1e," Impedanz des Hochtoener 
EREREIO NEE 

PRINT#fl1e, "Vebernahmefrequenz 


2 :"aflz 
PRINTHFILe,CHRS (10) 

PRINT#fi le ,CHR$ (27) CHR$ (45) CHR$ (1)" 
Zweiweqweiche mit &dB/Okt. ";CHRE$ (27 
)CHR& (AS) CHR$ (BD) ; 
PRINT#file,CHR$ (IQ) 

PRINT#file,"Lt = "3: PRINT#file,USIN 
Br LtZ2ödbs : PRINT#HFILe," mH" 


PRINT#file,"Ch = ";:PRINT#file,USIN 
GH. HH"; ch26db; :PRINTHFiLe," ur" 


PRINT#file,CHR$ (19) 

PRINT#Fi le ,CHR$ (27) CHR$ (AS) CHRE(1)" 
Zweiwegweiche mit 12dB/Okt.";CHRE(Z 
7) CHR$ (45) CHR$ (Q) 


;CHR$ (27) CHR$ (45) 


in H 


IF file=1 THEN FRINT#file 

PRINTHFiL ";:PRINT#file,USIN 
[EHE NEE DE) RINT#file," mH 
PRINT#FiL ";EPRINT#file,USIN 
IcHE ES 2E 2 3: PRINT#file 
PRINT#file,"Lh = ";:PRINT! 


Gran HH" hr PRINTHFIL 
PRINT#file,"Ch = ";:PRINT#file,USIN 
Br chz ıPRINTHfile," ur" 
PRINT#file,CHR$ (10) 5 CHR£ (10) 

IF file=i THEN LOCATE 60,25: PRINT"b 
itte <Taste>...":CALL &BB6:G0T0 2@ 
® 


IF fff=2 THEN 200 

PRINTAfi Le ‚EHRE (27) CHR$ (45) CHR# (1) " 
DREIWEGWEICHE. . .";CH 
R$ (27) CHR$ (45) CHR& (9) 
PRINT#fi Le ,CHR$ (18) 
PRINT#file, "Impedanz 
s(5>: "irt)tiefs 
PRINT4#i le, " Impedanz 
ers<3>: "srm,mittel® 
PRINT#tile, Impedanz 
s "irhyhocl 
Pafninellennn 
m H2<2>ı "fl 
PRINTAFile, "2. 
n Hzg2>: ""3#25 
PRINT#File,CHR$ (18) 

PRINT#Fi le, CHR& (27) CHR$ (45) CHRS(L)" 


des Tieftoener 


des Mitteltoen 


des Hochtoener 


Uebernahmefrequenz i 


Uebernahmefrequenz i 


Dreiwegweiche mit &dB/Okt. "CHR# (27) 
CHR$ (45) CHR$ (@) ; 

PRINT#Ffile ,CHR$(1@) 

PRINT#file,"Lt = "3:PRINT#file,USIN 
GH. HR" 1tSödbr :PRINTHFILe," mh" 
PRINT#file,"Lm = ";:PRINT#file USIN 
GH. 4" ImSödb; :PRINT#file,” mH" 
PRINT#file,"Cm PRINT#file,USIN 
Ga" cmSedbs :PRINTHFile," ur" 
PRINT#file,"Ch PRINT#file,USIN 


Bl #4" ch3ödi 


PRINT#file,CHR$ (19) 

IF file=1 THEN LOCATE 68,25: PRINT"b 
itte <Taste>... ALL &BBB6: LOCATE 
68,25: PRINT"217>" 


PRINT#file," ur" 


L619A] 


1789C1 
L911E1 


178221 


CF4D8] 


174161 


t2CCE] 
164901 
[OBECI 
ti2EA] 
175881 
cBaaCI 
13986] 
CF@761 
132A2] 
1622A] 


LS2ACI 
CF@ZEI 


LDSEBI 


CB2181 
[8F34] 


13694] 
tCAD2] 
LFC841 
LEAsEI 
17858] 
£C242] 
[7Bacı 


18984] 
10478] 


LC2FC1 
LACS8] 
CDDFAI 
CDFFBI 
L7BECI 
[25881 
LFF&CI 
19032] 


tDaası 
[EES6] 


L44F2] 


CDADBI 


LOAC2I 


ED414] 
tor2E] 


[34041 


3790 


3808 


3818 


3820 


3830 


3848 


3850 


3868 


3878 


38838 
3898 


3908 
3718 
3920 


3930 
3948 
3950 
3968 
3978 


3988 


PRINT#file CHR$ (27) CHR$ (45) CHRE(1)" 
Dreiwegqweiche mit 12dB/Okt. "CHRF (27 
ICHRE (AS) CHR& (@) ; 
PRINT#file,CHRF (19) 

ile,USIN 


PRINT##i = 
RINT#File," mH" 


Grank. Hi 
PRINT#file,"Ct = ";:PRINT#File,USIN 
RINT#file," ur" 


Gras. # ct 
PRINT#file,"Lm = ";:PRINT#File,USIN 
G"ann. #4"; Im; :PRINT#File," m" 
PRINT#file, "Cm SHRRINTHERLG „USIN 
Gränt.##" cm; :PRINT#File," UF" 
FRINT#file, = ";:PRINT#File,USIN 
G"###.##"5 125: PRINTHFiLe," mH" 
PRINT#file,"C2 = "sıPRINT#file,USIN 
Gerät. ##"c2; :PRINT#file," ur" 
PRINTAFiLe, "Ch = ";:PRINTHFiLeJUSIN 
Bet #file," \mH" 
PRINT#file sPRINTAFiLe,USIN 
Gran. HH" sch; PRINTHFile," UF"; 
PRINT#file,CHR$ (19) ;CHR$ (19) 

IF file=1 THEN LOCATE 69,25: PRINT"b 
itte <Taste?..."ıCALL KBE@G: fff=B:ıG 
0TO 2098 

G0TO 200 

ELS:LOCATE 10,10: FRINT"K e in es3> 
DER tn non 

LOCATE 65,24: PRINT"Bitte <ENTERD. .. 


CALL %BBQ6:G0T0 200 

RRRRRRSHHH 
. Vierter Teil Pr 
REP EHLTUE LEE ren 
‘**  Schaltplaene 2,3-weg x** 
RRORRRRSHEHSRGSR 
‘** und Hardcopy-Routine  x%* 
"x fuer Epson-Drucker x 
‘x te) by Happy-Computer #* 
ERERETTELTEHTTTERTTERTETLERRER 


LOCATE 8,12:FRINT"2-weg mit 12dB/Ok 


ATE 8,14: PRINT"S-weg mit 6dB/Okt 


LOCATE 8,18: PRINT"Zum Hauptmenue... 
BARRER 
LOCATE 8,23:PRINT"Ihre Wahl bitte.. 


wahl$=INKEY$: IF wahl$="" THEN 3770 


IF wahl$="@" THEN RETURN ELSE LOCAT 
E 1,20: INPUT"Ist dieser Schaltplan 
auf der Diskette: aktiven Laufw 


erk vorhanden (3/n) "jatıIF asc>"j" 
THEN RETURN 

IF wahl$="1" THEN MODE 2: INK 1,13:L 
Gap" wege. or" ‚uCaaa: GusUB 5660:6 
OSUB SEBB:G0TO 3840 

IF wahl$="2" THEN MODE 2: INK 1,1331 
San" Zwegi2ab. gr#" ‚:Cada: GOSUB 3660: 
SOSUR 5838: G0T0 3840 

IF wahl#="3" THEN MODE 2: INK 1,13:L 
OAD"Swegedb. grf" „uCDRB: GOSUB 5460: 6 
OSUB 5930: G0TO 3848 

IF wahl#="4" THEN MODE ZeINK 1,15:L 
San" Smegtzab. gr#" „LCaBB:GOSUB 5660: 
GOSUB 6830: 6010 3848 

IF wahl$<>"@" OR wahl$<>"1" OR wahl 
$<>"2" OR wahl$<>"3" OR wahlsc>"4" 
THEN 3770 

LOCATE 1,25: PRINT CHR# (24 ;"<2>Hard 
Copy»... .1<52Menue <20> 
Ihre Wahl bitte... ?7<2>" EHRE (2475 
INK 1,1 

Grahlä=INKEVS IF rwahls="" THEN 386 


IF rwäahl$="1" THEN GOSUB 3900: 6010 


E77] 
IF rwahl$="8" THEN GOTO 3618 
OR rwahls<>"@" 


IF rwahlsc>"1" 

3868 

"#%*# HARDEOPY #r 

LOCATE 1,25: PRINT STRING$(80," "); 
LOCATE 1,25:PRINT"Bitte Drucker ber 


THEN 


eitmachen dann <TASTE>":CALL %BBA& 
LOCATE 1,25: PRINT STRING$(B@," "); 
|HARDCOPY: RETURN 

i=49968 

READ wert$: IF wert$="ende" THEN 398 
2 


POKE i ,VALC"&"+wert$): 
68 
CALL LABBB: RETURN 


i+1:60T0 37 


[12681 
19034] 


CBAACI 
L4A36] 
tEB34] 
C311EI 
L8B4C1 
163241 
EFB16] 
162763 
CA410] 
[55641 
C72E0]J 
22FAl 
CB2D2] 
L8cC2] 
cC708] 
LAEGEI 
LAaFaı 
L81DE] 
L9EFEI 
[60601 
ED9221 
LEFS61 
[83061 
118941 
EDED2I 
CFEDBI 
L7B7A1 
t8A8@J 
LA9FBCI 
158921 
EDECAI 


LS5@6E] 
C4238] 


CF1283 


LAsCA] 


LC6@A] 


L4EB8] 


LE9Q6] 


17042] 


LFFIEI 


[86001 


CCF@@] 


LEA9AI 
LAs4EI 


C514A] 
[43521 
EDFDE] 


LF7CCI 
EB3E2] 
[1600] 
[B134] 


[47861 


cac2@] 
[06821 


3970 


4000 


aaıo 


4020 


4030 


4940 


4050 
4060 
4970 
4090 
4098 
4100 
4118 


4120 


4130 
4140 


4150 


4160 
4170 
4188 
4190 
4208 
4210 
4220 
4230 


4240 
4250 


4260 
4278 


4288 


4290 
4300 


4310 
4320 


DATA _@1,09,AQ,21,17,AB,C5,Di,BC 
AB,C3,1B,AQ0,48,41,52,44,43,4F ‚58, 
‚28,00,20,00,20,CD,@B,BC,22,4C,Al, 
D,11,BC,32,4£ Al ‚21,5 ,Al,3D,28,09, 
21,57,A1,3D,28,03,21,63,A1,01 28,028 
‚1l,a® ‚Al ,ED,BO,ED,73,6£ ,Al,SA,4&,A 
1,87,FE,@1,CE,20,87,32,65,Al,BE,@ 
DATA ’CD,37,A1,BE,0A,CD,37,A1,3E,@ 
CD,AD,AQ,SE,7F ,32,65,Al,2A,A0,Al, 
‚F&,00,67,04,1D,@3,20,03,3£,78,32, 
3,A1,04,C5,CD,C2,AB,3A,4£,Al,FE,@2, 
c&,c2,Ad,11,08,08,47,ED,52,7C,Fö,3F 
‚30,28,08,11,B8,3F ,19,7C,F6,F8,67,8 
E,0A,CD,37,A1,@E,@D,CD,37,Al,ES,sE 
DATA 42,CD, 1E,BB,C2,47,A1,E1,C1,1@, 
C8,3E,03,21,70,Al,42,23,08,08,09,3D 
‚20, F8,45,23,4£,23,0D,37,Al,18,F9,C 
9,E5,21,70,A1,3A,4E,Al,FE,82,28,85, 
AE,23,0&,00,09,CD,Bö,Ad,E1,3A,4E,Al 
‚FE ,02,04,28,28,02,06,58,C5,E3,11,6 
7,Al,3E,07,ED,AQ,25,01,00,08,09,38 
DATA’aA,01,50,C0,09,477C,E6,07,67, 
78,3D,20,EA,21,4F,Al,3A,65,A1,47,C5 
‚11,67,n1,08,07,1A,13,Ad,FE,@1,3F,C 
B,11,10,F,3,65,Al,Al,4r,CDd,37,Al, 
SA ,4E ‚A1,A7,CC,37,A1,C1,25,18,DD,Ei 
Ci ,7&,E&,F&,4r ‚23,76 ,E6,87,B1,67,1 
8,AB,C9,79,CD,2B,BD,D8,C5,E3,36,42 
DATA’CD, 1E,BB,E1,C1}28,F@,ED,7B,6£, 
A1,C9,08,00,08,00,00,00,00,00,08,08 
00,00,40,20,10,08,04,02,01,88,44,2 
2 11,9A,53,08,00,00,08,00,08,08,08, 


aa,ad, @ 
1B,4B,48,01, 


DATA 64,1B,4C,40,01,04 


03,1B,41,07,03,1B,41,06 

DATA ende 
17a 
.. Fuenfter Teil ”* 


ELDEEELUSTULE TEE e re 
'** Programm beenden .. 
ELETELDETUETSTENTEE TUE ODER DU 

LOCATE 19,25: PRINT"wirklich beenden 
j/n " 

wähll#=INKEY$:IF wahll#="" THEN 412 

[) 

wahl 1$=UPPER$ (wahl1#) 

IF wahll$="N" THEN 208 ELSE IF wahl 

1#="J" THEN FOR u=1 TO 10@@:NEXT=CL 


S:END 

IF wahll$<>"N" THEN IF wahllsc>"g" 
THEN 4128 
ETEUTETETELTETELUE TEE ET Er ee 
a Sechster Teil .. 
RN 
Er Hinweise zu “r 


'** erforderlichen Daten #* 
DEE UOTULTUELTULDERCHEEHRER REN 
WINDOW ,1,8@,4,25:CL5#1 

LOCATE 1,6:PRINT"Unter dem Menuepun 
kt ‘2’ werden Sie da- zu<2>aufgefor 
dert, einen V(as)-Wert ein- zugeben 


PRINT 
LOCATE 1,1Q:PRINT"Dieser V(as)-Wert 
ist ein Mass fuer die Nachgiebigke 
it der Lautsprechermembrane und gib 
t an, welche Menı >ang2>Luft<2>in 
einem Behaelter: Ssät, icher <2>6r und 
#laeche ebenso nachgiebig ist, wiel 
2>die Membran in ihrer Aufhaengung. 


PRINT 
LOCATE 1,17: PRINT"Hersteller<2>gute 
r<2>Lautsprechersysteme<2>geben die 
sen Wert in ihren Datenblaet-tern m 
it an oder teilen ihn<2>Ihnen<2>auf 


<3>Anfrage gerne mit. 

LOCATE 28,2: PRINT"bitte <ENTER>":C 
ALL %BBQ6& 

ELSHL 


LOCATE 1,6:PRINT"Der angeforderte @ 
(ts)-Wert ist<2>ebenso in guten Dat 
enblaettern aufgefuehrt. Er ist ein 
e dimensionslose rein technische Gr 
oesse, deren Ermittlung aufwendig i 
st und hier nicht naeher erlaeutert 
werden soll." 

PRINT 

LOCATE 1,13:PRINT"Als<2>Anhaltspunk 
t<2>sei<2>angemerkt, dass bessere L 
autsprecher @tts) Werte<Z>unter 9.3 
5 besitzen und gute sogar Werte<2>u 
n- ter 8.26 und weniger aufweisen k 
oennen. Auch diesen Wert erhalten<2 
2Siei2>aus Da- tenblaettern oder au 
# Anfrage." 

LOCATE 25,24: PRINT 
ALL &BBB&: RETURN 
Bee ei 
or Siebter Teil x” 


itte <ENTER>":C 


C1B441 


1356E1 


CDDFEI 


[60281 


L76A61 


[70861 
LF37E] 
[86FA] 
(488€ ] 
[&CFE) 
[7F64] 
LACF®] 


LA6AsI 


£D2c@] 
155301 


t31CC9 


LAsF2I 
LCAFCI 
17494) 
12588) 
[6108] 
1299A] 
C2DF4) 
CFBD®] 


135881 
CAEEE] 


CFA48] 
CBBF2] 


120841 


CBB281 
[CAsAI 


L@74C1 
EDSEAI 


[48381 


EDDECI 
EBAFCI 
[28EE1 


2368 
4370 "= Daten speichern Er 
2380 Ver 
4399 CLS:S0SUB 5648 


4498 LOCATE 11,5:PRINT STRINGS(17,CHRF(1 
43)):LOCATE 11,6:PRINT CHR$(24)" DA 
TEN SPEICHERN "CHR$(24):LOCATE 11,7 


:PRINT STRING$ (17,CHR$(143)) 


4410 LOCATE 5,1@:PRINT"Auf welchem Laufw 


erk 7 (A/B)" 
4420 aa: 


ELSE_!B 

4438 FOR u=1 TO 2B@B:NEX 
INT STRING£(29," ") 
NT_STRING$ (29, 


4448 LOCATE 8,18:PRINT"Bitte Namen einge 


ben 


446Q OPENOUT names 

4472 FRINT#9,name$ 

4488 PRINTRI,#+# 

4490 FOR u=18 TO 164:LOCATE 5, 
ING$ (34," ")r 
"Nicht mehr als 25 Zeichen . 
ATE 1,1 
er< 


‚tiets 


eichnung Mitteltoener: "‚mittel$ 


4518 LOCATE 1,14: INPUT"Bezeichnung Hocht 


oener< ",hoch$ 
4528 G0TO @ 
4530 "IF ww(1)=@ THEN IF ww(2)=1 THEN 45 


so 


4540 ir ww(1)=1 THEN IF ww(2)=@ THEN 456 
IF ww(1)=@ THEN IF ww(2)=@ THEN 498 


4568 PRINT#9,tief$:PRINT#F,mittel$:PRINT 


#9,hoch$ 
4578 PRINT#9 ,ww(1) 
4588 PRINT#9 ,ww(2) 
4598 PRINT#9,vas 
4600 PRINT#9)gts 
461® PRINT#9,atg 
462® PRINT#9,vg 
4630 PRINT#F,mast 
4640 PRINT#F 
4658 PRINT#9 
PRINTA9 )br2 
467@ PRINT#9 ,frpl1:PRINT#9,£rp12 
4680 PRINT#9,depl 1: PRINT#7,dep12 
4690 PRINT#9, frpl 1:PRINT#9, frp12 


4718 PRINT#9,rt 
4720 PRINT#9,rh 
4730 PRINT#9,#1 
4748 PRINT#9,1t26db 
4758 PRINT#9,ch26db 
4768 PRINT#9,ct 
4778 PRINT#9,1Ih 
4788 PRINT#9,ch 


4888 PRINT#9,rt 
481® PRINT#F,rm 
4828 PRINT#9,rh 
4850 PRINT#9,#1 
4848 PRINT#9,#2 
4850 PRINT#9,1t36db 
4868 PRINT#9,1mS6db 
4878 PRINT#9 ,cm36db 
4888 PRINT#9,ch36db 
4890 PRINT#9,1t 
4998 PRINT#9,ct 
4918 PRINT#9,1m 
4928 PRINT#9,cm 
4930 PRINT#9,12 
4948 PRINT#9,ch 
4958 PRINT#9,1h 
4962 PRINT#9,ch 
4978 CLOSEOUT:S0TO 288 


4988 FOR u=18 TO 22:LOCATE 5,u:PRINT STR 
"):NEXT:LOCATE 10,10: PRIN 


ING$ (34," 
T’Ke in eSDaten.. ." 
4998 LOCATE 65,24: PRINT"Bitte <ENTER> 


5222 CALL %BBQ6:CLOSEOUT:GOTO 208 


ErHUBeerFee Peer Feen 
5@28 ’x** Achter Teil ”* 
Se en 
5048 ‘== a. Daten einlesen und xx 
5058 '=* b. ausgeben ** 
SBE0 een 
5278 '=* b.1 Bildschirmausgabe ** 
S@8® ‘== b.2 Druckerausgabe Pr 
SOSQ sunesnnre 
»Boxenkit« (Fortsetzung) 


INKEY$:LOCATE 28, 15:PRINT"DRIVE 
*-. "UPPER$( aa$) :aa$=UPPER$(aas)ı IF 
THEN 4410 ELSE IF aas="A" 


:LOCATE 5,10: PR 
LOCATE 5,15: PRI 


8,14: INPUT name$:name$=names 


RINT STR 
IEXT:LOCATE 5,24: PRINT 
:LOC 
NPUT"Bezeichnung Tieftoen 


IF ff#=3 THEN LOCATE 1,12: INPUT"Bez 


123081 
ED&DAJ 
[C9@4] 
[28F61 


CCC341 
[64241 


LAFSB1 


CDA4FB1 
L40041 


CA7481 
EDCFAI 
EFD923 
[S@6E] 


caD281 
1572C3 


LF9FEI 
[6826] 


L92B2] 
LEE6B] 
170741 


LAECEI 
LAAEAI 
ÜBAEEI 

c@2A21 
E3BAEI 

LEF9BI 
C25BCJ 

LOAGE] 
CAD6Q1 

LBAGAI, 
EDE16] 

LEBAQ] 
[C1861 

[32441 
196241 

[aacE] 
C12B81 

L6AS4) 
158241 

LABFCI 
C2DBAJ 

[02561 
(55A61 
EBFS6] 
[S1CEI 
[a5c21 
CC9BAI 
18136] 
[093A1 
17D2A] 
ECDIEI 
LEBE] 
[6EQ&] 
E2DD41 
C2BR2I 
[62B8] 
CaDaB] 
LAB46] 
[73421 
L7@B6&3 
[13A61 
[BSQEI 


cDSic] 


LO2EB) 
L7BFC] 
LA2F2] 
CSSF6] 
LABF6] 
CCC9AI 
[74261 
C21FC] 
CB@2A] 
CD@aCI 
[6B221 


WW.HOMECO 


103 


sıoa 
Ss118 


sıza 


sı30 
S1a0 
5isa 


S160 


sı70 
EI:7] 


5190 
5208 


5210 
5220 


5230 
5240 
5250 


5240 
5278 


5288 
5290 


szaa 
5318 
5320 
5330 


5349 
5350 


5368 
'5378 
5382 
5398 
saa8 
5418 
5420 
5430 


5440 


5450 
5460 
5470 
EZET] 


5490 
ssaoo 
ssia 
5520 
5530 


5540 
550 
5568 


5578 
5580 
5590 
Er] 
Ss1d 
5620 
5630 
5640 


5650 
5668 


CLS:60SUB 5640 
LOCATE 11,5:PRINT STRING$(17,CHRS(1 
43) )LOCATE 11,&:PRINT CHR$(24)" DA 
TEN<Z>EINLESEN "CHR$ (24) :LOCATE 11, 
7: PRINT STRING$ (17,CHR£ (143) ) 
LOCATE 1,15: PRINT STRING$ (39, 
LOCATE 20,24: PRINT STRING$(19 


GOSUB 5640 

names=que$s 

LOCATE 5, 1@:PRINT"Von welchem Laufw 

erk ? (A/B)" 

d$=INKEY$:LOCATE 28,15: PRINT"DRIVE. 

‚- "UPPER$ (d$) :d$=UPPERE (d$) ı IF de 

THEN S16@ ELSE IF d$="A" THEN iA 

ELSE IB 

WINDOW#S, 1,40,5,25: CLS#3 

LOCATE 8,11: PRINT"Directory auslese 
ar 

„13: PRINT"Zum Hauptmenue 

FREENET ID 


LOCATE 8,19 PRINT"Ihre Wahl bitte. 


as=INKEYS: IF as="" THEN 5210 

aSINT(VAL(aSJLIF acQ OR a>l THEN S 
() 

IF a=@ THEN RETURN 

MODE 2:G0SUB 5668 

IF a=1 THEN PRINT+PRINT:PRINT:PRINT 

CAT 

IF VAL(a$)=Q THEN RETURN 

LOCATE 5,5: INFUT"Name des gewuensch 

ten Files (ohne Extension) : ",‚name 

#: IF names=swe+ THEN RETURN ELSE na 

me$=names+".box" 

name$=name$: IF name$="" THEN RETURN 

WINDOW#1,1,88,7,25:CLS#1:LOCATE 1,5 

SPRINT STRING$ (79, OCATE 1,5:P 

RINT"Gelesen wird : ";names: WINDOW 

SWAP @,1 

OPENIN names 

WHILE NOT EOF 

INPUT#9 ‚names: INPUTRF,FFF 

INPUT#9 ‚tief$: INPUT#9 ,mittel$: INPUT 

#9 ,hoch$ 

INPUT#9 ‚ww 1) z INPUT#9 ‚ww (2. 

INPUT#9 ,vas: INFUT#7 ,gts: INPUT#7,qtq 


INPUT#9 ‚vg: INPUT#9 ‚mast: INPUT#9,,auh 
0: INPUT#9F,tibr 

INPUT#9 ,br2: INPUT#9,seiwi: INPUT#9,s 
eiw2: INPUT#7 ,‚depl1: INPUT#9 ,dep12: IN 
BUT#9 ,frpl1: INFUT#9,Frp12 


INPUT#F rt: INPUT#9 ,rhz INPUT#9,f1 
INPUT#9 ,1t26db: INPUT#9 ‚ch26db? INPUT 
#9 ,ct: INPUT#9 ‚Ih: INPUT#9 ,ch 
INPUT#9 ‚rt: INPUT#9 ‚rmhz INPUT#9,rheI 
NPUT#9 „#1: INPUTR? ,F2 

INFUT#9 ,1t36db; INPUT#9 , Im$ädb: INPUT 
#9 ‚cmS&dbs INPUT#9 ‚chS6db 

INPUT#9 ,1€: INPUT#9 ‚ct: INPUT#9 ‚Im: IN 
PUT#9 ‚cm: INPUT#7 ‚12: INPUT#9 ‚ch: INPU 
T#9, Ih: INPUTR9 ch 

"IF’a=2 THEN ausgabe=@: ff##=1:60T0 
5490 

ausgabe=1 

WEND: CLOSEIN 

MODE 1:G0SUB 5648 

LOCATE 11,5:PRINT STRING$(17,CHR#(1 
A3)):LOCATE 11,4: PRINT CHR&(24)" DA 
TENSZ>EINLESEN "CHR& (24) 3 LOCATE 11, 
7: PRINT STRING$ (17 ,CHR$ (143) ) 
LOCATE 8,11:PRINT"Äusgabe auf Bilds 
chirm...!. in 

LOCATE 8, ISFPRINT"Ausgabe auf Druck 
Brounonnee2" 

LOCATE 8, 15H PRINT" Zum Hauptmenue. .. 
HENSEERE N DE 

LÖCATE BJ IFEPRINT"Ihre Wahl bitte.. 
as=iNKEV$ IF as="" THEN 5530 ELSE a 
=INT (VAL (a8) ) 

IF a<@ OR a>2_THEN CLS#3:60T0 5490 
IF a=® THEN RETURN 

IF a=1 THEN ausgabe=1 ELSE ausgabe- 
B:ffff=1 

GOSUB 2640: RETURN 
FR 

v. Neunter Teil “r 
EEE EEITULTHEREUTERDER EEE 

x Kopfzeile MODE 1 Pr 

"x. Kopfzeile MODE 2 Er 
TEE EEEUCUNERETEROFEEEFDERDERE 
LOCATE 1,1:PRINT STRING$ (48,CHR$ (15 
4));"Boxenkit 4.3<4>(C) 1984 by<2>6 
AL AC 0"s:PRINT STRING$ (40, CHREC 
154)); 

RETURN 

PRINT STRING$ (82,CHR$ (154) ) 


L76E21 


C19D61 


L76B6] 
[24B01 
[SEBA] 


L7FS6] 


LEEBAI 
C6BDC) 


16036] 
L1C381 


L22D6] 
L63E8] 


tZASE] 
L136C] 
Cc@1Al 


1749A1 
ca8221 


LCAsBI 
C@E681 


CACACI 
[542C1 
EDEDAI 
[1596] 


CBDD81 
TSB6EI 


ED92EI 
LC7D81 
195881 
1272E1 
EFCOB] 
[SB8C1 
123081 
[1812] 


tBF541 


CB2D8J 
[9568] 
ECACBI 
CBB1E] 


L74EA1 
L1ACE] 
12776] 
17C2C1 
120E@1 


C97F41 
17358] 
[A676] 


[E8221 
ÜBEEE] 
CABaA] 
[8622] 
C2BFC1 
[76741 
CA2781 
CA1@2] 


LSFSEI 
CF1AQ1 


5678 
S6ad 
5670 
5700 
Erzt 
5720 
5730 
5740 
5758 
5768 
5770 
5788 


579 


saoa 
seıa 
5320 
5839 
5848 
5950 
5868 


58970 


sa88 
5898 


sso2 
510 
5720 
5732 
5740 
5959 
5768 


5978 


5980 
5990 
saan 


6010 


6028 
6030 
6040 
058 
6068 


6070 


6080 
6890 


s100 
6118 


6120 
6130 


6148 
6158 


6160 


it 4.3<44>(C) 1986 hy<2>6 ALACO 
"3:PRINT STRING$ (80, CHRF(154)) 5 
RETURN 
RREHRRRRRREEERRSEHR 

Br Zehnter Teil Pr 
IRRE 

’** Daten in Schaltplaene ** 

or einbinden .r 
RRRREHHRRRRHRS 


RR 
zu Zweg ödb . 
EPERLEUEEUEHTL ESCHER 

IF fff=2 OR ###4=2 THEN 5790 ELSE S 
820 

IF names<>"" THEN LOCATE 20,2: PRINT 
"zu den Daten von :ı "CHR#(2A)namest 
HR$(24); ELSE LOCATE 20,2: PRINT CHR 
$(24)"zur momentanen Berechnung"CHR 
#024) 3 

LOCATE 6@,9:PRINT"Lt =": PRINT USIN 
GEHN. KR" Lt2Adbs SPRINT" mi" 
LOCATE &@, 10: PRINT"ch ="}H PRINT UST 


NG". u"; ch2ödba :PRINT " "+CHRE CH 
a3) +" F" 

RETURN 
RRHRHHHHRGRREES 

.. 2weg 12db wr 


ERRRRRRRERRRRRRREER 
IF ##f=2 OR ffff=2 THEN 5870 ELSE 5 
920 
IF names<>"" THEN LOCATE 28,2: PRINT 
"zu den Daten von : "CHR$(24)namesC 
HR&(24); ELSE LOCATE 20,2:PRINT CHR 
#(24) "zur momentanen Berechnung"CHR 
#124); 
LOCATE 60,9: PRINT"1t PRINT USIN 
Grän#.##" lt; PRINT” m 
PRINT USI 
"+CHRE (183) + 


LOCATE 60,10: PRINT"ct 
NG" #4 ct; PRINT " 
nen 

LOCATE 68, 11:PRINT "Ih 
ING" #44. #4"; Ihz L PRINT 
LOCATE 49,12: PRINT"ch 
NE" ### HH" ch; = PRINT 
pn 

RETURN 
RRRRRSSRRRSRRSRRRERR 
re weg &db »* 
RR 

IF fff=3 OR ffff=3 THEN 5980 ELSE & 
220 

IF names<>"" THEN LOCATE 20,2: PRINT 
"zu den Daten von : "CHRF(Z4)namesC 
HR$(24); ELSE LOCATE 20,2:PRINT CHR 
+(24)"zur momentanen Berechnung"CHR 
#124); 

LOCATE 66,9:PRINT"lt ="3:PRINT USIN 
Gränh. 4" 1tSödbz EPRINT" mi" 

LOCATE 66,10: PRINT "Im RINT US 


Z:PRINT US 
au" 

"3: PRINT UST 
"+CHR$ (LED + 


ING" #44. #4"; ImS6db; : PRINT" mH" 
LOCATE 66,11: PRINT"cm ="; :PRINT USI 
NG" #H. HR" omSädbz : PRINT " "HCHRECL 


SHI+"F" 
LOCATE 66,12: PRINT 


"ch = RINT US 


ING" ###.##" ;ch3ödb; PRINT " "+CHRE( 
183) +"F" 

RETURN 
RHRRHRERRERHEEEHE 

er Zweg 12db ”r 


RR 
IF ###=3 OR ffff=3 THEN 6080 ELSE & 
168 

IF names<>"" THEN LOCATE 29,2: FRINT 
"zu den Daten von : "CHRF(2A)namest 
HR£ (24); ELSE LOCATE 28,2:PRINT CHR 
#(24)"zur momentanen Berechnung "CHR 


#24); 
LOCATE 66,9: PRINT"It ="3 PRINT USIN 


GAR" LESEPRINT" mi" 
LOCATE 66,10: PRINT "ct ="3: PRINT US 
ING" Ann. m" ct; PRINT " "+CHRS(LOS) 
+nen 

LOCATE 66,11:PRINT "Im = $PRINT us 
ING" HH. HR" Im; PRINT" mi" 

LOCATE 66,123 PRINT"cm =" PRINT UST 
NG" AR. HH cms SPRINT " "HCHRE GAS) + 


"FE 
LOCATE 66,13: PRINT"L2 
NG". PRINT" 
LOCATE 66,14: PRINT"c2 
#an.#n;c2; PRINT " 


mu" 


PRINT USI 


{PRINT UST 
"+CHRE (183) + 


3:PRINT USI 


LOCATE 66,15: PRINT"Ih = 


NG"###.##"; Ih5 PRINT" mH 
LOCATE 56,16: PRINT "ch PRINT US 
ING" HH. # :PRINT " "4CHRE (LAS) 


zu" 
RETURN 


»Boxenkit« (Schluß) 


17232] 
[aDAa1 
c5aacı] 
[5C22) 
[BSFEJ 
107661 
C07121 
C1F@4] 
EBB2E] 
CBD@8] 
EDF241 
t2B@C9 


(28501 


CB5261 
[8404] 
161701 
LOS9E) 
CB106] 
[80SC1 
1B70A] 


LCQ4EI 


[64241 
CDSREI 


L7DSEI 
ca5ı2] 
[DD241 
LAsADI 
ECF@81 
[31261 
E5i1acı 


138481 


CBF26] 
EF72A] 
LBDABI 


LEFBEI 


ECDBE] 
cC5901 
[81F8] 
C4F30] 
ESBFCI 


[41321 


C3E161 
CAARCI 


L339C1 
159241 


17136] 
cocagı 


LE352] 
LEsEDI 


13872] 
Laa9Al 
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Aktienkurse für jedermann 


»Shares« hilft jedem, die Kursentwicklung seiner 
diversen Aktien im Auge zu behalten und damit 
immer eine Übersicht zu haben. 
| unters Kopfkissen, sondern setzen auf die eventuell 
hohe Rendite von Wertpapieren. Im Laufe der Zeit sam- 
melt sich so ein ziemlicher Haufen Papier an, der verwaltet 
sein will. Das übernehmen zwar im allgemeinen Banken, 
man selbst möchte sich aber oft auch einen kurzfristigen 
Überblick verschaffen. »Shares« nimmt Ihnen nun diese 
‚Arbeit ab und verleiht Ihnen Übersicht über die Kursent- 
wicklung jedes einzelnen Papiers. Die Bedienung gestaltet 
sich dank der weitgehenden Joysticksteuerung sehr benut- 
zerfreundlich. Eingaben erleichtert außerdem eine deut- 
sche Tastaturbelegung. Die Arbeit mit Shares erfolgt über 
ein Menü, dessen Unterpunkte mit Hilfe eines Pfeilsymbols 
anzuwählen sind. Dazu richten Sie den Pfeil mit dem Joy- 
stick auf den Punkt und drücken die Feuertaste. 
- Laden vorhandener Daten 

Lädt den Inhalt der Datei »SHARES.DAT« zur Bearbei- 
tung in den Arbeitsspeicher. Sie besteht aus bis zu zehn 
Datensätzen für je ein Wertpapier. 

- Dateieninhaltsverzeichnis 

Zeigt nicht etwa Directory des angeschlossenen Mas- 
senspeichers an, sondern für welche Wertpapiere sich 
Daten im Speicher befinden, und wieviele Kursnotierungen 
für jedes Wertpapier vorliegen. 

- Neuanlage einer Wertpapierdatei 

Solange nicht bereits zehn Wertpapieradressen im Spei- 
cher sind, läßt sich eine Datei für ein weiteres Wertpapier 
neu einrichten. Dazu müssen Sie den Namen des Wert- 
papieres, den Zeitpunkt der ersten Kursnotierung und 
diese Kursnotierung selbst eingeben. 

- Aktualisierung einer Wertpapierdatei 

Geben Sie neue Kursnotierungen für ein bereits gespei- 
chertes Wertpapier ein. Wählen Sie das gewünschte Wert- 
papier mit dem Joystick, geben Sie den Zeitpunkt und die 
neue Kursnotierung an und legen Sie fest, ob der Kursin die 
Kursstatistik des Wertpapiers einbezogen werden soll. 
= Kursdaten eines Wertpapiers 

Ausgabe sämtlicher gespeicherter Kursnotierungen 
eines Wertpapiers. 

- Kursentwicklung eines Wertpapiers 

Die Ausgabe beschränkt sich auf die Kursnotierungen, 
bei deren Eingabe Sie angegeben haben, daß sie in die 
Kursstatistik einfließen sollen. Zu jeder dieser Notierungen 
erscheint außerdem die prozentuale Veränderung zur vor- 
hergehenden und zur ersten gespeicherten Kursangabe. 
- Kursgrafik eines Wertpapiers , 

Einen besonders deutlichen Überblick über die Kursent- 
wicklung eines Papiers bietet die grafische Darstellung auf 
dem Monitor, die sämtliche gespeicherten Kursnotierun- 
gen einbezieht. Durch eine Rechts- oder Linksbewegung 
des Joysticks können Sie jeden Punkt der Kurve (entspricht 
einer Kursnotierung) mit Hilfe eines kreisförmigen Cursors 
ansteuern, wodurch Shares den Zeitpunkt und Kurswert 
des jeweiligen Kurvenpunkts am unteren Rand des Bild- 
schirms anzeigt. Durch Druck der Feuertaste gelangen Sie 
zurück ins Hauptmenü. 

- Datensicherung 

Damit Sie nicht nach jedem Start des Programms alle 
Daten neu eingeben müssen, lassen sich die Daten aller 
Wertpapiere als Datei »SHARES.DAT« speichern. 


mmer mehr Menschen legen ihren Spargroschen nicht 


SHARES 


Bitte wählen Sie: 
Laden vorhandener Daten 
Dateieninhaltsverzeichnis 
Neuanlage einer Nertpapierdatei 
Aktualisi 
Kursdaten eines Hertpapiers 
Kursentwicklung eines Hertpapiors 
Kursgrafik eines Nertpapiers 
Datensicherung 
Program beenden 


ung einer Nertpapierdatei 


Kin Program zur Kursbeobachtung von Hertpapieren 


Das Hauptmenü von »Share« 


|#7? Kursdaten eines Hertpapiers Ausgaheende 
Datum Kommentar 
[E ER Tiefstkurs 
148 
18:85 
1.8.86 
17:86 
1:8:86 
1:38:86 
L.86 Höchstkurs 


Genaue Daten zu jedem Wertpapier 


3 Kursentwicklung eines Wertpapier enter ? 
Veränderumn: Gesantverände ms 


67 


| 


Schneller Überblick über die Kursentwicklung 


> Kursgrafik eines Nertpapiers Eannesnanı 
EN 
j. 
\ Sn N 
\ I 
5 
ET E SH 

Zeitpunkt: WERE Kurs: BEBEERRE) 


Die Kursentwicklung ist auch grafisch darstellbar 


105 


- Programm beenden [E&* 
e ER x Steckbrief 
Verlassen Sie Sharesinjedem FallnachderDatensiche- F 
rung über diesen Menüpunkt, denn er beendet die Pro- Programm: Shares 
grammausführung normal und löscht das Programm dabei Computer: 
H h A N e ter: CPC 464/664/6128 
nicht, so daß Sie bei einem versehentlichen Ende mit u 
»GOTO 100«das Programm ohne Datenverlust neu starten. Checksummer:| Explora 
(W. Meier/ja) Datenträger: Kassette, Diskette 
iB REM "SHARES" -— Programm zur Kursbeoba 285 NEXT Z2,Z1:CLOSEINSRETURN 170843 
ehtung von RSS RAR LAGEN CBE241 298 CLS:60SUB 121@:LOCATE 1,2:PRINT p$ 
2® REM (c) Wolfgang Meier, Schinkelstr.2 <4>Dateieninhaltsverzeichnis' SPRINT 
6, D-35348 Wolfenbuettel [4928] IF dz=@ THEN PRINT TAB(1@);"Es sind 
so REM Tel. 85331/72418 L6E46] keine Dateien vorhanden. ":GOTO 328 [E6261 
aa" [8256] 388 FOR z=@ TO dz-1:PRINT TAB(1@); "Name: 
58 INK 8,8: INK 1,24:PAPER 8:BORDER B:PEN "73$(z2,8,0);5 TAB(46);"Gr]”e: "USING 
1:DIM a$ (9,308, 1):dz=@rri=B:DIM S(1) aa" VAL (as iz ‚„B,1))5:PRINT" Element 
:SYMBOL AFTER 64:0N ERROR GOTO 131@ [DF48]1 "s:IF a$tz,B,1)<>"1"THEN PRINT"e! [B8861 
68 SYMBOL 94,%X1111@0,&X11@011@,.X110001 318 NEXT z ctoc1A] 
1a &X11ODL100,&X110Q1110,&X1100011@,% 32@ WHILE INKEY$="":WEND: RETURN TEDEA] 
x11911198,0: SYMBOL 64,0,8X1100110,0,% 338 CLS:G0SUB 1210:LOCATE 1,2:PRINT p$;" 
X110011B,%&X1100110,&X110@110,&X11111@ <4>Neuanlage einer Wertpapierdatei": 
„@: SYMBOL 124,&X1100110,0,&X11@0110,& IF dz<1@ THEN 368 ELSE LOCATE 198,4:P 
X110B110,%:X110@110,&X 110 119,8x11110@ RINT"Leider ist der Speicherplatz vo 
o 1@B621 ilstIndig Belnat nu nRlNT TAB(10);5 "so 
78a SYMBOL 1,&X11001100,0,&X1111000,&X11 da” keine weiteren Dateien mehr ang 
20,&X1111100,&X11001100,&X111@110:SYM elegt werden kinnen." [645E]1 
BOL 123,&X110@110,&X11000,&X111100,&X 348 PRINT:PRINT TAB(18);5"Sollen daher di 
110@0118,%X111111@,8X11@011Q,&:X11@Q11B e vorhandenen Daten gellscht werden 
@: SYMBOL 93 &X110011B,Q,&X11110@,&X1 ? "33 INPUT”",j$: IF LÖWER$(j$)=" ja" TH 
109110,&X1100110,%X11Q0110,&X111100,0 EN ERASE a$:DIM a$(9,300,1) :dz=@ CD7E2] 
[28E6]1 35@ IF INKEY$=""THEN 35® ELSE RETURN [8E78] 
88 SYMBOL 125,&X110@@0110,&X1119000,&X11@1 368 LOCATE 18,4: PRINT"Bitte geben Sie de 
100,%.X11000110 EX110O0110,&X1101100,% n Namen des neu zu registrierenden W 
x111900,0: SYMBOL 251,&X100100,8X1@01o i ein. ":PRINT:PRINT TAB(10) 
SEXLODIRX111,%X1201,8X10010,&X 100100 F „ as(dz,0,B)s IF LEN(a$(dz,® 
‚B: SYMBOL 252,8&X 10000900 ‚X 1800000 ,%X @))=@ THEN RETURN 11226] 
120008 255,8X100000,%X 1000000, 128,8:5 370 Ir LEN (a$ (dz,0,8)) >20 THEN a#(dz,0,8 
YMBOL 253 0,0,0,255,0,0,0,80 L[F1381 )=LEFT$ a4 (dz ,8,0) ‚20) LB1AEI 
90 SYMBOL 254,2,1,8,255,8,1,2,@:SYMBOL 2 38® PRINT:PRINT TAB{1B);"Bitte geben Sie 
55,0,128,&X111000@0,4X111110080,&X1110 ın Zeitpunkt d en zu registr 
a0&0, 128,0,0: p$=CHR$ (251) +CHR$ (252) +C ierenden Kurses ein (5D@61 
HR$ (253) HCHR$ (254) +CHR$ (255) :pl=1:0PE 390 PRINT TAB(1@) 52 INPUT"", aftdz ,3,@:1 
NOUT"X"3MEMORY HIMEM-1:CLOSEOUT [26061 F LENta$ (dz ,5,0))=® THEN PRINT CHR$( 
18@ MODE 2 19050] 11)5:G60T0 398 LFA4AI 
11@ LOCATE 29,1:PRINT"S H AR E S"ıLOCAT aaa IF LEN(a$ (dz,3,0)) >15 THEN a$(dz,3,0 
E 16,3: PRINT"Ein Programm, zur Kursbe )=LEFT$(a$(d2,3,0) ,15) tarcal 
obachtung von Wertpapieren" L99F@] 410 as(dz ,1,0)=a$ (dz ,3,@)sas(dz O)m=ast 
128 LOCATE 23,5:PRINT"Bitte w[hlen Sie:" dz 13,8) PRINTAPRINT TAB(10)5 9 
CACDBı eben Sie den ersten zu registrierend 
138 LOCATE 21,7:PRINT"Laden vorhandener en Kurs ein.":PRINT 158921 
Daten" L3A12] 428 PRINT TAB(1B) ;5PC (78) 1528A] 
148 LOCATE 21,9: PRINT"Dateieninhaltsverz 430 PRINT CHR$(11)3 TAB(1@) 5: INPUT"", es: 
eichnis" [B46E]1 IF LEN(e$)=@ OR e$="8" THEN PRINT CH 
15@ LOCATE 21,11:PRINT"Neuanlage einer W R$(11)5:G0T0 420 138801 
ertpapierdatei" LAB2ZEI 448 zi=0:22=8:FOR z=i TO LEN(e$):IF MID# 
168 LOCATE 21,13:PRINT"Aktualisierung ei (e$,z,1)=",." THEN zi=21+1:G0T0 478 LtEECE]I 
ner Wertpapierdatei”“ L4EAA] 458 IF MID$(e$,z,1)>="@" AND MID$(et,z,1 
178 LOCATE 21,15:PRINT"Kursdaten eines W )<="9" THEN z2=22+1:6070 478 1[3A481 
ertpapiers‘ [18563 468 PRINT CHR$(11)5:G60T0 428 LFAFEI 
188 LOCATE 21,17:PRINT"Kursentwicklung e 478 NEXT z [21281 
ines Wertpapiers" L189A] 488 IF zi>1 OR z2<1 THEN PRINT CHR$(11); 
198 LOCATE 21,19:PRINT"Kursgrafik eines :G0OTO 428 L9B66]J 
Wertpapiers" [D432]3 490 a$(dz,1,1)=eftas(dz ,2,1)=esras(dz ,3, 
208 LOCATE 21,21:PRINT"Datensicherung" [7776] Y=es+t"c"ias(dz,Q0,1)="1":rdz=dz+1:RET 
21® LOCATE 21,23:PRINT"Programm beenden" URN [40481 
TAABBI 5@0 CLS: IF dz=@ THEN RETURN ELSE GOSUB 1 
228 LOCATE 11,p1#2+5:PRINT p$:SOUND 2,38 21@0:WINDOW#Q,1,88,4,25: PAPER#@,8: PEN 
3@,7:WHILE (JOY(B) AND 16)<>16: FOR INDOW#1,1,8@,1,3:PAPER#1,@:PEN 
t=1 TO BB: NEXT t EFF6B] OCATE#1,2 PRINT#1,p$ S>Akt 
238 IF (JOY(@®) AND 1)=1 AND pl>1 THEN LO en arcag einer Wertpapierdatei":M 
CATE 11,p1#2+5: PRINT"<S>"spl=pl-1:L0 RAWR 639, RAWR 8,-47:Di 
CATE 11,p1*2+5: PRINT p$:SOUND 1,p1#*2 : DRAWR 9,4 OSUB 1220 LESFSEI 
0+10,10,5 ELSE IF (JOY(@) AND 2)=2 Aa 5ı8 GOSUB 1218: LOCATE#1 ,58,2: PAPER#1,1:P 
ND pl<9 THEN LOCATE 11,pl#*2+5: PRINT" EN#1,B:PRINT#1 ,n$: APER#1 ,@: PEN# ’ [28191 
<5>":pl=pl+1:LOCATE 11,pl#2+5: PRINT 528 THEN ri=@: RETURN LCABBI 
p$#:SOUND 1,p1*20+10,10,5 [55309 530 IF VAL(a$(dn,@,1))<278 THEN 560 CCACAI 
248 WEND 13508] 548 PRINT TAB(18 Die Kapazit[lt dieser 
258 SOUND 2,78,18,7:BORDER 264FOR t=1 TO Datei ist beı ts voll ausgenutzt,": 
S58:NEXT t:BORDER @:0N pl GOSUB 270, PRINT TAB(1®);"so da” f@r dieses Wer 
290, 530,500, 760,899, 1828, 1170, 1200 L8E68] tpapier keine Daten mehr eingegeben 
260 GOTÜ_ 108 [D144] werden kiInnen." 135543 
278 CLS:ERASE A$:DZ=®:DIM A$(97,300,1):L0 550 IF INKEY$=""THEN 558 ELSE RETURN [B88@0]1 
RINT p$; "<4>Laden vorhande 56@ PRINT [63981 
LOCATE 18,4:PRINT"Bitte s 570 PRINT TAB(1@); "Bitte geben Sie den Z 
tellen Sie sicher, ab Ihre Datencass eitpunkt des neuen Kurswerts ein.":P 
ette":LOCATE 18,5:PRINT"auf den rich RIN LCADE4] 
tigen Z[hlerstand gebracht ist !":PR 588 PRINT TAB(18) : INPUT"" ,f$ [C76E] 
TEAIEI 598 IF LEN(f$)=@® THEN PRINT CHR$(11);5:60 
280 1@);"Dr@cken Sie PLAY, dan TO 588 L1A9EI 
n ENTER. ":WHILE INKEY$<>CHR$ (13 IEN 688 IF LEN(f$)>15 THEN f$=LEFT$(f$,15) L[7EAAI 
D:OPENII shares.dat": INPUT#9,D: OR 618 a$(dn,VAL (a$ (dn,@,1))+3,@) =! 
zi=8 TO dz-1: INPUT#9,A$(Z1,0,0 NP PRINT TAB(1@);"Bitte geben Sie den n 
ne er Die Kursentwicklung verschiedenster Wertpapiere 
9,n$(21,22,1) [12421 haben Sie mit »Shares« im Griff 


10&yww.HOMEcoMmPUTE! 


620 


630 
640 
658 
640 


670 
680 


670 


708 


zıa 
720 


738 


740 
758 
760 


770 
7zea 
790 


a20 
830 


840 
858 
860 


870 
888 
898 


900 
10 


920 
930 


948 


958 


968 


euen Kurswert ein. ":PRINT 

PRINT TAB(10) ;SPC(7@) :PRINT CHR$(11) 
3TAB(1@) 5 : INPUT"" ‚es: IF LEN(e$)=@ OR 
e$="B" THEN PRINT CHR$(11)5:60T0 &2 
8 ELSE z1=@:22=0:FOR z=1 TO LEN(es): 
IF MID$(e$,2,1)="." THEN zi=21+1:G07 
0 658 

IF MID$(e$,z,1)>="@" AND MID$tes,z,1 
)<="9" THEN z S0TO 658 

PRINT CHR$(11) 0OTO 628 

NEXT z 

IF 21>1_OR z2<1 THEN PRINT CHRS(11)5 
:G0T0 620 

a$ (dn ‚VAL (a$ (dn,@,1))+3,1)=e$ 

IF VALce$)>VALtasldn,1,1)) THEN astd 
n,1,D)=f$:a$(dn,1,1)=e$:SOUND 1,38,5 
B,T:1PRINT:PRINT TAB(18); "Neuer Hichs 
tkurs !" ELSE IF_VAL(es)<VAL(a$(dn,2 
‚1)) THEN a$(dn,2,9)=f$:a$(dn,2,1)=e 
$:SOUND 1,408,5@0,7:PRINT=:PRINT TAB(1 
8) ;"Neuer Tiefstkurs !" 

PRINT:PRINT TAB(1@);"Soll der neue K 
urs in die Kursstatistik einbezogen 
werden ?":PRINT:PRINT TAB(1®) ; 

k$=LOWER$ (INKEYE) L IF kb=" 5 
T"ja":60T0 71B ELSE IF k#= 
RINT"nein":B0T0 728 ELSE 708 
a$(dn,VAL(a$(dn,@,1))+3,1)=a$tdn,VAL 
Kat (dn,2,1))+3,1)+ 

as (dn ‚8, 1)=STR$ (VAL (as (dn,@,1))+1):P 
RINT:PRINT"Wollen sie f@r dieses Wer 
tpapier weitere Daten eingeben, dr@c 
ken Sie ENTER,<5>andernfalls die Feu 
erta fi 
IF INKEY$=CHR$ (13) THEN CLS:60T0 5380 


IF_(JOY(B) AND 16) <>16 THEN 730 
RETURN 
CLSs IF dz=@ THEN RETURN ELSE GOSUB 1 
210: WINDOW#G, 1,80 ,6,25: PAPER#@,@: PEN 
#Q,1:WINDOW#I ‚1,84, 1,5: PAPER#1,@: PEN 
#1)1:LOCATE#1 ,2,2: PRINT#1 ,p$} Kur 
scäten eines Nartnapiers"ihüve 8,397 
:DRAWR 639,0: DRAWR 8,-47:DRAWR -239, 
0: DRAWR @,47:G0SUB 1228 
GOSUB 1216 
IF ri=1 THEN ri=@: RETURN 
PAPERH1 , 1: PEN#1 ‚0: LOCATE#1 ,40,2: PRIN 
T#1,n$: PAPER#1 ‚Ös PEN#1,1:MÖVE 49,341 
TAG: PRINT"Datum";: MOVE 216,341: TAG 
:PRINT"Kurswert";:MOVE 408,341: TAGıP 
RINT"Kommentar "; ı TAGOFF:MOVE ®,325:D 
RAW 639,325: Lc=@: HIN=@: TIN=-@:D=VAL (a 
$(dn,0,1)) 
FOR z=i TO VAL(as(dn,@,1)) PRINT TAB 
(7) Ha$ (dn,2+2,@);: PRINT TAB(28) 5USIN 
G"ahnnn. HA" VAL (a$ (dn ,2+2,1)) 5 
IF VAL(a$tdn,z+2,1))=VAL(astdn,1,1)) 
AND HIN=@ THEN PRINT TAB (52); "Hichs 
tkurs"saHIN=1 ELSE IF VAL(asdn,z+2 
1))=VAL (a$dn,2,1)) AND TIN=@ TÜEN 
PRINT TAB(52) ; "Tiefstkurs";: TIN=1 
lc=lc+l 
IF 1c=29 AND D<>z THEN 1c=@:LOCATE#I 
‚70,2: PRINT#1, SOUND 1,48,3 
&,7:WHILE INKEY+<>CHRE (13) aWENDILOEA 
TE#1,70, 2: PRINT#L, 
ıF (dJovi@) AND 16) 
NEXT z 
LOCATEP1 „64,2: PRINT#1, "Ausgabeende": 
SOUND 1,200, 30,7 
IF_INKEY$= 
RETURN 
CLs 
IF dz=@ THEN RETURN 
GOSUB 1210: WINDOW#G, 1,88,6,25:PAPER# 
@,0:PEN#@,1:WINDOW# ‚1,88, 1,5: PAPER# 
PEN#L, 2,2: PRINT#1,p%5 
Kursentwicklung eines Wertpapier 
s"ıMOVE 0,399: DRAI 239.0: DRAWR 4 
7:DRAWR -239,@:DRAWR 8,47: G0SUB 1228 
:G0SUB 1218 
IF ri=1 THEN ri=@: RETURN 
PAPER#1 ‚1: PEN#1 ‚B: LOCATE#1 ,45,2:PRIN 
T#1,n$: PAPER#1 ,Ö: PENW1,1:MÖVE 8,341: 
TAG: PRINT"Datum"; :MOVE 176,341: TAG: P 
RINT"Kurswert";:MOVE 288,341: TAG:PRI 
NT"Ver [nderun: MOVE 416,341: TAB:PR 
IN IGHaREVer Er derng" TÄBOFF : MOVE 
@,325:DRAW 639,325 
D2VAL(a$ (dn,@,1)):lc=Bın$="":FOR z=1 


TO O:IF RIGHTS (A$ (dn,2+2,1) ,1)<>"c" 
THEN 98@ 

y$=a$ (dn,z+2,1):PRINT TAB(2) ;a$(dn,z 
+2,80): PRINT TAB(23) ; USING" #####. #4" 
3VAL(y$) IF x$<>""THEN PRINT TAB(S6 


CD7F&1 


[62381 
[D&481 
LF3@23 
[C3281 


CA15A] 
L&B4E] 


L93EAI 
LEBDB] 


[D7941 
L7EIEI 


CD3641 


t1AFB] 
CA9641 
[BES] 


CAB®2] 
CAS44] 
C1C18] 


10958) 


CAD6AI 


CB@7A] 
139E2] 


CDFBEI 
[9ABBI 
LES2CI 


CDEC2J 
Cac@21 
[C14@1 
[88461 
C@B941 


159DA] 
176881 


135881 


LE4BB1 


(y$) /VAL(a$(dn,3,1))-1) #108; sPRINT"Z 
"zsx$ey$ile=lc+l:IF 1c=2@ AND 0<>2 T 


HEN le=: LOCATE#1 ‚78,2: PRINT#1,"ente 
r_?":SOUND 1,48,30,7:WHILE INKEYS<>C 
HRS (13) :WEND!LOCATE#1 ‚70,2: PRINT#1," 
272" 
978 IF (JDY(@) AND 16)=1&4 THEN 1918 
gaQ NEXT z 
97@ LOCATE#1,67,2:PRINT#1,"Ausgabeende": 
SOUND 1,200,38,7 
1808 IF INKEY$="" THEN 1888 
181@8 RETURN 
1822 CLS 
1@3@ IF dz=@ THEN RETURN 
1948 GOSUB 121@:PRINT p$; "<4>Kursgrafik 
eines Wertpapiers":G0SUB 1220: GOSUB 
1210: IF RI=1 THEN RI=Q:RETURN 

1050 CLS:PRINT PS; "<4>Kursgrafik eines _W 
ertpapiers":PAPER 1:PEN G:LOCATE 50 
„1:PRINT A$(dn,®,@):PAPER Q:PEN 1:0 
RIGIN 3,4@:MOVE "1,-2:DRAWR 435,0,1 
:DRAUR 8,338: DRAWR’ -435,@: DRAWR @,- 
338:ec=VAL (a$(dn,@,1))stk=VAL (a$ldn 
12,1) hk=VAL (a$tdn,1,1)) 

1960 ERÄSE s:DIM s(ec):FÜR z=1 TO ecıs(z 
)=VAL (a$ (dn,2+z,1)):NEXT zeIF EC>1 
THEN xd=633/ (EC-1) 
187@ yd=(hk-tk) 7335 
199@ IF yd=® THEN yd=1:TK=S(1)-166 
189® PLOT ®,ROUND((s(1)-tk)/yd)ıFOR z=2 
TO ec:DRAW ROUND ( (z-1)*xd) „ROUND ( (s 
(z)-tk)/yd) sNEXT Z:LOCATE 1,24:PRIN 
T"Zeitpunkt: ":LOCATE 41,241 PRINT"K 
urs: ":PRINT CHR$(23) 5CHRF(1)ESn=1 
PAPER 1:PEN @:G0T0 111@ 

1198 IF (JOY(@) AND 4)=4 AND sx>i THEN G 
OSUB 116@:5x=sx-1 ELSE IF (J0Y(@) A 
ND 8)=8 AND sx<ec THEN GOSUB 116dıs 
x=sx+1 ELSE 1158 

111@ GOSUB 1168 

112@ SOUND 1,48,18,6 

113® LOCATE 12,24: PRINT" "ZUSING"\S1S2\" 

3a* (dn,sx+2,0) 

114@ LOCATE" 47,24: PRINT" "USING" Annnn.M 

#"j5(ex) 
115@ IF (JOY(@) AND 16)<>16 THEN 1100 EL 
SE PRINT CHR& (23) ;CHR$ (®) } 1 PAPER Qı 
PEN 1:RETURN 

116@ gx= ROUND ( (sx-1)*xd)-11gy=ROUND( (8 ( 
SR) TER) /ya)rbıPLOT guyaysPLOTR 1,08 
PLOTR 1,0:PLOTR 1,-2:PLOTR 1,-2:1PLO 
TR @,-2:PLOTR @,-2:PLOTR -1,-2:PLOT 
R -1,-2:PLOTR -1,0:PLOTR -1,@: PLOTR 
-1,2:PLOTR -1,2:PLOTR @,2:PLOTR &, 
2:PLOTR 1,2: RETURN 
1170 CLSSLOCATE 112: PRINT ps} "64>Datensi 
cherung":LOCÄTE 18,4: PRINT"Bit 
ellen Sie sicher, ob Ihr 
ette":LOCATE 18,5:PRINT" 
htigen ZChlerstand geb: 
118@ PRINT:PRINT TAB(1®) 5 "Dr 
C und PLAY, dann ENTER. 
119@ WHILE INKEYS< >CHR$ (13) :WEND:SPEED W 
RITE_1:0PENOUT"!shares. dat": PRINT#F 
dz:FOR zi=@ TO dz-1:PRINTN9,as(z1 
&,@) :PRINT#9,a$(z1,@,1): FOR z2=1 TO 
VAL (a$ (z1,0,1))+21 PRINTH9,a$ (z1,22 
„@) :PRINT#9,a$(z1,22,1):NEXT 22,21: 
ELOSEQUT : RETURN 

1208 CLS:GOSUB 121@:LOCATE 1,2:PRINT p$; 
"<a>Programm beenden" :PRINT:PRINT:P 
RINT:END 

121®8 IF INKEY$<>""THEN 1218 ELSE RETURN 

122@ PRINT:PRINT TAB(1@); "Bitte wChlen 8 
ie das gen@nschte Wertpapier: ":PRIN 
Tıpe=1:PRINT TAB(4);:PRINT TAB(11); 
p$3 : j=VPOS (49) -1:FOR z=@ TO dz-1:PR 
INT TAB(Z1);5a%(z,@,@):NEXT z:PRINT 
TAB (21) 4 "HAUPTMEN! 

123@ WHILE (JOY(@) AND 16)<>16 

1248 IF (J0Y(@) AND 1)=1 AND pe>i THEN L 
OCATE 11,pe+3:PRINT"<5>":pe=pe-1:LO 
CATE 11,Ppe+itPRINT p$:S0UND 1,pe*2@ 
+38,10,5 

1258 IF (JOY(®) AND 2)=2 AND pe<dz+1 THE 

N LOCATE 11,pe+j:PRINT"<5>":pe=spe+1 


:LOCATE 11,pe+j:PRINT p$:SOUND 1,pe 
*28+38,18,5 

1258 FOR t=i TO S@:NEXT t 

1278 WEND 


1288 IF pe=dz+1 THEN ri=1:60T0 1398 

1298 dn=pe-1:n$=a$ (dn,2,8) 

13@@ CLS:RETURN 

131@ CLS 

1328 ON ERROR G0TO 1318 

133@ GOSUB 1218:SOUND 1,58,20,4:MODE @:L 
GCATE 3,12:PRINT"Speicher voll !": 
OR w=1 TO 15@G:NEXT w 

1348 IF INKEY$="" THEN 1348 ELSE RESUME 
188 


»Shares« verwaltet Ihr Vermögen (Schluß) 


E14A81 
[D&B43 
[24341 
L9BDBJ 
L72CA] 
[8784] 
LarBal 
tacsA] 


{898C1 


LEBREI 


LDDD8I 
C65F81 
[83A21 


L9F16I 


CF8941] 
14296] 
1927A] 
12354] 


L61F@] 


LCB6AJ 


L&CFBI 


caAıaı 
tcAascı 


112861 


109341 
CıDaz1 


L6SECI 
[63301 


c@4DC1 


LEEECI 
[DEAEI 
[1858] 
CBQEAI 
EB12E1 
L3ECBI 
LIEBE] 
LSFD&J 


tDCSCI 
LS@BCI 


107 


SS 


ze 


Datenexpreß 


Eine Speichererweiterung als RAM-Floppy ist 
schon etwas Feines. Ohne geeignetes Programm 
nutzt sie jedoch herzlich wenig. 


ine Speichererweiterung ist Retter in der Speicher- 

platz-Not, sofern sie über ein intelligentes Betriebs- 

system verfügt. Aber auch dann gilt der Grundsatz: 
Ohne Software nutzt die leistungsfähigste Hardware rein 
gar nichts. Aus diesen Überlegungen heraus entstand das 
Programm »RAMDISK« für die. Vortex-Speichererweite- 
rungen. 

Eigentlich besteht »RAMDISK« aus einem ganzen Pro- 
grammpaket: »RAMDISK.BAS« (Listing 1) aktiviert das 
Bank-Basic und enthält auch die Dokumentation. (Diesen 
Teil dürfen Sie weglassen, wenn Sie vor dem Laden des 


ben. Wenn Sie später einzelne Datensätze aus der Datei 
löschen wollen, dürfen Sie keinesfalls versehentlich diese 
Löschung doppelt vornehmen. Bei der Suchfunktion ist es 
nicht nötig, den Suchbegriff exakt vorzugeben. Mit der Ein- 
gabe »Dampf« finden Sie so beispielsweise nicht nur die 
Dampflok, sondern auch die Dampfmaschine. Auch sta- 
tistische Auswertungen sind machbar, da das Programm 
Summen berechnet. Nach jedem Speicher-Vorgang wird 
automatisch ein »CAT« ausgeführt, so läßt sich bei Verwen- 
dung eines Kassettenrecorders als Speichermedium die 
korrekte Datenaufzeichnung überprüfen. 

Noch ein kleiner Hinweis zur Eingabe der beiden »RAM- 
DISK.RAM«-Teile: »RAMDISK.BK1« kommt in die Bank 1 
(vorher mit »IBANK,1« aktivieren) und »RAMDISK.BKO« in 
Bank 0. Beim Speichern mit der oben erwähnten Befehls- 
folge entstehen dann daraus die Dateien »RAMDISK. 
RAM«, »RAMDISK.BKi« und »RAMDISK.BKO«. 

(Karlheinz Battermann/ja) 


zweiten Teils mit »IBOS« manuell umschalten.) »RAM- Steckbrief 
DISK.BOS« (Listing 2) übernimmt die Definition des deut- 
schen Zeichensatzes, Tastaturbelegung und Farbzuord- | Programm: RAMDISK 
nung. »RAMDISK.RAM« besteht aus den beiden Teilen Computer: CPC 464/664 
»RAMDISK.BK1« (Listing 3) und »RAMDISK.BKO« (Listing 4). | Checksummer:| Explora 
Diese zwei letzten Listings geben Sie zusammen ein und £ R 
speichern sie mit »A$= "RAMDISK.RAM”: SAVE, @ AS«. Datenträger: Kassette, Diskette 
Bei der Arbeit mit der Datei müssen Sie beachten, daß 5 = 5 
Sieimmer das erste Datenfeld jedes Datensatzes beschrei- Besonderes: nur mit Vortex-Speichererweiterung 
19 "RR 2a. COMMON-Variablen- 
cams | a Ohio nen HERE 
2a ° = RAM eitschleife 
en mE BIEK nes | Steger Tastatur (INKEY) 
zB Xu Br - Abfrage LaEA2I 
terccı | 32@ : es,#8,94,h$,i$ Text fuer Windon 
48 '*** Fuer SCHNEIDER CPC mit En 2 EB448] 
een Eingabe von Progr 
58 '»** VORTEX RAM-Erweiterungen xxx Paz "Dateikarten-,Spaften Nr. t2E081 
tE3C23 348 ° rd Ram Disk noch ‚fre 
60 'x** SP&4/M und SP&4-512 a. i? nein/ja x [50601 
[2CD61 358 ' ns Dateiname EDIF23 
70. RR 368 ' das Dateidatum ._ [32561 
ae esse ie Anzahl der Dateis 
88 'x*** (c) Karlheinz Battermann ... nakten [SES63 
Een Dan tGchutevarguelen oe > rzreei 
h : palten B 
ee ParEn oeag ren Esser 5.5 Anzahl Buchstaben no. 
Ei - Hal ateispalte 4D! 
100 '##** 3422 Bad Lauterberg 1». es 4200 Eingabe Anzahl Bu 
one ae ve chstaben pro Spalte ueber Monitor/Ca ee 
14682] a 
120 RR an Buchstebenzumge a 
Br Ier Dateispalten fuer ıramapen-Befe 
Heat EDrB61 | ana "ar Anzahl der maegli EAN 
1AD /ansnnnurenennnnnsssnneneeneennnne 1ER nen. Dateikarten (raczt) S tsDanı 
. ateikarten Nr. [S2E. 
150 '##* RAMDISK.BAS | As ß hoechste eingegeb 
160 RR ene Dateikarten Nr. ESFaAI 
sa | A Hilfsvariable fue 
aa tosBer | 44, 7 Pateikartenbearbeitung gg, Ferscı 
% a ä a Infangsnumner 
EL ei HE A a FRE ngabe in Dateikarten,Suchen,Drucken? _., 
; t 
Eh EC BEETR ee ereeı 04780 Endnummer <ei 
Eaah I ngabe in Dateikarten ‚Buchen ‚Drucken? 
210 !Bos Te N ED 
zieh ern $ Jateneingabe 122443 
2301 498 " bb Kontrolle der Dat 
BEA eneingabelaenge (Buchstaben pro Spal 
Yard usseR | 00 "dis - dıss nenn 
Bann Ro na Er.oyr Jam Dokumentekl om en Dateispalten tecsaı 
Er aa | Hain ra Hilfsvariable in 
2507ER WINDOW 2 — INPUT (Zeilenansteusrung) 
EZ 12 a a ZZ Zn nn zn nn SS SS SS EI 2 2 2 2 . 202 a 
hate [Sn VE ee 
BEI EHE ee N ne] SB’ bs) Feld fuer Bezeich 
“.r* a RT t8c581 TIEREN 4 . ED3F6I 
270. RR se" b = a Buzeichnmingenzmin fi 
Pie ee gegeben? _ nein/ja 7FE&I 
Kr LADBBI 552 ° di(18,2) Feld fuer geloesc 
288 ern hte Dateikarten L893A1 
ER duerfen nur einmal durchlaufen wer SE Zaun are Anct ERS 
LSEBEI | S7a27 22 Zaehler beim Such 


1083yww.HoMEcoMPUTE 


EL 
en geloeschter Dateikarten [62BCI | 668 ' =ma Suchwort gefunden 
sa8 ' sis Mass-Einheit der ? nein/ia t28F81 
Inventarsummen 190443 | 678 ' ud Suchwortdurchlauf 
598 " ks,kls,k Inventareinheit { bei 2 Suchwoertern LAsFAI 
DM„kg,m usw) tc6F8I | 688 ° zz Zeilenzaehler b 
600 ' St#,stis,st Stueckzahl LC3C23 m Dateiausdruck Larazı 
ea ‘ si Inventarsummen we 690 ' =2 Hilfsvariable bei 
Icher Dateispalte ermitteln LıDası m Ausdruck einer Datei mit 4-18 Spal 
620 * =z Stueckzahlen wele ten LFOCAI 
her Dateispalte ermitteln 139961 | 7e@ ' dz Leerzeile nach Da 
630 ' su Inventarsumme (k* teikartenausdruck? nein/ja 191501 
st) tınası | 71a 
640 * sw,swl,sn2 Laenge des Suchwo PPPbbPPPPEbPPPFREKPREREbPPUL EP 
rtes [D&B23 ... 17D@61 
650 " sws,snl$,sn2%$ Name des Suchwort = 5 
es 18536] Listing 1. Information für Wissensdurstige 
10. HH 30@ KEY DEF 26,1,64,126 CEE961 
tezecı | sı@ ' TEIB&] 
28 ... MULTI — RAM DISK ... 32@ ‘**#* Die "TAB"-Taste zusammen ##** L[6EC6] 
Lasıaı | 330 '*** mit SHIFT gedrueckt er- *** [DSC6] 
30 #0 u. 348 '*** gibt den Befehl zum ***  LADBZI 
terccı | 35@ '*** "LISTEN" des Programmes! *#** LF4501 
48 ‘#** Fuer SCHNEIDER CPC mit ... Ei caacaı 
C1s9cı | 37@ KEY 141,"MODE 2:PEN 1:PAPER @rCLS:LI 
Ss® ‘*** VORTEX RAlt-Erweiterungen #** ST"+CHRE (13) LSEA6] 
tesczı | se@ ’ LaACca] 
&0 '*#* SP&4/M und SP64-512 ... 398 '*#* Die "TAB"-Taste zusammen #*** [2DD41 
[20061 | 408 ‘*** mit CTRL gedrueckt x“ [5928] 
7a SZ EEE Ei 418 '##* #uehrt nach einem BREAK **# LABE6]JI 
tcB183 | 428 '*** usw. ohne Datenverlust *#*#* LEB22] 
88 ‘*** (c) Karlheinz Battermanın ##** 438 '*** zum Hauptmenue zurueck! «*##* L[29BB] 
163263 | 448 ° LEABEI 
90’... Weissdornneg 20 wu. 45® KEY 142,"G0T0 18"+CHRS(13) [B&CBI 
trsıeı | 46@ KEY DEF’68,8,9,141,142 LAECCH 
100 au 3422 Bad Lauterberg - 1 *** 470 ' tESCa] 
c77a2ı | 488 ‘*** Initialisierung *** CA71EI 
110 '00* Tel. 85524/2538 u. 290° [B1CB) 
cas021 | 5@@ MODE 2:BORDER @: INK @,1HINK 1,15 caD781 
1201ER 51® WINDOW 1,88,1,3:PEN BrPAPER 1:CL8:LO 
(F2393 CATE 22,2: PRINT"* #(2 SPACEIM UL T 
130 * EDFB&J 12 SPACEI-(2 SPACEIR A M(3 SPACEID 
FT TEELLEPEPEELEUePOe error rer Peer rer rer 1 8 Kt2 SPACEI« «" EFsaAI 
trasaı | 52@ WINDOW 1,88,23,25:CLS:PRINT:PRINT"Pr 
150 "#0 RAMDISK.BOS ... ogramm(2’SPÄCEI* RAMDISK.RAM #(2 SPA 
L946C1 CE)wird geladen!{2 SPACE}Bitte warte 
160 HH u... nern tEaaeI 
LAASB] 53@® WINDOW 1,8@,4,22:PEN 1:PAPER B:CLSıl 
170 t@SBEI OCATE 1,4: PRINT STRING (88, "-") 1LOCA 
180 '**#* deutsche Zeichen ###* EB32E1 TE 1,141PRINT STRING$ (80,"2") tD9BBI 
190 t@sc21 | ss@ LOcATE 19,7:PRINT"Ein universelles D 
200 SYMBOL 91,198,16,56,108,198,254,198, atei-Programm mit RAM DISK 177e81 
a tatıcı | S5@ LOCATE 8,9:PRINT"f}r SCHNEIDER CPC m 
218 SYMBOL 92,102,56,108,198,198,188,56, it VORTEX RAM-Erweiterungen SP64/M u 
a 176861 nd_SP&4-512" Lar7EI 
220 SYMBOL 93,102,0,102,102,102,1@2,60,8 56@ LOCATE 26,13:PRINT"(c) 1986 by kabas 
LIES6I oft-computing" LB6561 
230 SYMBOL 123,1@2,0,12@,12,124,204,118, se ' LESCEI 
a t@sa2) | 500 '*** Programm > RAMDISK.RAM < x#** [74301 
240 SYMBOL 124,1@2,8,40,102,1@2,182,48,@ 598 '»#* nachladen .... ““* LSCZEI 
LES361 | 800 ‘==* Progr. *** [40201 
25@ SYMBOL 125,102,0,102,1@2,1@2,102,59, 618 '*** wird hierbei gelo **  EB7ZAEI 
a ta9ası | 620 - T@EBEI 
240 SYMBOL 126,120,198,198,252,198,198,2 &3@ WINDOW 27,68,28,2@:CLS:p$="RAMDISK.R 
48,192 Laa2a1 AM": IRUN,@p$ LS9EEI 
270 KEY DER 17,1,125,91 LFBICH 
EF 19,1,124,9) [OBASI 
290 KEY DEF 22,1,125,93 tacaaı | Listing 2. Nun »spricht« Ihr CPC deutsch 
10H 14@ |RAMWRITE,@,@d1$,@d24 ,@d5$,@d4$ ‚@d5$ 
182801 „@d6$,‚@174,6d8$,@49$ ,&d18$,@d11$,@di 
20’ MULTI - RAM DISK u. 25 ‚@dis$,@d144,&d15$ L74EC1 
L481@) | 158 IRETURN 167241 
30 HH 188 ' [Q4BC1 
te41@) | 17@ '=** RAMREAD Daten lesen x#* 187743 
“2 EC8961 | 180 ° [ascal 
EEE PPUPTERUEUDREREDU DEE DDr 198 ON s-4 GOTO 2@8,218,229,230,240,250, 
L4E141 260,270, 288, 290,308 [SBE@I 
Pe RAMDISK.RAM ar. 208 {RAMREAD,z,@d1$,@d2$ ,@d3$,@d4# ,@d5$: 
158441 RETURN CıDsaı 
70 tw Bank 1 ... 218 !RAMREAD,z ‚@d1$,@d2%,@d3$,@d4$,@d5s, 
LB8EE1 @d6$: RETÜRN 117891 
BB HH 228 !IRAMREAD,z ‚@d1$,@d2$,@d3$,@d4$,@d5$, 
LF11AI 16% „807%: RETURN LEF@B1 
a. ICEABI | 238 !RAMREAD,z,@d1$,@d2$ ‚@d3$,@d4$,@d5s, 
198 '#** Initialisierung x#** [44881 @d6$ ‚@d7$ ‚@dB$: RETURN T1E621 
11m EDDB21 248 !RAMREAD,z ,‚@d1$,@d2$,@d3$,@d4$,@d5$, 
120 Programmziffer oder >ENTER< dr>c @d6$ ‚847% ‚@dB$ ‚@d7$: RETURN TaCBEI 
$="(2 SPACEI—-> Taste >I< dr 258 !RAMREAD,z ‚@d1$,@d2$,@d3$,@d4$ ‚@d5s, 
i$=" Bitte warten “ 122021 @d6$,@d75 ‚@d8$ ‚849% ,&d1@$: RETURN L9D&AI 
138 268 !RAMREAD,2,@d1$,@d2%,@d3s,@d4%,@d5$. 
188321 Listing 3. Inhalt der Bank 1 
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@d6$ ‚@d7$,@dB$,@d94 ,@d10$,@d11$:RETÜ 1138 st$=d14$:60T0 1158 L3CE8] 
RN 128183 | 114@ st$=d15$ [42381 

270 IRAMREAD,z ‚@d1$,@d2$,@43$,@44$ ‚@d5$, 1158 k=VAL (k$) 1st=VAL (st$) ssumsurkkst [B1BAl 
@d6$ ,@d7$ ,EdB$ ‚@d9% ,‚Ad1iD$,@di14,@di2 1168 RETURN [C&901 
$: RETURN tzacgı | 1178 ' [B4201 

280 IRAMREAD,z ‚@di$,@d24,@d43$,@d4$ ,@d5$, 1188 ‘*** Datei-Inventarsummen ermittel 
@d&$ ‚@d7$ ‚&dB$,&d9% ,&d1Bs,@d11$,@d12 n #.. CARE 
% ‚@dl3$: RETURN teszaı | 1190 ' EB6241 

29@ IRAMREAD,z ‚@d1$,@d24,@d3$,@d4$ ,@d5$, 1208 CLS: ZONE 23 EF78B1 
@d6$ ‚@d7$ ,@dB$ ‚@d9% ‚Ed194,@d11$,@d12 121@ PRINT:PRINT,"Berechnung von Inventa 
$,@d13% ,@d14$: RETURN CB42E1 rsummen" : PRINT „STRING$ (29 ,"-") LSCBEI 

300 !RAMREAD,z ,‚@d1%,@d2$ ‚@43$,@d44 , @d5$ 122@ PRINT:PRINT,"Es kinnen die Inventar 
@d&$,@d73 ,@dB$ ‚6494 ,@d10$,@di14,@d12 summen, die" L9DC6I 
*,@d13$,@d14$,@d15$:1 RETURN t13D2] | 1238 PRINT:PRINT,"in jeder beliebigen Da 

sıo ' LE1B61 teispalt, L9@C21 

320 '### WINDOW 2 x [FS@4] 1248 PRINT:PRINT,"stehen d’rfen, berechn 

330° EDFBAI et werden toBaB1 

348 WINDOW 1,80,23,25:CALL &BB9C:CLS t7sAB) | 1258 LOCATE 1,11:PRINT,">1<{2 SPACEInach 

350 PRINT:PRINT’#% E1C6C) 1 Suchwort": PRINTEPRINT,">2<2 SPA 

360 WINDOW 1,80,4,22:CALL &BBIC EFF@4] cE3nach 2 Suchwirtern":PRINTZPRINT, 

37@ RETURN [A634] ">3<12 SPACE)der Gesamtdatei" LArcel 

z8Q ' CBACAI 1260 f$=e$:G0SUB 39@:pi=p:IF pi<i THEN | 

390 '*%# WINDOW 2 - INPUT ##* EBCOCI RETURN ELSE IF p1>3 THEN 1268 [23862 

ao0 COBB6] 1270 f$="Inventarsummen welcher Spalte e 

410 WINDOW 1,80,23,25:CALL &BBICHCLS £769C3 rmitteln?{2 SPACEINr.":GOSUB 398: si 

420 PRINTEPRINT #4" "5 EccrcI =pıIF si<i THEN 1240 ELSE IF si>15 

43@ IF d=1 THEN LINE INPUT d$: IF LEN(d#) THEN 1278 ccA721 
>2@ THEN A1B ELSE 458 15316] 1280 f$="Inventarsummen der Spalte"+STR% 

449 INPUT"",p EC65@1 (si)+" sind in welcher Ma“einheit ( 

45@ WINDOW 1,88,4,22:CALL &BBICHd=@ c911AJ DM,kg,cm) angeben?" :d=1:G0SUB S9B: = 

468 RETURN LA?341 is2d LOABEI 

470 LESCA] 1298 f$="Gibt es zugehlrige St}ckzahlen? 

488 '### INKEY - ABFRAGE ##% LB@68] "+h$:GOSUB 328: GOSUB 48@: IF t4C>"J" 

490 tB1C8] THEN sti# :G0TO 13180 179421 

5@Q t$=INKEY$: IF t4="" THEN 500 [2768] | 1308 #$="Die zugehtrigen St}ckzahlen st 

512 t#=UPPER$ (t#) CB148] hen in welcher Spalte?(2 SPACEINr 

520 RETURN tAAZEI :GOSUB 39@:sz=p:IF sz<i THEN sti$= 

ErT E@7BE] *" ELSE IF sz>s THEN 1300 L69E61 

548 '##* nach Suchwort suchen ##*#* [53361 131@ IF pi=3 THEN swa=1:60T0 1370 L6C561 

EB LE1C2] 1320 f$="Bitte Suchwort eingeben! "ıd=1: 

560 IF sw+=LEFT$(di$,sw) THEN 758 LFESE] GOSUB 390: swi=LEN (d$) sswi$=ds: IF SW 

570 IF sw$=LEFT# (d2$,sw) THEN 758 [5B623 1$="" THEN sti$="":G0T0_ 1208 1A7761 

580 IF sw$=LEFT$(dS#,sw) THEN 758 L8C66] 133@ IF pi=2 THEN f$="Bitte 2.Suchwort e 

590 IF sws=LEFT$(dA$,sw) THEN 758 L196AJ ingeben! ":d=1:G05UB 398: su2=LEN (d$ 

608 IF sw+=LEFT$(dS$ 758 [285C1 Jasw24=ds: IF sw24="" THEN 1338 ELSE 

618 IF sws=LEFT4 (de$,sw) THEN 758 [03683 1358 [89661 

620 IF s<7 THEN 740 [OIAEI | 1349 #$="Suchwort {2 SPACEI* "+snis+" #2 

630 IF sus=LEFT$ (d7# 758 LAS66] SPACEI-(2 SPACE)SUmmen werden ermi 

648 IF sw+=LEFT#(dBs, 758 EICaAI ttelt!"+i4:G0SUB 328: G0T0 1380 EoDcEI 

658 IF sws=LEFT4 (d9$,sw) THEN 758 L&B6EI 1358 g$="Suchwirter (2 SPACEI* "+anisr" * 

660 IF s<1@ THEN 748 LEEOAI {2 SPACE}und{2 SPALEI® "+sw26+" #"'r 

670 IF sws=LEFT$(d1@$,sw) THEN 758 L2FC23 IF switsw2 >23 THEN 136@ ELSE f#=g% 

&8@ IF sw$=LEFT$(dil#,sw) THEN 758 157C61 +" (2 SPACEI-(2 SPACE)SUmmen werden 

690 IF sws=LEFT$(di2#,sW) THEN 758 EF7CAI ermittelt!"+CHR$(1®) +CHR$ (13) +"Bitt 

700 IF s<13 THEN 748 E7Ad6I e warten . :G0SUB 320:60T0 1380 LE7D41 

710 IF sws=LEFT$(dISs,sw) THEN 758 [BABEI 136@ #$=g$+CHR$1@) +CHR$ (13) +"Summen wer 

720 IF sws=LEFT$(d14$,sW) THEN 750 £D2C23 den ermittelt!"+i$:G0SUB 3206010 1 

730 IF sws=LEFT# (diS$,sw) THEN 758 [EEC&I 338 1754A] 

740 swa=@: sud=@: RETURN ESF@4] 137@ f$="Inventarsummen werden ermittelt 

7580 swa=lzIF p1<>2 THEN RETURN taDF41 1"+i$:GOSUB 320 C7F721 

760 IF swd=® THEN sweaw2:swsman2s:swdel: 1388 FOR z=1 TD z1:G0SUB 17@: IF pi<3 THE 
G0TO 568 147843 N_suaswliswsesnl$:GOSUB 540 170781 

770 swd=@: RETURN CC@261 1398 IF swa=@ THEN 1400 ELSE GOSUB 790 [OE&2I 

7a0 ' EB2CC1 14@@ NEXT:LOCATE 1,1@: PRINT CHR$(2@) CHR 

798 '*** Inventarkosten addieren x***  [A1S41 sm LEEAGI 

suD ' C1QBE] 1418 PRINT:PRINT,"Die Inventarsummen der 

810 IF ki4="x*" THEN k$="1":G0T0 988 E2D&E1 Spalte"zsifIF pi=1 THEN PRINTSPRIN 

820 ON si GOTO 830,848,850,860,870,880,8 T,"zum Suchwort (2 SPACEI* "zswil#} 
90,900,910,920,930,940,950,760,77@ L&FD41 “ 173003 

830 K#2d1#:C0T0 988 LAAEBI 1420 IF pi=2 THEN PRINT+PRINT,"zu den Su 

840 k$=d24:G0T0 980 [Ssec] chwirtern":PRINT3PRINT,"* "zuwi# 

858 k4=d3$:G0T0 988 tecraı #(2 SPACE)undt2 SPACEIK "zaw24" #" 

860 k4=d4$:G0T0 980 L37F4] T4DABI 

878 k#=d5$:G0T0 988 L16F8] 1438 PRINT:PRINT,"betragen ins: mt =" 

BUN k4=d6$:G0T0 780 LiIFCI FÜSINGTRAHHÄ. MN" LSOFEPRINT” "mit [44901 

890 k$=d7$:G0T0 788 [FF@B1 1448 f$="Weiter?(2 SPACEI--> Taste dr)ck 

900 k+=dA$:G0TO 988 [33F2] en!":GOSUB 320: su=d: CALL &BB18:LOCA 

918 k$=d9$:G0T0 988 LB4F6] TE 1,12:PRINT CHR$(2@:IF pi<3 THEN 

920 k+$=d18$:G0T0 788 CBF48] 1328 L1DE61 

930 k#=d114:G0T0 788 EBDACI 1450 st14="":G0T0 1258 [A204] 

g4Q k4=d124:G0T0 788 153581 1468 193241 

950 k4=d13$:G0T0 780 [C154] 147@ '*#* Stickzahlen ermitteln #*#* [pD2E] 

960 k#=d14$:G0T0 988 [77581 1488 ' LE1281 

970 k+=d15$ EFBFA] 1498 CLS: ZONE 23 [36961 

980 IF sti$="x" THEN st#="1":G0T0 1150  LFEBA] 1580 PRINT:PRINT,"Ermittlung von St}ckza 

990 ON sz GDTO 1088, 1918,1820,1830,1040 hlen" PRINT ,STRING$ (26, "-") taEanı 
1050, 1060, 1070,1220,189@,1100,1110, 1518 PRINT:PRINT,"Es kann die St}ckzahl 
120,1130,1148 [32881 zu jedem" L7B241 

1008 st$=dis:G0T0 1150 [10783 152@ PRINT:PRINT,"beliebigen Suchwort er 

1010 st$=d24:607T0 1158 £717C1 mittelt werden. L1DFc3 

1028 st$=d3$:60T0 115@ [25881 153® PRINT:PRINT,">i<t2 SPACE3nach 1 Suc 

1030 st$=d4$: 6070 1158 [FDB4J hwart":PRINT:PRINT,">2<{2 SPACE}nac 

1942 st#=d5$:G0T0 1158 [5D88J h 2 Suchwirtern" raas2ı 

1050 st$=d4$:6070 1158 [718C1 1549 f$=e$:G0SUB 39@:pi=prIF pl<i THEN I 

126Q st$=d7$:G070 1150 12090] RETURN ELSE IF p1>2 THEN 1548 21488] 

1870 st$=d8$:60T0 11580 EFD941 155@ f$="Bitte Suchwort eingeben! "ıd=1: 

1280 st$=d9$:G070 115@ 130981 GOSUB 398: swi=LEN (d$) :sw1#=ds: IF sw 

1090 st$-d10$:6070 1158 [S1EAI 1$="" THEN 1548 L3SEE1 

1100 st$=d11$:6070 1158 C47DC] 1568 IF pi=2 THEN f$="Bitte 2.Suchwort e 

1118 st$=d12$:6010 1158 [36E81 ingeben! 1G0SUB 390: su2=LEN(d$ 

1120 st$=d13$:G0T0 1158 [55841 
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em 
ne — 
)rsw2$=d$: IF Sw2#: TFA16I rden ermittelt!"+i$ LSBcC1 
157@ f$="Gibt es zugehirige St}ckzahlen? 1&1@ GOSUB 322@:FOR z=1 TO z1:G60SUB 170:s 
"+h$: GOSUB 320: GOSUB 480: IF t$="J weswiısns=sw1$:GOSUB 548 CDEF2I 
THEN ki$= " ELSE ki$="":60T0 1598 [633A1 1528 IF swa=1 THEN IF ki *" THEN GOSUB 
1588 f$="Die zugehirigen St}ckzahlen ste 798 ELSE su=su+1 CESB&I 
hen in welcher Spalte?(2 SPACEINr." 163@ NEXT:PRINT CHR$(7) =LOCATE 1,14 EDCDAI 
:G0SUB 39@:sz=p: IF sz<1 THEN 1578 E 164® IF pi=1 THEN PRINT,"Die Stickzahl z 
LSE IF sz>s THEN 1588 LBEDAI um Suchwort {2 SPACEI® ";swil$}" *" E 
1598 IF pi=1 THEN #$="Suchwort{2 SPACEI* LSE PRINT,"Die StIckzahl zu den Suc 
"+awl$+" #2 SPACEI-(2 SPACEIStICK huirtern":PRINTZPRINT,"* "+sw16+" 
zahl wird ermittelt!"+i#:G0T0 1618 {2 SPACEIund(2 SPACEI* "+sn2$+" 1D7a®ı 
ELSE g$="SuchwIrter (2 SPACEI* "+swi 165@ PRINT:PRINT,"betr(gt insgesant_= "; 
$+" {2 SPACEJund{2 SPACEI* "+uw24+ su; "St}ck."ıf$="Weiter?(2 SPACEI--> 
" #12 SPACEI-(2 SPACE} " EFFDBI Taste drjcken!":GOSUB S2@:CALL &BB 
1600 IF swi+sn2 <19 THEN f#=g$+"Stickzah 18:LOCATE 1,14:PRINT CHR# (20) L9B@CH 
len werden ermittelt !"+CHRE (IB) +CHR 1668 su=@tkis=""}G0T0 1550 [50361 
$(13)+"Bitte warten ...." ELSE f#=g 
$+CHR$ (19) +CHRF (13) +"St}ckzahlen we Listing 3. Inhalt der Bank 1 (Schluß) 
18 1a $:ı RETURN L42C01 
t@2eC1 | 420 !RAMREAD,z ‚@d1%,@d24 ,@d34,@d4$ ‚@dS$ 
20 'm MULTI - RAM DISK ... @d6$ ,@d74,&d84,@49+,@d1@$,@di1h,@adi2 
caB101 %,@d13$: RETURN 185721 
30 RRRRRRRHREHHRE 430 |RAMREAD,z ‚@d1#,@d2%,@d3$,@d4$ ,@d5$ 
[8418] @d6s ‚@d7$,&d8+,849$ ‚&d104,@d11$,@di2 
40 EC8961 $,@413$,@114$: RETURN CF6261 
50H 448 IRAMREAD,z ‚@d1$,@d24 ,@d3$,‚@d44 ,‚@dS$ 
C4E141 @d6$ ,@d7$ ‚@d8$ ‚0494 ,@d10$,@d11$,@d12 
“DB a0 RAMDISK.RAM ... $,@d13$,@414%,@d15$? RETURN caaDc1 
158441 | 45@ RETURN LABS21 
7a '00* Bank @ ... 460 ' LE2C2] 
tEIECI | 47@ '##* WINDOW 1 #8 LA7BEI 
80H 480’ L70061 
cF11A] | 498 WINDOW 1,88,1,3:PEN B:PAPER 1:CL5s [F3841 
Ba [CEAB] | S@@ LOCATE 22,2:PRINT"* *(2 SPACEIM U L 
10@ 'x** Initialisierung *#*#* [440883 T 12 SPAGEI-(2 SPACEIR A MC3 SPACE) 
10 Ir 1 THEN 2228 EBDRET D I S Kt2 SPACEI* «*" ae LAFBAI 
ce S1@ PRINT" Datei: (2 SPACEI"FUSING"\C18 S 
13@ OPENOUT"RD": MEMORY HIMEM-1:CLOSEQUT [64021 PACEI\";n$s PRINT" vom NSUSING"\CB 8 
148 DIM di (10,2) ve$="Programmziffer oder PACEI\"3 das; PRINT" (6 SPACEI#K#LE SP 
>ENTER< dr)cken! "ıh$="(2 SPACEI--> ACE}Dateikarten:"3dk LEDFEI 
Taste >J< dr}cken!"sis=" Bitte wart 520 WINDOW 1,80,4,22:CALL &BBIC LBF@@1 
en ...."ıc$="s,2": 1 COMMON, @c$: IFAST: 538 RETURN LCCSBI 
i5a gmt"S0To 2208 Lensal | Sam. LE2CQI 
N "### WINDOW 2 LA2BE1 
180 {ses RAMNRITE Daten schreiben ##* TASABI re LEACAl 
: c 57® WINDOW 1,8@,23,25:CALL &BBIC:ELS EBBAAI 
18® ds=1:0N s-4 GOTO 198,288,210,220,238 58@ PRINT:PRINT #$” CEB761 
‚240,250, 260,278,288,29@ [S9EAI 598 WINDOW 1,80,4,22:CALL &BB9C C248E3 
190 TRAMWRITE,z ,@d1$,@42$,@d3$,@d4$ ,‚@dS5s E00 RETURN 198201 
RETURN 168481 | 810 ' teDscı 
208 !RAMWRITE ,‚z ‚@d1%,@d2$ ,@d35$ ,‚@d4$ ,@45$ 628 '*** WINDOW 2 — INPUT ##* [c1841 
@d64: RETÜRN t5aacı | 630 ' tarcaı 
210 TRAMWRITE ‚z ‚@d1# @d2#,@434,@d4$,@d54 648 WINDOW 1,80,23,25:CALL &BBIC:CLS LBAAGI 
„@d6$ ‚@d7%: RETURN [71E4] 658 PRINT:PRINT #44" ® [82861 
220 IRAMWRITE,z ‚@di#,@d2% @d5s,@d44,@d5% 6&6@ IF d=1 THEN LINE INPUT d$: IF LEN(d$) 
„@das ‚@d7+ ‚Adds: RETURN 1293€1 >28 THEN &4B ELSE 688 taasaı 
230 IRAMWRITE,2 ,@d1$,@d24 ,‚@d3$ ‚@d4%,@d5s &7@ INPUT"" ,p BBSA] 
@d&$ ‚47% ‚@d8$ ‚&47%: RETURN CC19A1 688 WINDOW 1,88,4,22:CALL &BBIC: d=@ [42241 
240 TRAMWRITE,2 ,@d14,@d24,@d3$,@d4$ ‚@d5$ 690 RETURN EBISEI 
‚@d6$,6d7+ ‚@dB4,&d9$ ‚Ad1Q$: RETURN 130461 700 ' LaABCI 
250 IRAMWRITE,2,@d1$,@d24,@d34,@d4$ ‚@ads$ 710 '*## INKEY - ABFRAGE #0 ca1401 
‚@d6+,@474 ,@dB$,@d9$ ‚@d10%,@di1$:RET 720 : cascaı 
ÜRN tsEr41 | 730 t$=INKEYSLIF t4="" THEN 730 1@37C1 
260 IRAMWRITE,z ‚@di#,@d24 ,@d3$,@d4$ ,@d5$ 740 t$=UPPERF (t#) 198521 
@d6+,@d7+,CuBs,@d9$ ,Ad1@s,@di1F,adi 75@ RETURN [BESB] 
2%: RETURN camnaı | 780 ° LEacB] 
270 IRAMWRITE,z ‚@di$,@d2%,@d3$,@d4$ ‚@d5$ 770 '*** Daten den einzelnen RAM - *** 
@dar,@d7+,@da$,@d94 ,@d10%,@di1$,@di L16B21 
24 ,@d13$1 RETURN 174561 798 ‘*** Stringvariablen }bergeben *#* 
280 IRÄMWRITE ‚2 „@d14,@d24 ,@d34,@d4$ ‚@d5$ LEECBI 
&d64,@174,@484,6d9+,&d10$,@d11$,@di 798 ' E7ICEI 
2% ‚@d13$ ‚@d14%: RETURN t2eaA] | BOB ON si 60TO 819,820,830,840,859,840,8 
290 IRÄMWRITE ‚2 ,@d14,@d24 ,@d3$ ‚@d4$ ‚@d5$ 70,880,890,900,919,920,930,740,750° L@D48] 
@d64,@d7& ,&d84,@d9#,&d1@f ,@di14,@di sıa ($1bb=b1:RETURN L873E1 
2% ,@dls$,‚@d14% ,&d154? RETURN ccscaı | 820 $: bb=b2: RETURN 158441 
san ” [EZB4] | 830 dSs=d$:bb=b3: RETURN Ea1aA] 
31@ ‘#0 RAMREAD Daten lesen x#* [DS6C] | 849 d4$=d$:bb=b4: RETURN L9A501 
320 ' tE@BBI | 850 dS$=d$:bb=b5: RETURN [3356] 
330 ON s-4 GOTO 349,359,340,378,380,398, 860 d6$=d$:bb=b&: RETURN E9ASCH 
400,410,420,450,440 Li1FEI 870 d7$=d$:bb=b7:RETURN L7D621 
340 IRAMREAD,z ,‚&d1$,@d24,@d34,@d4$,@d5$: 880 d8$=d$:bb=b8: RETURN LasaBl 
RETURN tBE641 | 898 d9$=d$:bb=b9: RETURN L7F&EI 
350 !RAMREAD,z ‚@d1$,@d2%,@d3$,@d46,@d5#, 900 d1B$=d$:bb=b1A:RETURN [6AFE1 
@d6$: RETURN 197BA] | 910 di1$=d$:bb=bi1:RETURN [B1841 
360 IRAMREAD,z ‚@d1$,@d24,@d3$,@d4$,@u5#, 92@ d12$=d$:bb=b12:RETURN L&DaA] 
@d6$ ‚@d7%: RETURN ta8121 | 939 di3$=d$:bb=biS:RETURN [25101 
370 IRAMREAD ,z ,‚@d1$,@d2$ ‚@dS$,@d4$,@d5$, 949 d14$=d$:bb=b14:RETURN LAS161 
@d6$ ‚@47$ ‚das: RETURN LAEsCı | 958 di5$=d$:bb=b1S:RETURN LB71C1 
38@ IRAMREAD,z „@d1$,@d2%,@d3$ ‚@d4$,@d5#, ET. EBACCI 
@d&$,@d7+,AdB$ ‚&d7$: RETURN tepcBI | 979 ‘x#* Zeichen pro Spalte x#** [7446] 
398 IRAMREAD,z ‚@d1$,@d24,@d3$,@d4$ ‚@d5s, Eu LE6DBI 
@d6$ ,@d7$ ,@d9$ ‚@d9$ ‚@d1B$: RETURN L7A741 992 ON s-4 GOTO 1908,1818,1829,1030,1048 
400 TRAMREAD,2 ‚@di$,@d24 ‚@d5$,@d4$ ‚@dss, ‚1959,1068,19870,1080,1090,110@ LICFAI 
@d6$ ,@d74,@d0$,@d94 ,@d1Q$ ,@d11$:RETU 1800’ INPUT#x,b1,b2,53,b4,b5:G0T0 111@ LSE4EI 
RN 192181 1921@ INPUT#x,b1,b2,b3,b4,b5,b6:60T0 1118 
41@ IRAMREAD,z ‚@d1$,@d2$ ‚@d3$,@d4$ ‚@dS$, TER = 
@db$,@d7% ,@dB$,8d47$ „edins.@dilt.@di2 Listing 4. »Futter« für Bank 0 


E52. 


111 


1028 
1238 
1040 
1258 
1268 
1878 
1288 
1290 
1108 
1110 
1128 
1130 
1138 
1158 
1168 
1178 
1180 
1198 
1208 
1218 
1228 
1238 
1248 
1258 
1268 
1278 
1288 
1298 
1308 
1318 
1328 
1358 
1348 
1358 
1368 
1378 
1388 
1398 
1408 
1218 
1428 
1438 
1448 
1458 
1468 
1478 
1488 
1490 
1588 
1518 
1528 
1538 
1538 
1558 
1568 
1578 
1588 
1598 
1680 


1618 


INPUT#« ‚b1,62,63,64,55,b6,67:G070 1 
11 

INPUTR« ‚b1,62,63,64,b5,b6,67,bB:G07 
INPUT#x ‚b1,b2,b3,b4,b5,b6,b7,b8,b9: 
soro 11a 

INPUT#x „b1,b2,b3,b4,b5,b6,b7,b8,b9, 
b18:60T8 1lıa 

INPUT#x ,b1,b2,b3,b4,b5,b6,b7,b8,b9, 
bi@,b11:60T0 1118 

INPÜT#x ‚b1,b2,b3,b4,b5,b6,b7,b8,b9, 
b1®,b11,b12:60T0 1110 
INPÜT#x,b1,b2,b3,b4,b5,b6,b7,b8,b9, 
b18,b11,b12,b13:6070 1118 

INPÜT#x ‚b1,52,b3,b4,b5,b6,b7,b8,b9, 
b18,b11,b12,b13,514:6010 1118 
INPÜT#x,b1,52,b3,b4,b5,56,b7,b8,b9, 
b12,b11,b12,b13,b14,b15:60TD 111@ 
r=b1+b2+b3+b4+b5 

s>5 THEN r=r+b& 

s>6 THEN r=r+b7 

s>7 THEN r=r+bB 

s>8 THEN r=r+b7 

s>7 THEN r=r+bi® 

s>1@ THEN r=r+bli 

s>11 THEN rer+bi2 

s>12 THEN r=r+b13 

s>13 THEN r=r+b14 

s>14 THEN r=r+b15 


er 
ieren 


IRAMOPEN,r:ON s-4 GOTO 12648,1270,12 
80,1298,1300,131@,1320,133@,1349,13 
52, 1368 

!RÄMFIELD,b1,b2,b3,b4,b5:60T0 1378 
{RAMFIELD,b1,b2,b3,b4,b5,b6:G0T0 13 


78 
IRAMFIELD,b1,b2,b3,b4,b5,56,b7:60TD 
1378 
:RAMFIELD,b1,b2,b3,b4,b5,b&,b7,bB:G 
oTO 1378 
{RAMFIELD,b1,b2,b3,b4,b5,b6,b7,b8,b 
96070 1370 
!RAMFIELD,b1,b2,b3,b4,b5,b6,b7,bB,b 
9,b10:G0T0 1378 
{RAMFIELD,b1,b2,b3,b4,b5,b6,b7 ,bB,b 
9,b1@,b11:G010 1378 
{RAMFIELD,b1,b2,b3,b4,b5,b6,b7,b8,b 
9,b1@,b11,b12:G070' 137@ 
!RAMFIELD/b1,b2,b3,b4,b5,b6,b7,b8,b 
9,b1@,b11,b12,biS:&0T0 1378 
IRAMFIELD,b1,52,b3,b4,b5,56,b7,b8,b 
9,b18,b11,b12,b13,b14:G010 1378 
IRAMFIELD,b1,52,b3,b4,b5,b6,b7,bB,b 
9,b18,b11,b12,b13,514,b15: 6070’ 137@ 


{RECORDS: dk=rec-1:rec=@ 
RETURN 


RAM DISK oeffnen und struktur 
rr 


’*#* Bildschirmanzeige *#* 


CLS: ZONE 22:PRINT CHR$(7) 
PRINT">"j25"/{2 SPACE} <",b$t1),di 


2 
SPACEI2 <",b$12) ,‚d2 


PRINT" >"j23"/12 
E3 
PRINT">"325"/{2 SPACEIS <",b$(3) ,d3 


* 
PRINT" >"j23"/{2 SPACEI4 <",b$(4) ,d4 
$ 

BEINT 325"/12 SPACEIS <",b$(5) ,d5 
IF s>5 THEN PRINT">"525"/t2 SPACEI& 


<",b$(6) ‚das 
IF s>& THEN PRINT">"323"/2 SPACE}? 
b$ 17) ‚d7& 
IF 237 THEN PRINT">"j25"/{2 SPACEIB 
<",b$(8) ‚da$ 
IF S>8 THEN PRINT">"j24"/12 SPACEIF 
<" ,b$(9) „d9$& 
IF s>9 THEN PRINT">"j23"/ 10 <",b$( 
18) ‚dies 
IF S>1@ THEN 11 <",bs 
(11) ‚dis 
IF s>11_THEN 12 <",b$ 
(12) ‚di2$ 
13 <",b$ 
14 <",b$ 
15 <",b$ 


PRINT" 


yuazzn/ 
PRINT" "325" 7/ 


IF s312 THEN 
(A3,d13$ 

IF s313 THEN 
(14) ‚d1as 

IF s314_THEN 
(15) ‚diss 
RETURN 


‘*#* aus RAM DISK ausgelesene Date 
n sichern xx 


PRINT" "323" 7/ 
PRINT" >"323"7 
PRINT" "423" 7 


LB7D8] 
TAB&41 
EDBF21 
L1A821 
EDD&21 
[DE441 
L2F28] 
LF2BEI 
LSCF61 
EF2CEI 
[B64E1 
[87983 
ESEFEI 
CAFA4I 
cSFAAI 
EDSFEI 
199521 
[5E581 
L&ssEl 
[47521 
L7658]3 
[8718] 
LDAC&] 
Eg1icı 
L6FS61 
£A7781 
[52221 
L6BAEI 
LCBSCI 
E2CBA1 
L6F9Al 
L287C1 
L7D681 
[34461 
LE72E] 
LF@18] 
La27@1 
CB8983 
LBA281 
ESCDB] 
CBA1AI 
LEC661 
[31881 
179881 
[91981 
[81981 
LFIABI 
LSQB01 
L99BA] 
LC8B21 
CBBBCI 
1B4701 
LFBCBJ 
[26D2] 
LESDEI 
LBCE&I 
L57F@J 
EBESCI 
LBE2CI 


LSSCE1 
EBEIEI 


di$=d1$:d24=d2$: dS$=d34: d48=d4$: d5$ 
=d5$ 

IF s>5 THEN dö$=d6$ 

IF s>& THEN d7$=d7+ 

IF s>7 THEN d8ß$s=d8$ 

IF s>8 THEN d9$=49$ 

IF s>9_THEN di@s=d1B$ 

IF s>1@ THEN di1$=di1$ 

IF s>11 THEN d12$=d12$ 

IF s>12 THEN di3$=d13% 

IF s>13 THEN d14$=d14$ 

IF _s>14 THEN di5$s=d15$ 

RETURN 

"*##* mach Suchwort suchen ##%* 
IF sw$=LEFT$(di$,sw) THEN 1930 
IF sw$=LEFT$(d2$,=sw) THEN 1938 
IF sw$=LEFT$(dS$,sw) THEN 1930 
IF sw$=LEFT$(d4$,sw) THEN 1930 
IF sw$s=LEFT$(d5$,=w) THEN 1938 
IF sw$=LEFT$(d6s,sw) THEN 1930 
IF sw$=LEFT$(d7$,sm) THEN 1930 
IF sws=LEFT$(dB*,sw) THEN 1930 
IF sw$=LEFT$(d9$ sw) THEN 1930 
IF sws=LEFT$td1BF,sw) THEN 1930 
IF sw$=LEFT$(d11$,sw) THEN 1930 
IF sw$=LEFT$(d12$,=w) THEN 1958 
IF sw$=LEFT$(d13$,sw) THEN 1930 
IF sw$=LEFT$(d14$,5w) THEN 1938 
IF sw$=LEFT$(d15$%,5w) THEN 1938 
swa=@: RETURN 

Swa=1:RETURN 

’##** Dateinamen ausdrucken ##* 
f$="Dateiname wird ausgedruckt !"+i$ 
:GOSUB 550 
PRINT#8,CHR$ (18) 3 HRS (14) ; TAB(22-IN 


T(LEN(n$)/2)) n$:PRINT#8:PRINT#8:PR 
INT#B:zz=zz+4 
RETURN 


‘*** Spaltenbezeichnungen ausdruck 

en xx 

#$="Spaltenbezeichnungen werden aus 

gedruckt !"+1$:GOSUB 550 

ZONE 22: PRINT#8,CHRS(AS)5:IF sci1l T 

HEN s2=s ELSE s2=10 

PRINT#8, TAB(12) "1fd.Nr.{4 SPACE}"; 

FOR si=1 TO S:PRINT#B,b$(=1) „:NEXT: 

zz=zz+1 

IF s>5_THEN PRINT#8,TAB(22)" 
si=& TOD s2:PRINT#B,b$(s1), 
=zz+1 

IF s>1® THEN PRINT#8,TAB(22)* 
R si=11 TO sı:PRINT#8,b$({s1) ,: 
z=ezz+1 

PRINT#B,TAB(12) STRINGS(21,"-" 

=22+ 

RETURN 


'*** Dateikarten ausdrucken x#** 
ZONE 22:PRINT#8,CHR$(15); 
PRINT#B, TAB (12) Nr. "32; TAB(22) " 
1$,d2$,43$,d4$ ‚dS$:zz=zz+1 
IF’s>S THEN PRINT#8,TAB(22)" ";d6s, 
d74,d8$,d9$ ‚d1@$1 22=22+1 

IF s>1@ THEN PRINT#8,TAB(22)" "zdi1 
$,d12$,d13$ ,d14$ ‚d15$:zz=zz+1 

IF _dz={ THEN PRINT#B:Zz=z2+1 

RETURN 


"zd 


‘##* Hauptmen? ###* 
s=ss:p1=@: ZONE 23:60SUB 478: #4="":G 
OsUB 558 

CLS:PRINT:PRINT STRING$ (88,"-"):PRI 
NT,"* * #(3 SPACEHHAUPTMEN ] 
12 ,SRAGEI® ® «":PRINTEPRINT STRING# 


PRINT,"> 1 <{2 SPACE}Datei einlesen 
PRINT,"> 2 <{2 SPACE}Datei anlegen" 


PRINT,"> 3 <{2 SPACE}Dateispalten b 
ezeichnen" 
PRINT,"> 4 <{2 
schreiben" 
PRINT,"> 5 <{2 
dern/l!schen" 
PRINT,"> & <{2 SPACE}Dateikarten an 
sehen,suchen usw." 

PRINT,"> 7 <{2 SPACE}Dateikarten au 
sdrucken" 
PRINT,"> 


PRINT,"> 9 <{2 SPACEIRAM DISK schli 
aan 


SPACE}Dateikarten be 


SPACE}Dateikarten {n 


8 <t2 SPACE}Datei sichern" 


L61AR] 
LAB4EI 
LCAS61 
L7CSE1 
[A666] 
Caaaaı 
14868] 
[5868] 
LiDSEI 
[41661 
E716E] 
[BA961 
[97261 
LESFEI 
[95241 
LC9281 
EFF2CI 
[B2381 
150221 
LFS263 
LE22A1 
EC72E1 
[79321 
[09361 
£19881 
L7DSCI 
CBD9@1 
[91941 
[75861 
LE78A] 
LEB7CI 
152880] 
[E32A1 
LEABAI 
1252E] 


LABD21 
LAsBS] 
CACAGI 
[BA121 


L3C2E1 
[BC16] 


L47C01 
L5FA21 


LE2D6&1 


L2F681 


LIFB6I 
[45021 
EFBIGI 
EBC141 
c@2901 
[9A181 
E6BCEI 
LAFCAI 
LB&FAI 
LO@BEI 
LFEEEI 
[C8961 
[2526] 
E3BSC1 
CBD18] 


LFSDAJ 


TaAB21 
CEDD41 
LAAE6I 
LEESAI 
CEBSB1 
LABBCI 
LOACEI 
COFABI 
[87181 
L6C561 


112 WWW.HOMECOMPUT: 


en 


— — — 
2 TE 26 NT" ic) k 2628 194221 
onen 0) ‚va by kabe nancı | 2638 IF rent THEN FRSTRAM DIEK belsgt! N 
f$=e$: 628: 1 OR p>? eue Datei wirklich anlegen?"+h$: 
ren zer PI9 TEEN naezı UB 558:50SUB 71@:IF t$="J" THEN ERA 
235@ IF p>2 AND rd=@ THEN f$="Neue Datei SE b# ELSE 2548 L1E82] 
?"+h$: G0SUB 550: G0SUB 718: 1 das="";rd=B: dk=@:b=B: 21-8: 608 
THEN 2618 ELSE 2548 13BD21 UB 47@:CLS: ZONE 17 [BaBQ1 
2368 ON p G0TO 2380,2610,2809,2982,3878, 2658 f$="Neue Datei anlegen. (2 SPACEI-I2 
3550, 3770,4340,4810 £143C1 El rte Daten eingeben! ":G0SUB a 
2370 ' 127263 
e ER r 266@ PRINT:PRINT,"Untermen}{2 SPACEI> NE 
ee ee ssanı UE DATEI ANLEGEN <":PRINT,STRING# (3 
2408 IF rd=1 THEN f$="RAM DISK belegt! N 3,"-) LB6BEI 
eue Datei wirklich einlesen?"+h$:60 267® PRINT:PRINT,"Zum Anlegen der neuen 
SUB 550:G0SUB 718: IF t$="J" THEN ER Datei werden":PRINT,"folgende Angab 
ASE b$ ELSE 2348 TB16A1 en benitig L7ar8] 
2418 ırd=B: dk=@:b=@:G0SUB 47 2688 PRINT:PRINT,"Datum ........ (4 SPACE 
E7BIEI | 240g PRÄNTIPRINT Datei, ca space nn 
2 = i i i 1m4i$: PRINT ateiname .... ACE 
2420 Be Babe wird eingelesen!"+i$ Tcaeı 3" INE INBUT nes IF LENIn$) >20 TH 
243@ PRINT:OPENIN " [D9761 EN PRINT CHR$(11) ;CHR$(11) ;CHR$ (20) 
244@ LINE INPUT#9,n$:LINE INPUT#9,das: IN 3:60T0 2698 CDB9B1 
PUT#9,5,21,12:DIM b$(s):b=1 toc2aı | 27@@ PRINT:PRINT,"Wieviel Spalten (5 bis 
2458 FOR si=i TO s:LINE INPUT#9,b#(s1):N 15) soll die Datei haben";: INPUT s Babe 
EXT LF9D@] 
2=1 INPL (22,1) ,d1€ 2718 IF s<5 OR s>15 THEN PRINT _CHR$(11)5 
nn a ZERT EaR USE en CHR$ (11) 5 CHR$ (28) } :G0TO 2708 166741 
2470 x=9:G0SUB 970:x=@:B0SUB 478: LOCATE 2728 PRINTSPRINT, "Wieviel Zeichen, (1 bis 
Ba EAA16I | 2750 pRInTnie.d. 20,18,18,18,717,6,20,4 - 
2488 FÜR z=1 TO zi:LINE INPUT#9,dis:LINE ı"(z:B- 20, „10,7,7,6,28, 
INPUT#9,d2$: LINE INPUT#9 ,d3$:LINE 128 )"EPRINT,"--> "5: G0SUB 97 192023 
INPUT#9,04$:LINE INPUT#7,d5$ 195281 2740 f$="RAM DISK wird fnet!{2 SPACE 
249@ IF s>5 THEN LINE INPUT#9,d6$ [2A221 }Bitte war .":G05UB 558: ns=UP 
2508 IF s>& THEN LINE INPUT#9,d7$& ICA16] PER$ (n$) ıss=s:DIM b$(s) TEB&B] 
2510 IF s>7 THEN LINE INPUT#9,d8$ LBsıcı | 2758 CLS:LOCATE 22,4: PRINT"* #(2 SPACEIM 
2528 IF s>8 THEN LINE INPUT#9,d9# A822] U LT I£2 SPACEI-(Z SPACEIR A MiS 
25350 IF s>9 THEN LINE INPUT#7,d1@$ [7876] SPACEID I S Ki2 SPACEI#* * CB1B81 
2540 IF 1@ THEN LINE INPUT#9,di1$ {DSCAI 2768 ERTSTEERISTEERLNN? {2 SPACE}D 
2550 IF s>11 THEN LINE INPUT#9,d12$ [8608] 2 SPACE)" FUSING"\{18 SPACEI\ 
2560 IF s>12 THEN LINE INPUT#9,d13# EDCD&J RINT" vom ";da$ 197021 
2570 IF s>13 THEN LINE INPUT#9,d14% £D2DC 277@ LOCATE 16,9:PRINT ime 
2580 IF s>14 THEN LINE INPUT#9,d15$ TEBE2I f}r"jdk; "Dateikarten mit"js; "Spalt 
2590 GOSUB 16@: NEXT:CLOSEIN:rd=1:ds=@:ss en":LOCATE 21,11: PRINT"bei durchsch 
=s: !G0SUB,1,1892:60T0 2288 CCBB4] nittlich";CINT(r/s); "Zeichen je Spa 
2600 | L961EI Ite f EBAFAI 
2610 ‘**%* Datei anlegen ###* [BBDAI Listing 4. »Futter« für Bank 0 (Fortsetzung) 
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aus Leinen/Kunstleder in handwerklicher Spitzenqualität 


FÜR HOMECOMPUTER * PCs x PERIPHERIE 


ATARI 190, 800, 1050 


0 DM 1780. SCHNEIDER CPC 484, 6128 


1800, 1010 314,84 
"200, 520, 1040... ST 
SM 124, SC 1824 ua 


"SH 204, SMM B04 
COMMODORE Cam »028 
VC20,C 64, 1841, 1871 


© 128-0, PC-10r20 T. 
"6 120.0, PC.20 Syakn 


PC, Joyce Mon. +SysEh. 
DRUCKER Star NL10. SC1O 

Epson LUPIURX 80185 
Epson EXIFXILO 800 
Panason, KXP 109182 
Panason. KXP 1502 
Tasanı KB 810, Ob 192 
Tananı Kp 910 NEC PS. 


PC.20 Monitor 4090 


© 128, MPS-a01 


BESTELLUNGEN (Bio gan 
1) Sonderanjartigur 


(Into gr 
El 


RAUSCH & HAUB GbR Tel. > 0 


Vertrieb: 
‚Abholung nur nach Termi 


Das Tool zum computergestützten Entflechten von Leiterplatten! 


Geben Sie nur die 
Bauteile unddie Ver- 
bindungen ein und 


Ihr CPC 


aus das fertige Lay- 
out, das Sie aufdem 


Drucker 
und auf 


übertragen können. 


Diskette mit aus. 
Handbuch 
CPC Version 149,— 


PC.ersion 269,— 


102490 NBM-PC. Epson Handheis 


"und Hauben-Sats sowie Menger au Ana 
"unsere AGB, Versandspesen: UKB 4,90 Vorkasse/7,50 NN (Ausland 


Jüro (Kein Li r Frei 


en): Be 


‚ereinbarun 


2:0 
290 

150 
p7s0 
[273 
was 
wzso 
Ra 
Ras 

a” 
wauso 
he aaso 


so 


Typen-Angabe) werden solrt bearbeitet! Für über 80 Geräue vorrätig 


20) 


1228/638313 


LEITERPLATTENENTFLECHTUNG 
AUF DEM CPC 


macht dar- 


ausgeben 
die Platine 


ee EEE | 


Public Domain... CPC, Joyce und C 128! 


Die Besitzer von Schneider CPC- und Joyce-Computern haben unser Ange- 
bot an Public Domain-Softwar rt aufgenommen. Jetzt bieten wir 
unsere Disketten auch fertig angepaßt für den Commodore 128 an! 
Bei uns bekommen Sie diese Programme mit deutschen Systemmeldungen 
und einem gedruckten Handbuch in deutscher Sprache - garantiert lauffä- 
hig auf Ihrem Schneider-CPC, Joyce und Commodore 128: 

Diskette 1: Pascal-Compiler JRT-Pascal - vollständiges Pascal mit Strings 
bis 64 KByte, EXTERN-Overlays und, und, und...” 

Diskette 2: Assembler-Paket mit Z80-Assembler, Editor, Linker, Debugger 
und intelligentem Disassembler 

Diskette 3: Künstliche Intelligenz - Interpreter für die KI-Sprachen XLISP 
und E-PROLOG* 

Diskette 4: C-Compiler Small-C - verarbeitet sogar Fließkommazahlen und 
besitzt umfangreiche Bibliotheken® 

Diskette 5: Forth-83 - komplette Implementation von Forth mit Assembler, 
Decompiler, Screen-Editor, Kommentar-Screens... 

Diskette 6: CP/M-Utilities wie Dateikompressor (bis 60%), Diskmonltor, 
UNERA, Mehrspaltendruck, Super-Directory... 
Diskette 7: Alle Programme aus dem Großen CPC-Arbeitsbuch von Martin 
Kotulla und Lothar Miedel (Franzis-Verlag, nur Schneider-CPO) 

Diskette 8: Das Super-Adventure Colossal Cave - Suchen Sie Schätze in 
der riesigen Höhle! (englisches Programm, deutsche Beschreibung)“ 


* auf dem CPC 464/664 nur mit Speichererweiterung (64 K genügen) 

Disketten 1-4 mit Wordstar-kompatiblem Editor 

Commodore 128: Disketten in von 1570/1871 lesbarem Format. Kein 1541-Format oder 
CPIM 2.2-Cartridge für C64! 


Immer noch gilt unser Superpreis: nur 30 Mark pro Diskette! Bitte geben Sie 
das gewünschte Diskettenformat (3 Zoll, Vortex 5,25 Zoll, 1570/1571) an. 
Nachnahme oder Vorauskasse. Keine Versand- oder Verpackungsgebühren! 


MARTIN KOTULLA 


Grabbestraße 9, 8500 Nürnberg 90, Telefon: 09 11/303333 


Weitere Bezugsquellen für CPC und Joyce: 
Techn. Büro Hochheizer, Erhard-Prunner-Straße 1, 8062 Markt Indersdort, Telefon. 
08136/1625 (auch 3,23 ZollVorter) 

TESCO Gmak, Rüdenhausenerstraße, 8714 Wiesentheid, Teleton 09383/1237 

Weeske Computer-Elekironik, Potsdamer Ring 10, 7150 Backnang, Telefon 07191/1528-20 
Computerstors, Hochstraße 11, 8500 Nümberg 80, Telefon 09 1/2 

Computer Solutions, Belgradsiraße 9, 8000 München 40, Telefon 088/3088048 
Weitere Bezugsquelle für Commodore 128: 

TESCO GmbH, Rüdenhausenerstraße, 8714 Wiesentheid, Telefon 09383/1237 


Anfragen von Händlern, OEMs und VARs sind stets willkommen! 
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2788 FOR t=1 TO 3@@B:NEXTerd=1: 1GOSUB, 1, 
100:60T0 2208 
he Bezeichnungen eingeben ###* 
IF b=1 THEN f$="Bezeichnungen sind 
schon eingegeben!":G0SUB SS@:FOR t= 
1 TO 15@@:NEXT:G0TD 2348 
##o"Bezeichnung der Da 
geben" :GDBUB S 
"'zPRINTZFOR si=1 TO s 
PRINT"> "; USINB"##";S15 : PRINT" <", 
LINE INPÜT d$: IF LEN(d$) >28 THEN 
PRINT CHR$ (11) ;CHR$ (28); :G0TD 2858 
IF si=1 AND d$="" THEN 2840 
IF d$<>"" THEN b$(s1)=d$ 
NEXT:b=1:60T0 2200 


ze 


spalte ein 


Dateikarten beschreiben ##* 


a 
EoR z2=® TO 18: IF di(z2,2)=@ THEN N 
IE z2=11 THEN a=zitire=dk:B0TO 2950 


a=dl (z2,1)se=dl (z2,2) 
FOR z=a'TO eıf$="Dateikarte Nr."+8T 
Retz)+"c2 SPACEI-2 SPAGEIBitTe Dat 
en eingeben! ":GOSUB 55® 
CLS:PR SDR si=1 TO s 

PRI aM a "USING" ##" 5515 1 PRINT 
b$(51) ‚ıLINE eut d$:G0SUB 77 
GL IF dis="" THEN 220 

IF LEN(d$) >bb_THEN PRINT CHR$ (1195 
CHR$ (28) :LOCATE 1,18: PRINT"Dateispa 
lite ist nur f}r"+STR$(bb)+" Zeichen 
dime: oniert!{2 SPACEI-{2 SPACEIB 
itte neu eingeben!":LOCATE 1,s1+1:16 
0TO 2978 

PRINT CHR$ (28) 5 : NEXT 

GOSUB 16@: IF di$>"" THEN IF z2=11 T 
HEN zi=z1+1 ELSE di(z2,1)=z+1 
#$="Weitere Dateikarte anlegen?"+h$ 
Sea edsun 71@: IF t$="J" AND 


HEN 3848 
IF z>e THEN d1 22°, 1)=Q:d1 (22,2)=@ 
IF z>dk THEN #s="t5 SPACEI® & #2 S 
PACE}RAM DISK ist belegt!{2 SPACEI* 
* Arseasus SS®:FOR t=i TO 2B@@:NEX 


T:G0TO 

SH TEEN 2920 ELSE 2208 

3970 '*** Untermen? > ENDERN und L\SCH 
EN Ser 

sa80 

sa9@ CLS 

31@@ PRINT:PRINT "Unten {2 SPACEI> IN 


rmen} 

BEN und L\SCHEN <":PRINT,STRINGS(S 
FRINTIPRINT "Was sol geindert oder 
PRINTSERINTEN ">1<{2 SPACE}Datum di 
Datei (ndern" 
PRINT:PRINT,">2<(2 SPACE}Spaltenbe; 
eichnung {ndern" 
PRINTIPRINT ,">3C<2 SPACE) Dateikarte 

SPACE}Dateikarte 
+$=e$:G05UB 620: IF p<i THEN 2208 EL 
SE IF p>4 THEI 6 


{ndern" 
PRINTLERINT)">A<12 
hen" 
N 3168 
ON p G0TO 3190,3250,3320,3448 
Tr 


llschı 


Datum der Datei {ndern x*#* 
CLS:#$="Datum der Datei wirklich {n 
dern?"+h$:G0SUB 550: GOSUB 718 

IF t$="J" THEN f$="Aktuelles Datum 
eingeben d=1:G0SUB 620: da$=d4:G0S 
UB 470:d 
SOTO 3090 


0% Bezeichnung {ndern ###* 
ELS:PRINT:FOR si=1_ TO stPRINT"> "zU 


SING"##"5 s13:PRINT" <",b#(s1) NEXT 


f$="Welche Spaltenbezeichnung {nder 
n?{2_SPACEINr.":GOSUB 620: si=p: IF s 
1<1 THEN 3070 ELSE IF s1>s THEN 328 


[) 
+$="Neu: 
RE ts1)+ 


de=1:PRINT CHR$(7) 
G0T0 3278 


va 


der Spalte"+5T 
620: b$ (si1)=d$: 


Dateikarten {ndern x#* 
CLS:#$="Welche Dateikarte {ndern?{2 
SPACEINr.":G0SUB 62@:2=p:IF z<i TH 
EN 3870 ELSE IF z>z1 THEN 3348 


LSESCI 
LE1321 
[S85E1 
[09241 
[8E241 


L374C1 
[5EB61 


12026] 
t9cBB] 
[9614] 
t4A7C] 


L7EIAI 
[6EB6] 


[24561 


132421 
ED6CCI 
[66481 
[83641 
LF@92] 
[A464] 
1[C7B8] 


19318] 
LABEA] 


19928] 
[781A] 
[B7203 
[88621 
19524] 


[B8661 


3788 FOR 


3798 
Ei: 


GOSUB 318:G05UB 16@0:G0SUB 1408 
#$="Dateikarte Nr. "+5TR$(z)+" wirkl 
ich {ndern?"+h$:GOSUB 558: 60SUB 718 


aIF t$<C>"J" THEN 3418 

#%="Welche Spalte (ndern?{2 SPACEIN 
r.":G05UB 62@:si=p: IF si<i THEN 341 
Fehlen IF 370 


alter te -sTreı 


2d 
IF Lencas) 3bb THEN LOCATE 1. erprı 
NT"Dateispalte ist nur f}r"+STR$ (bb 
)+" Zeichen dimensioniert!{2 SPACE} 
-t{2 SPACE}Bitte neu eingeben! ":60T0 


3388 

G0SUB 168:G0SUB 1480:G0T0 3378 
f$="Nichste Dateikarte Nr. "+STR6(z+ 
1)+" {ndern?"+h$:G0SUB 558: G0SUB 71 
G:IF t$= THEN zez+1: IF z<=zi THE 
N 3358 

ds=1:60T0 3@7@ 


a. 


Dateikarten loeschen ###* 


2 
CLS:g$="Welche Dateikarte(n) lische 


n?{2 SPACE}Von Nr.":f%=g$:G0OSUB 620 
1ası sl THEN 3878 ELSE IF adzi 
#$=g$+45TR$ (a)+" bis Nr.":GOSUB 6203 
esp:IF e<a THEN ELSE IF e>z1 TH 
EN e=zi1 

;$ „Datsikarcen Nr. "+STR$(a)+" bis 
$+" wirklich Lisch 
:G0SUB 71: IF t#<> 


en 
ori 
#$=g$+" werden gel !scht! "+i$:B0SUB 


S5B:g4="" 


FOR z=a TO sr oosun Sindie 1d24=" 
“ıd3ge"":das: 158: 1d7$=" 
"1d8#: 1d9#: di1saın/arz 
Senn gissentggiägen" di15$="":G0SUB 
160: NEXT 


IF e=zi THEN zi=a-1:60T0 3978 
dit1z,1)=a:dl (12,2)=erlz=e1z+l:IF 1z 
>18 THEN 1z=8 


G0T0 3870 


’*#*  Untermen? 
und EXTRAS < x 


CLS: ZONE 28 


> ANSEHEN, SUCHEN 


PRINTSPRINT ‚"Untermen? {2 SPACE} > AN 
SEHEN, SUCHEN und EXTRAS <":PRINT,S 
TRINGE(A1,"- 

PRINT:PRINT,">1< Dateikarten nach N 
r. ansehen" 

PRINTAPRINT "32 Dateikarten nach 8 
uchwort ansı 

PRINTEPRINT x, „Inventarsumnen der 
Datei ermit! 

PRINTEPRINT,"SAC St)ckzahlen der Da 
tei ermitte 

#$=es:B0SUB E20: IF pci THEN 2200 EL 
SE IF p>4 THEN 363@ 

ON p G0TO 3460, 3740,3898,3938 

'*#* Datei-Karten ansehen #** 
as 


BESAE) Von Nee +# 21 
aan aci THEN 3558 ELSE IF a>z1 THEI 


AERSHSTRELAI bis Nr.":GOSUB 620: 
esp:IF e<a THEN e=a ELSE IF edz1 TH 


TO Ban 318: 60SUB 1480: f 
+STR 


ar $(2)4" 12 SPAC 
EI-{2 SPALEIW ACI -> Tas 
te dr}cken! 


EN e=zi 


It. ? 
OSUB SS@: CALL BBBIBEN 
g$="":G0T0 3698 


Dateikarten suchen (und ausdr 
02 


CLS:f$="Bitte Suchwort eingeben! "ı 
d=1:G0SUB 628: sw=LEN (d$) ı sns=d4: IF 
a THEN 3978 ELSE IF s 
55 

g$="Suchwort{2 SPACEI* "+un$+" #12 
SPACEI-(2 SPACE}Dateikarte wird ges 
ucht !"+i$: f$=g$: GDSUB 558 

=1 TO z1:G0SUB 319:G0SUB 1750: 
IF swa=® THEN 3848 

IF pi=3 AND zz>59 THEN GOSUB 387@ 


OD IF pi=3 AND zz=@ THEN GOSUB 1958:60 


3818 


SUB 2018 

GOSUB 1489: IF pi=3 THEN #$="Suchwor 
t{2 SPACEI* "+sw$+" #12 SPACEI-{2 S 
PACE}Dateikarte wird ausgedruckt!": 


a 


L29BE1 


L7FABI 


[B69E1 
[DB841 


15666] 
ESESAI 


LE7EBI 
C0616] 
102221 
tB@D&] 
LE4261 


[7SEE] 


£81A4] 


EFBEEI 
EDCDEI 


CDDECI 
C19B01 


EBAFB] 
CSAICI 
[99261 
LCB4E1 
L972A] 
CAE92] 
[73581 
L9ESCI 
tESFCI 
LAASAI 
t17CE] 
ECFBB] 
L67AE] 
L[982A] 
LAA1A] 


[962E1 
LBFA&] 


C15A21 


LABFCI 


[23641 
[34BA] 
C[BA28] 


[3248] 
£942C1 


L1A221 


tBBeA] 


[56661 
CBA8E] 


ECD343 


I _ 


3828 


3830 
3940 


3850 


ET 
3870 


4988 


4298 


4108 


4118 
4120 


4130 


4140 


4150 
4160 
4170 
4180 ' 
4198 


4208 


4210 
4220 


4230 
4240 


4250 
4260 
4278 


4288 
4290 


4300 


GOSUB 559:60SUB 211@:6070 3858 
£$="Suchwort 2 SPACEI* "+uns+" *(2 
SPACEI-{2 SPACE}Weitersuchen?(2 SPA 
CEI--> Taste dricken!":G0SUB 558:CA 
LL &BB18 

#$=9$: GOSUB 558 

NEXT» f$="Suchwort {2 SPACEI* "+aws+" 
*{2 SPACE}nicht vorhanden!" G0SUB 
S50: IF pi=3 THEN LOCATE 1,5+3:PRINT 
"Suchwort {2 SPACEI® "jsws}" *(2 SPA 
CEI=-(2 SPACE}Datei ist vollstindig 
ausgedruckt!" 

IF pi=3 AND zz>® THEN #$="Gesamt-Au 
sdruck nach Suchwort wird beendet!" 
+i$:G0SUB 550: G0SUB 3870: g6="":GOTO 
3768 

ge=""ıFOR t=1 TO SOBBINEXTIEOTO 376 


FOR zz=2z TO 62: PRINT#BLNEXT:PRINTH 
8,CHR$ (18) 5 TAB (26- INT (LEN (aw$) /2) )" 
ausdruck nach Suchwort (2 SPACE 
sans" #"SCHR$ (12) 122=Q RETURN 


38980 
3898 


3908 ' 
3910 
3920 
3930 
3940 
3950 
3968 
3978 
3988 
3990 
EL] 


BB 
4020 
4038 
4048 
4958 


4868 
4970 


Datei-Inventarsummen ermittel 


!60SUB,1,1180:60T0 3558 
St}ckzahlen 
tGOSUB,1,1478:60T0 3558 


ern ermitteln #*#* 


“0% Untermen? > DRUCKEN < ###* 
CLS:WIDTH 255 

PRINT: PRINT, "Untermen} (2 _SPACEI> DR 
ÜCKEN <" PRINT ‚STRING$ (22, "-") 
PRINTEPRINT,"Was soll ausgedruckt w 
erden?" 
PRINTSPRINT,">1<{2 SPACE}Einzelausd 
ruck nach Nr 
PRINTEPRINT 
ruck der Datei 
PRINTSPRINT,")3<{2 SPACE}Gesamtausd 
ruck nach Süchwort" ; 

#$=e$:G0SUB 62@:pi=p: IF pi<i THEN 2 
200 ELSE IF p1>3 THEN 4058 

IF dr=i THEN 4290 

#$="Drucker angeschlossen?" +h$:G0SU 
B 550: G0SUB 710: IF t$="J" THEN PRIN 
TAB, s:dr=1 

IF {$<>"3" THEN f$="Bitte Drucker a 
nschlie”en!":G0SUB 55@:FOR t=1 TO 1 
SOB: NEXT: GOTO 4070 

ELs:#$="Ausdruck der vallst{ndigen 
Dateikarten?"+h$: BOSUB 558: B0SUB 71 
@: IF t$="Jj" THEN s=ss:G070 4110 
#$="Welche Dateispalten ausdrucken? 
{2 SPACE}Von Nr. 1 bis Nr.":GOSUB & 
28: s=psIF s<5 THEN s=5 ELSE IF s>ss 
THEN s=us 

IF pi>1 THEN 4148 
#$="Ausdruck des Dateinamens 
OSUB 55B: OSUB 71B: IF ts="J" 
OSUB 1758 

#$="Ausdruck der Spaltenbezeichnung 
en?"+h$1GOSUB 550: G0SUB 71M:IF t$=" 
3" THEN GOSUB 2818 
f$="Zwischenzeile nach einer Datei- 
Karte?"+h$:GOSUB SS@:GOSUB 71@: IF t 
$="j" THEN dz=1 ELSE dz=@ 

ON pı GOTO 4170,4270,3748 


<i2 SPACE}Gesamtausd 


+h$:6 
THEN 6 


"wer Einzelausdruck ##* 
$="Welche Dateikarten ausdrucken? 
on Nr.":#%=9%:G0SUB 620: a=pı IF adz 
1 THEN 4198 ELSE IF ai TI IF zz= 
@ THEN 3970 ELSE 4248 
#$=g$+5TR$(a)+" bis Nr. ":GOSUB 620: 
esp:IF e<a THEN e=a ELSE IF e)zi TH 
EN emzi 

#$="Dateikarten werden ausgedruckt! 
"+14: G0SUB 558 

FOR z=a TO e:GOSUB 310:G05UB 1490:6 
OSUB 211: IF zz<6B THEN NEXT 

se" IF zz<60 THEN 4198 
Pr="Einzel-Ausdruck wird beende 
i$:G08UB 55@:CL8 

FOR zz=zz TO 62:PRINT#B:NEXT:PRINT# 
8,CHR$ (18) ; TAB (33) "Datei -Einzelausd 
rück";CHR$ (12) 122=8:60T0 3978 


er Ge 


Yn+ 


mtausdruck *## 


CLS:g$="Gesamtausdruck der Datei!"+ 
i$:G0SUB 1950: G0OSUB 2010: $=g$: GOSU 
B 558 

FOR z=1 TO z1:60SUB 31@:60SUB 1490: 
GDSUB 211@: IF z<zi AND zz>59 THEN 4 
320 


LiAEEI 


LC6CBI 
[B868] 


15586] 


LCEZEI 
166441 


L99CE1 
L9F341 


LEBF&6] 
[C526) 
[A638] 
LC32AJ 
[EBS4] 
[292€] 
153441 
LE7321 
L&BCE] 
L9D361 
L1@9Al 
185721 
L&BABI 
LBS5AC1 
LA9781 
[86241 
L797E1 
LEB321 
LBAGEI 
LBE1AI 


LSFEEI 


cac721 
LA2BA1 


LEESEI 


LFCCCI 


L53Q@EI 
[66001 
CE8241 
17988] 
L9A281 


EBSC61 


A394] 
132241 


L374E1 
108621 


LEF@2] 


L8BC21 
L9A261 
[36A6] 
LEA2A] 


L79B61 


T1asaı 


4318 


4320 


4338 
4348 
4358 
4368 
4370 


4380 
4390 
4408 
4418 
4420 


4430 
Lrrt] 
4450 


4460 


4470 
4480 


4498 
4500 


4518 
4528 
4538 
4548 
4558 
4568 
4578 
4588 
4598 
4688 
4618 
4628 
4638 


4648 
4658 
4668 
4678 
4688 
4698 
4708 
4718 
4720 
4738 
4748 


4758 


4768 


4770 
4788 
4798 
4800 
4918 


4828 
4830 


4840 


4850 


4868 


4878 


4888 
4898 


NEXT=PRINT=PRINT"Datei (2 SPACEI* "; 
n$;" #{2 SPACE}ist vollst(ndig ausg 
edruckt!" 

FOR zz=zz TO 62:PRINT#8:NEXT:PRINT# 
8,CHR$ (18) ; TAB(33) "Datei-Gesamtausd 
ruck";CHR$(12):22=@: IF z<z1 THEN CL 
S:60SUB_ 1958: G0SUB 2818: f$=g$: GOSUB 
550: S0T0 431® ELSE g$="":G0T0 3970 


"##* Untermen? 


CLS 

PRINT=PRINT ‚"Untermen? {2 SPACE} >SIC 
HERN <": PRINT ‚STRING$ (21,"-") 
PRINT:PRINT,"Mit welcher Geschwindi 
keit sichern?" 

RINT:PRINT,">1<(2 SPACEI1QQ@ Baud 
{SPEED WRITE @)" 

PRINT:PRINT,">2<(2 SPACEI2O@G Baud 
(SPEED WRITE 1)" 
PRINT+PRINT,">3<(2 SPACEIS6@B Baud 
{TURBO SAVE) " 

+$=e$:G0SUB 6420: IF p<1 THEN 2200 EL 
SE IF p>3_THEN 4420 

IF p=1 THEN SPEED WRITE ® 

IF p=2 THEN SPEED WRITE 1 

IF_p=3 THEN POKE &B8D1,2:POKE &B8D2 


23 
ELSı#$="Datei (2 SPACEI* "Ans+" #(2 
SPACE?wird gesichert! "+i#:G0SUB 550 


SICHERN < #r#* 


PRINT:OPENOUT n$ 
PRINT#9 ,n$: PRINT#9,da$:PRINT#9,5,21 


1z 

FOR si=1 TO stPRINT#9,b$(s1) :NEXT 
FOR 22=® TO 1@:PRINT#9,d1 (22,1) ‚dit 
22,2) NEXT 

PRINT#9,b1 ,b2,b3,b4,b5 

IF s>5 THEN PRINT#9,b& 

IF s>& THEN PRINT#9,b7 

IF s>7 THEN PRINT#9,b8 

IF s>8 THEN PRINT#9,b? 

IF s>9 THEN PRINT#9,biB 

IF =>1@ THEN PRINT#9,b11 

IF s>11 THEN PRINT#9,b12 

IF s>12 THEN PRINT#7,b1S 

IF s>13 THEN PRINT#9,b14 

IF s>14 THEN PRINT#9.b15 

FOR z=1 TD z1:G0SUR 318 

FRINT#9 ‚d1$: PRINT#9 ‚d2$: PRINT#9 ,d3$ 
:PRINT#9 ,d4$: FRINT#9,d5$ 

IF s>5 THEN PRINT#9,d4s 

IF =>& THEN PRINT#9,d7% 

IF s>7 THEN PRINT#9,d8$ 

IF =>8 THEN PRINT#9,d98 

IF =>9 THEN PRINT#9,di@$s 

IF s>1® THEN PRINT#9,dil$s 

IF s>11 THEN PRINT#7,d12% 

IF =>12 THEN PRINT#9,d13% 

IF s>13 THEN PRINT#9,d14% 

IF s>14 THEN PRINT#9 ,d15% 

NEXT: CLOSEQUT:ds=@: PRINT:PRINT"Date 
i gesichert! 
Bitte Cassette f}r CAT-Ablauf z 
ur>ckspulen!":GOSUB 55@:PRINT CHR$( 
OR t=1 TO AQQ@: NEXT 

tte f}r CAT-Ablauf zurickg 
esp 'h$: GOSUB 550: G0SUB 710: IF 
t$<>"J" THEN 4768 

LOCATE 33,18: PRINT"CAT-Abbruch mit 
>ESCX ünd irgendeiner Taste" 
f$="Dateisicherung wird }berprift!" 
+i$:G0SUB SS@:LOCATE 1,5:CAT 

IF pi=9 THEN 4848 ELSE’ 2200 


RAM DISK schlie”en 


#$="RAM DISK wirklich schlie”en?"+h 
$:G0SUB 558:G0SUB 71@: IF t+< 
EN 220@ ELSE IF t#="J" AND d 
N 48648 

CLSıf$="Daten wurden nicht 
t!c2 SPACEIBitte Cassette ein 
®;G0SUB SS@: FOR t= 
f$="Cassette einge: 
59: G0SUB 71@: IF t# 
TO 4348 ELSE 4858 
#$="RAM DISK ist geschl 
CEI* *(3 SPACE} Zum \#fne: 
PEN,r:G0TO 18 < eingeben 
B: IRAMCLOSE 

CLS:WINDOW 21,6@,11,15:PEN @:PAPER 
1:CLS:LOCATE 11,3:PRINT"» #(2 SPACE 
3E N D E(2 SPACE)“ «" 

CALL &BB18:CLS:LOCATE 12,5: PRINT 
AMOPEN,r:G0TO 1@": PRINT EHR$(3@) 
END 


Err .r 


en! 
0 S0a0: NEXT. 

t?"+h$: BOSUB_ 5 
THEN p1=9:60 


:60SUB 55 


Listing 4. »Futter« für Bank 0 (Schluß) 


„171441 


LFAABI 


CCD143 
CBD22] 
L937E] 
L9B261 
CiB9E] 


C4B441 
L87D6] 
L8AB2I 
159A8] 
L8D961 


LASAEI 
[BEA6] 
LBBACI 


L76BA1 


LD73A1 
C1A241 


CCAF41 
[7846] 


LE62CI 
L9C3Q] 
[69381 
L&D3EI 


[B54A] 
L2D9EI 
LEFFZ1 
EDEFSI 
L25FEI 
LAFFZI 
LACFBI 
TBBAEI 


CABCAI 
LAQBA1 
L37983 
T4E9&1 
[259C1 
Ei1F@] 
[64441 
[B2381 
LDaSEI 
[B6441 
E7C4A1 


LEDFBI 


L37BE1 


[85241 
L3F3EI 
CBS52A1 
LFCS@1 
13026] 


CE148] 
LEE2AI 


CBD6CI 


LC47E1 


LB@A41 


LE244] 


L2@D41 


LABFB1 
EFB983 


ZEDSe 


OmMPIT 
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Das Super-Disketten-Tool 


Diskettenmonitor-Programme gibt es viele. Aber 
nur eins ist so vielseitig wie »Superutility«. 

igentlich benötigt man zur umfassenden Handha- 

bung seiner Diskettendaten ständig mehrere Utility- 

Programme: Ein Disketteneditor beugt oft dem Ver- 
lust wichtiger Daten vor, dient aber auch vielen anderen 
Zwecken. Und ein komfortables Werkzeug zur dateiweisen 
Bearbeitung des Disketteninhalts ist ohnehin wünschens- 
wert. Also - warum nicht alles zu einem leicht zu handha- 
benden Software-Paket schnüren? Aufgrund dieser Über- 
legung entstand das Programm »Superutility«, dessen 
Listing Sie hier finden. Eine Besonderheit kennzeichnet es 
darüber hinaus: Es ist komplett in der beliebten Sprache 
Turbo-Pascal geschrieben. 

Superutility besteht aus drei einzelnen Programmen, die 
Sie einzeln oder gemeinsam nutzen können. Aus Platz- 
gründen finden Sie in dieser Ausgabe zunächst den Datei- 
Editor, der selbständig lauffähig ist. Die Listings der ande- 
ren beiden Bestandteile des Paketes folgen im nächsten 
Schneider-Sonderheft. »Fileedit«arbeitet unter allen CP/M- 
Versionen, wenn es dort compiliert wurde. Aufgrund des 
begrenzten Speicherplatzes unter dem Standard CP/M 2.2 
der Schneider-Computer, aber auch weil die einzelnen Pro- 
grammteile auf gemeinsame Unterroutinen zugreifen, ver- 
teilt sich das Programm auf insgesamt 20 Listings, die zum 
Großteil aus Include-Dateien bestehen. Und da man das 
Rad eigentlich nicht ein zweites Mal zu erfinden braucht, sind 
viele davon der Turbo-Lader-Programmbibliothek entnom- 
men. Die Veröffentlichung dieser Routinen erfolgt mit freund- 
licher Genehmigung des Markt&Technik-Buchverlags. 

Fileedit ist ein komfortabler Disketteneditor. Sein beson- 
derer Bedienungskomfort ergibt sich aus dem Umstand, 


daß er nicht sektor- sondern dateiorientiert arbeitet. Der 
Benutzer muß sich also nicht mühselig durch die Sektor- 
strukturen der Diskette »hangeln«, um die mitunter arg ver- 
streuten Teile einer Datei zu finden. Vielmehr sucht Fileedit 
automatisch die Bestandteile der Datei des vorgegebenen 
Namens zusammen und erlaubt ihre einfache Verände- 
rung. Nebenbei bietet es menügesteuert diverse Dateiope- 
rationen wie das Löschen, Umbenennen und Neuanlegen 
einzelner Dateien. 

Bei der Eingabe der Listings müssen Sie darauf achten, 
die einzelnen Teile unter dem richtigen Dateinamen zu 
speichern (steht jeweils unter dem Listing). Da Turbo- 
Pascal während der Compilierung auf die Routinen des 
entsprechenden Programms zugreift, müssen Sie die rich- 
tigen Teile gemeinsam auf die Compiler-Diskette kopieren. 

Auf die Handhabung brauchen wir dank der Bildschirm- 
orientierten Benutzerführung nicht näher einzugehen. Nur 
ein Punkt ist hier erwähnenswert: Ist in den Bedienungshin- 
weisen auf dem Bildschirm die Rede davon, <ESC> zu 
drücken, ist damit natürlich (CP/M-typisch) die Tastenkom- 
bination <CTRL+[> gemeint. (Thomas Bullinger/ja) 


program File_editor ; 
const max_WA =8 ; 


max_WS = 30 ; 

$I DECL.UTL) 
$I HEXBIT.UTL] 
$I STRINGS.UTL) 
$I MENU.UTL) 
$I CPM.UTL) 

$I FENOO.UTL) 
$I FENOL.UTL) 
$I FENO2.UTL) 
$I.FEOO.UTL} 

$I FDEDIT.UTL] 
$I FEOL.UTL] 

$I FEO2.UTL] 

$I FEO3.UTL) 

$I FDSECOO.UTL] 
{$I FDSECO1.UTL) 
{$I FDSECO2.UTL) 
{$I FDSECO3.UTL] 


Steckbrief 
Program: Superutility 
Computer: | CPC 464166416128 
CPM: | Plus 
Datenträge Kassette, Diskette 
Besondere: Turbo-Pascal 
AH 
2a: 
3 : exec_file ; 
4: kill file ; 
5 : ren_file ; 
6 : directory ; 
7 : create_file ; 
8 : sector_file ; 
end ; 
until (index ( 3) ; 
des_init ; 
if (index = 2) 
then 
begin 


assign (datei, "A:SUPERUTL.CHN') ; 
chain (datei) ; 

end 

else 
elrser ; 


end. Listing 1. FILEEDIT.PAS 


$I FEO4.UTL] 
{$I FEOS.UTL) 


begin 
init ; 
repeat 
index := menul (menu_haupt, ' FILEEDIT 
Version 1.3 ', max WA) ; 
case (index) of 


{ Deklarationen fuer 


type Work_String 


".UIL” - Dateien} 
string [max_WS] ; 


wu 


Work String array = array [1..max_WA] 
of Work_String ; 
Real_Array = array [1..max_RA] 


of real ; 
Listing 2. DECL.UTL 
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funetion hex8 
(bite : byte) : Work string ; 
const hex_array : array [0..15] of char 
= '0123456789ABCDEF' ; 
begin 
hex8 := hex_array[bite shr 4] 
+-hex_array[bite and $0F] ; 
end ; 


funetion hex16 
(word : integer) : Work String ; 
const‘ hex_array : array [0..15] of char 
= '0123456789ABCDEF' ; 
begin 
hex16 := hex8 (word shr 8) 
+ hex8 (word and $FF) ; 
end ; 


funetion Hex_Dec 
(hex : Work_string) : byte ; 


function nibble_convert 
(nibble : Work_ String) : byte ; 
begin 
nibble := upcase (nibble) ; 
if (ord(nibble) ) $39) then 
nibble_convert := ord(nibble) - 55 
else 
nibble_eonvert := ord(nibble) - $30 ; 
end ; 


begin 
if (length (hex) = 2) 
then 
begin 
hex[1] upease (hex[1]) ; 
hex[2] upcase (hex[2]) ; 
Hex_dec := 


(nibble_convert (hex[1]) x 16) 
+ (nibble_convert (hex[2])) ; 
end ; 
end ; 


funetion Hex_Dec16 


(hex: Work_string) : integer ; 


begin 

if (length (hex) = 4) 

then 

begin 
hex[1] upease (hex[1]) ; 
hex[2] upcase (hex[2]) ; 
hex[3] := upcase (hex[3]) ; 
hex[4] upcase (hex[4]) ; 
Hex_Dec16 := 


(Hex_Dee (copy (hex, 1, 2)) x 256) 
+ Hex_Dec (copy (hex, 3, 2)) ; 
end ; 
end ; 
funetion elrbit 
(word: integer; n: byte): integer ; 


begin 
elrbit := word ; 
if (n) 15) 
then 
n:=15; 


elrbit := word and not (1 shl.n) ; 
end ; 


funetion setbit 
(word: integer; n: byte): integer ; 


begin 
setbit := word ; 
if (n) 15) 
then 
n:=15; 
setbit word or (1 shl.n) ; 
end ; 


function bitset 
(word: integer; n: byte): boolean ; 


begin 
bitset := false ; 
if (n) 15) 
then 
n:=1; 


bitset := (word and (1 shi n)) =1shln; 
end ; 


Listing 3. HEXBIT.UTL 


var k : integer ; 
begin 
search_string := -1 ; 
for k := i to j do 
if (pos(search, search_array[k]) () 0) 
then search_string := k ; 
end ; 


procedure replace (var source : 
Work_string ; from,repl : 
Work_string ; 
var count : byte) ; 
var position : byte ; 
begin 
position := pos(from,source) ; 
while (position () 0) do 
begin 
delete (source, position, 
length(fron)) ; 
insert (repl, source, position) ; 
if (eount ) 1) then 
begin 


count := count -1; 
position := pos(from,source) ; 


end 
else 
position := 0 ; 
end ; 
end ; 
funetion cut 
(var st : Work_string ; delim : 
Work_string) : Work_string ; 
var position : byte ; 
begin 
eub = tt 5 


position := pos(delim, st) ; 
if (position () 0) then 


begin 
cut := copy(st, 1, position-1) ; 
st := copy(st, position+length(delim), 
length(st)) ; 
end ; 
end ; Listing 4. STRINGS.UTL 
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function left_string 
(st : Work_string ; tu : 
byte) : Work_string ; 
begin 
if (tu ( length(st)) then 
left_string := copy(st, 1, tu) 
else 
left_string := st ; 
end ; 


funetion mid_string 
(st : Work_string ; fron, len : 
byte) : Work_string ; 
begin 
mid_string := copy(st, from, len) ; 
end ; 


funetion right_string 
(st : Work_string ; num : 
byte) : Work_string ; 
begin 
if (num ( length(st)) then 
right_string := copy(st, 
length(st)-num+1, num) 
else 
right_string := st ; 
end ; 


function instr 


(st : Work_String ; search : 
Work_String) : byte ; 
var gefunden : boolean ; 
i : byte ; 
begin 
if ((length(st) ( 255) 
and (length(search) ( 255)) 
then 
begin 
Kutaez 
gefunden := false ; 
while ((i (= (length(st) 
- length(search) + 1)) 
and (not gefunden)) do 


begin 
if (copy (st, i, length(search)) = 
search) 
then 
gefunden := true 
else 
Aw 405 
end ; 
end ; 
if (gefunden) 
then 
instr := i 
else 
instr :=0; Listing 4. 
end ; STRINGS.UTL (Schluß) 


function menul 
(menupos : Work_String_ array ; 
title : Work_String ; 


n : byte) : integer ; 
var x,y‚i,delta : byte ; 
ı char ; 
-1;5 
if (n) 20) 


then 
writeln ('(menu) 
Zu viele Positionen!) 
else 
begin 
if (n) 10) 


1 


2; 
- length (title)) DIV 2; 


elrser ; 
gotoxy (x,y) ; 
highvideo ; 
write (title) ; 
gotoxy (6, 24) ; 
write ("Auswahl durch ("X), (”E) 
oder Buchstaben, dann 
(RETURN) ') ; 
lowvideo ; 
y 7-nDIV (2x (3 - delta)) ; 
x CR 
for i :=1tondo 
begin 
gotoxy (x - 6, y+i x delta) ; 


write (chr(64 + 1):2, ' -) ', 
menupos[i]) ; 
end ; 
2:=ll5 
gotoxy (x, y + delta) ; 
highvideo ; 
write (menupos[i]) ; 
lowvideo ; 
ch := ! 135 
while (ch () “M) do 
begin 
read (kbd, ch) ; 
ch := upcase (ch) ; 
if (ch = "E) then 
begin 
gotoxy (x, y+i x delta) ; 
write (menupos[i]) ; 


ie=i-dl; 
if (1 (= 0) 
then 

i:2n; 


gotoxy (x, y+ ix delta) ; 
highvideo ; 
write (menupos[i]) ; 


lowvideo ; 
end ; 
if (ch = "X) then 
begin 


gotoxy (x, y+i x delta) ; 
write (menupos[i]) ; 


i 3a eler, 
if(i)n) 
then 


1:= 1-5 
gotoxy (x, y+ ix delta) ; 
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highvideo ; 
write (menupos[i]) ; 
lowvideo ; 
end ; 
if ((ord(ch) - 64) in [1..n]) and 
((ord(ch) - 64) () i) 
then 
begin 
gotoxy (x, y+i x delta) ; 
write (menupos[i]) ; 
1 = ord(ch) - 64 ; 
gotoxy (X, y + i x delta) ; 
highvideo ; 
write (menupos[i1]) ; 


lowvideo ; 
end ; 
end ; 
menul :=i ; 
end ; 


end ; 


procedure set_menu_item 
(var menupos : Work_String_array ; 


txt : Work_String ; 
n : byte) ; 
begin 
menupos[n] := txt ; 
end ; Listing 5. MENU.UTL 


| Folgende type- und var- Statements 
duerfen nicht modifiziert werden: } 


type FCBType_TL = record 
drive ı byte ; 
name : array [1..8] of char ; 
typ : array [1..3] of char ; 
eurr_ext : byte ; 
resi ı byte ; 
res2 : byte ; 
rec_cent : byte ; 
fab : array [1..16] of byte ; 
end ; 


; 
var feb1 : FCBType_IL ; 
feb2 : array [0..3] of FCBType_TL ; 


procedure set_dma_address (adr : integer) ; 
begin 
bdos ($1A,adr) ; 
end ; 
function first_Dir_entry (drv : byte; var 
search : Work_String) : boolean ; 


veri ı byte ; 
result : integer ; 
begin 


set_dma_address (addr (feb2)) ; 
febl.drive := drv ; 
move (search[1], febi.name, 11) ; 
fillchar (febl.curr_ext, 23, 0) ; 
result := bdos ($11, addr(feb1)) ; 
if (result () 255) then 
begin 
move (mem[addr(feb2[result])+1], 
search[1], 11) ; 
search[0] := #11 ; 
for 1 := 1 to 11 do 
search[i] := chr(ord(search[i]) 


and $7F) ; 
first_dir_entry := true ; 
end 
else 
first_dir_entry := false ; 
end ; 


function next_dir_entry (var entry : 
Work_string) : boolean ; 


ver i : byte ; 
result : integer ; 
begin 


set_dma_address (addr (fcb2)) ; 


result := bdos ($12, addr(fcb1)) ; 
if (result () 255) then 
begin 
move (mem[addr(feb2[result])+1], 
entry[1], 11) ; 
entry[0] #11; 
for i := 1 to 11 do 
entry[i] := chr(ord(entry[i]) 


and $7F) ; 
next_dir_entry := true ; 
end 
else 
next_dir_entry := false ; 
end ; 


funetion login_vector : integer ; 
begin 

login vector := bdosHL ($18) ; 
end ; 


function disk_param : integer ; 
begin 

disk_param := bdosHL ($1F) ; 
end ; 


function current_disk : byte ; 
begin 

eurrent_disk := bdos ($19) ; 
end ; 


procedure set_eurrent_disk (drv : byte) ; 
begin 
bdos ($0E, drv) ; 


end ; 
function current_user : byte ; 
begin 

current_user := bdos ($20, 255) ; 
end ; 


procedure set_current_user (n : byte) ; 
begin 
if (n ( 16) then 
bdos ($20, n) ; 
end ; 


funetion io_byte : byte ; 
begin 
io_byte := bdos (7) ; 


Listing 6. CPM.UTL 
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end ; 


procedure set_io_byte (io_value : byte) ; 
begin 

bdos (8, io_value) ; 
end ; 


funetion cpm_version : integer ; 
begin 

epm_version := bdosHL ($00) ; 
end ; 


function bios_plus 
(funktion, Akku,RegBC,RegDE,RegHL: 
integer): integer ; 
var BiosPB : record 
fune, AReg ı byte ; 


BOreg,DEreg,HLreg: integer ; 


end ; 
begin 
with BiosPB do 
begin 
fune 
AReg 
BCreg 
DEreg 
HLreg:= RegHL ; 
end; 
if (funktion in [9,16,20,22,25]) 
then 
bios_plus := BdosHL(50,Addr(BiosPB)) 
else 
bios_plus := Bdos(50,Addr(BiosPB)) ; 
end; 


type fenster_info = record 
geschlossen : boolean ; 
byte 


ursprung x ’ 
ursprung_y byte ; 
breite ı byte ; 
hoehe ı byte ; 


end ; 
modus_type = (normal, invers) ; 
const f_info : array [1..10] of 

fenster_info = 
(( geschlossen: true; 
ursprung_x : 1; ursprung_y: 
1; breite: 0; hoehe: 0 ), 
( geschlossen: true; 
ursprung x : 1; ursprung_y: 
1; breite: 0; hoehe: 0 ), 
( geschlossen: true; 
ursprung x : 1; ursprung_ y: 
1; breite: 0; hoehe: 0 ), 
( geschlossen: true; 
ursprung_x :; 1; ursprung_ y: 
1; breite: 0; hoehe: 0 ), 
( geschlossen: true; 
ursprung x : 1; ursprung_y: 
1; breite: 0; 
hoehe: 0 ), ( geschlossen: 
true; ursprung x : 1; 
ursprung_y: 1; breite: 0; 
hoehe: 0 ), ( geschlossen: 
true; ursprung x : 1; 
ursprung_y: 1; breite; 0; 
hoehe: 0 ), ( geschlossen: 
true; ursprung x : 1; 
ursprung y: 1; breite: 0; 
hoehe: 0 ), ( geschlossen: 
true; ursprung x : 1; 
ursprung_y: 1; breite: 0; 
hoehe: 0 ), ( geschlossen: 
true; ursprung x : 1; 
ursprung_ y: 1; breite: 0; 


hoehe: 0 )) ; 
f_kein_Fehler =0; 
f_falsches_Fenster = 1; 
f_schon_offen =2; 
f_Fenster_zu =3; 
f_falsches x =4; 
f_falsches_y on 
f_falsche_breite =6; 


Listing 6. CPM.UTL (Schluß) 


f_falsche_hoehe =7; 
f_Fehler : byte = f_kein_Fehler ; 
leerzeile : string [80] = ' 


ar 
5 


funetion f_nummer_ok 
(fensternummer: byte) : boolean ; 


begin 
if (fensternummer in [1..10]) then 
f_numner_ok := true 
else 
f_numner_ok ;= false ; 
end ; 


funetion f_geschlossen 
(fensternummer: byte) : boolean ; 
begin 
if (f_info[fensternummer] .geschlossen) 
then 
f_geschlossen := true 
else 
f_geschlossen := false ; 
end ; 


funetion f_fehlerstring : Work_string ; 
begin 
case f_fehler of 
fkein_Fehler B 
f_fehlerstring := 'Kein Fehler! ; 
f_falsches_Fenster : 
f_fehlerstring := 'Falsches Fenster! ; 
f_schon_offen B 
f_fehlerstring := 'Fenster schon offen' ; 
f_Fenster_zu B 
f_fehlerstring := 'Fenster geschlossen! ; 
f_falsches_x B 
f_fehlerstring := 'Falsche x- 
Koordinate! ; 
f_falsches_y H 
f_fehlerstring := "Falsche y- 
Koordinate! ; 
f_falsche_breite : 
f_fehlerstring := 'Breite zu gross! ; 
f_falsche_hoehe & 
f_fehlerstring := 'Hoehe zu gross' 


else f_fehlerstring := "Unbekannter 
end ; Fehler! ; 
end ; Listing 7. FENOO.UTL 
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procedure f_locate 
(fensternumner: byte ; 


px : byte ; 

Dy : byte ; 

modus : modus_type ) ; 
ver X, y : byte ; 


begin 
f_fehler := f_kein_Fehler ; 
£ (f_nummer_ok (fensternumner)) then 
begin 
if (f_geschlossen (fensternummer)) then 


f_info[fensternumner] .hoehe) 
then 


f_info[fensternumnmer] .ursprung_y 
+py-1 
else 
f_fehler := f_falsches_y ; 
if (f_fehler = 0) then 
begin 
gotoxy (x, y) 5; 
if (modus = invers) then 


blank_string := copy (leerzeile, 1, 
f_info[fensternummer].breite) ; 
write (blank_string) ; 
lowvideo ; 
end ; 
end 
else 
f_fehler := f_falsches_Fenster ; 
end ; 


procedure f_clw 
(fensternumner: byte ; 


modus : modus_type ) ; 
var index : byte ; 
Py ı byte ; 


begin 
f_fehler := f_kein_Fehler ; 
if (f_nummer_ok (fensternummer)) then 
begin 
if (f_geschlossen (fensternumner)) 


f_fehler := f_Fenster_zu highvideo 
else else 
begin lowvideo ; 
if (px (= end ; 
f_info[fensternummer].breite) end ; 
then end 
x = else 
f_info[fensternumner] .ursprung_x f_fehler := f_falsches_Fenster ; 
+px -1 end ; 
else 
f_fehler := f_falsches_x ; 
if (py (= Listing 8. FENO1.UTL 
procedure f_c1l then 
(fensternummer: byte ; f_fehler := f_Fenster_zu 
py : byte ; else 
modus : modus_type ) ; begin 
var blank_string : string[80] ; for index := 1 to 
px ı byte ; f_info[fensternummer] .hoehe do 
begin begin 
f_fehler := f_kein_Fehler ; py := index ; 
if (£f_nummer_ok (fensternummer)) then f_ell (fensternummer, py, modus) ; 
begin end ; 
if (f_geschlossen (fensternummer)) end ; 
then end 
f_fehler := f_Fenster_zu else 
else f_fehler := f_falsches_Fenster ; 
begin end ; 
px :=1; procedure f_open 
f_locate (fensternummer, px, Py, (fensternumner: byte ; 
modus) ; px ı byte ; 
if (modus = invers) then py : byte ; 
highvideo breite : byte ; 
else hoehe : byte) ; 
lowvideo ; begin 


f_fehler := f_kein_Fehler ; 
if (f_nummer_ok (fensternumner)) then 
begin 
if (f_geschlossen (fensternummer)) then 
begin 
if (px ) 80) then 
f_fehler := f_falsches_x ; 
if (py ) 24) then 
f_fehler := f_falsches_y ; 
if (breite ) (81 - px)) then 
f_fehler := f_falsche_Breite ; 
if (hoehe ) (25 - py)) then 
f_fehler := f_falsche_Hoehe ; 
if (f_fehler = 0) then 
begin 
f_info[fensternummer] .geschlossen 
false ; 
f_info[lfensternummer] .ursprung_x 


Listing 9. FENO2.UTL 
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PX ; 
f_info[fensternumner] .ursprung y 
:= py; 
f_info[fensternummer] .breite 
breite ; 
f_info[fensternumner] .hoehe 
:= hoehe ; 

end ; 
end 
else 

f_fehler ;= f_schon_offen ; 


f_falsches_Fenster ; 


procedure f_close (fensternumner : 
begin 
£_info[fensternummer] „geschlossen 
i= true ; 
end ; Listing 9. FENO2.UTL (Schluß) 


type fehlereode = (keine_datei, 


kein_rename, datei_da) ; 
byte_feld = array [0..127] of byte ; 
const menu_haupt : Work_String_array = 
( ! Ende von FILEDIT', ' 
SUPERUTL aufrufen', 
' Datei ausfuehren' , ' 
Datei loeschen', 
' Datei umbenennen’, ' 


byte) ; 


Directory', 
' Datei neu anlegen', ' 
Datei bearbeiten') ; 


fen_infos =1; 
fen_darstellen = 2 ; 
fen_menu 3; 
fen_eingaben 4; 
fen_warten 55 
fen_fehler =6; 
sector_nummer : integer = 0 ; 
sector_modus : (asc_modus, hex_modus) = 
asc_modus ; 
sector_index byte =0; 
var index byte ; 
datei file ; 
dateiname Work_String ; 
sector : byte_feld ; 


procedure fehler 
(fehler_code: fehlercode) ; 
begin 
f_elw (fen_infos, normal) ; 
f_clw (fen_eingaben, normal) ; 
f_elw (fen_fehler, normal) ; 
f_locate (fen_fehler, 1, 1, invers) ; 
case (fehler_code) of 
keine_datei : write (' Datei ', 
dateiname, ' nicht vorhanden') ; 
kein_rename : write (' Umbennen in 
', dateiname, ' unmoeglich') ; 


datei_da : write (! Datei ', 
dateiname, ' schon vorhanden!) ; 
end ; 
lowvideo ; 
end ; Listing 10. FEOO.UTL 


procedure warten ; 


var eingabe : char ; 
begin 
repeat 
eingabe := 'N' ; 


f_cll (fen_ warten, 1, normal) ; 
f_locate (fen warten, 1, 1, invers) ; 
write (' Bitte Leertaste druecken') ; 
read (kbd, eingabe) ; 
until (eingabe = ' ') ; 
lowvideo ; 
end ; 


procedure init ; 

begin 
f_open (fen_infos, 1, 3, 80, 2) ; 
f_open (fen_darstellen, 1, 5, 80, 10) ; 
f_open (fen_menu, 1, 15, 80, 2) ; 
f_open (fen_eingaben, 1, 17, 80, 3) ; 
f_open (fen_warten, 1, 24, 80, 1) ; 
f_open (fen_fehler, 1, 23, 80, 1) ; 

end ; 


procedure des_init ; 

begin 
f_close (fen_infos) ; 
f_close (fen_darstellen) ; 
f_elose (fen_menu) ; 
f_close (fen_eingaben) ; 
f_close (fen_warten) ; 
f_elose (fen_fehler) ; 

end ; 


procedure proc_titel (titel: Work_string) ; 
begin 

elrser ; 

highvideo ; 

titel := + titel,# t 15 

writeln (titel) ; 

lowvideo ; 
end ; 


Listing 11. FDEDIT.UTL 


function get_datei : boolean ; 

ver i : byte ; 

begin 
dateiname := ' ! ; 
f_locate (fen_eingaben, 1, 1, normal) ; 
write (' Dateiname ? ') ; 
readin (dateiname) ; 
if (dateiname = '! ') 
then 
get_datei := false 

else 

begin 
if (mid_string(dateinane, 2, 1) () ':') 
then 

dateiname := 'A:' + dateiname ; 
for i := 1 to length (dateiname) do 
dateiname [i] := upcase 
(dateiname[i]) ; 

assign (datei, dateiname) ; 
[$I-] reset (datei) ; [$IH 
get_datei := (ioresult = 0) ; 
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end ; 
end ; 


procedure exec_file ; 
begin 
proc_titel ("Datei ausfuehren') ; 
if (get_datei) 
then 
begin 
des_init ; 
elrser ; 
close (datei) ; 
execute (datei) ; 
end 
else 
begin 
fehler (keine_datei) ; 
warten ; 
end ; 
end ; 


procedure kill file ; 
var eingabe : char ; 
begin 
proc_titel ('Datei loeschen') ; 
if (get_datei) 
then 
begin 


end ; Listing 12. FEO1.UTL 


close (datei) ; 
f_elw (fen_eingaben, normal) ; 
f_locate (fen_eingaben, 1, 1, normal) ; 
write (' Datei ', dateiname, ' loeschen 
Gm)? 5 
eingabe := ! ! ; 
read (kbd, eingabe) ; 
if (eingabe in ['j','J']) 
then 
begin 
erase (datei) ; 
f_elw (fen_infos, normal) ; 
f_elw (fen_eingaben, normal) ; 
f_locate (fen_infos, 1, 1, invers) ; 
writeln (' Die Datei ', dateiname, ' 
ist jetzt geloescht ') ; 
lowvideo ; 
end 
else 
f_clw (fen_eingaben, normal) ; 
warten ; 
end 
else 
begin 
fehler (keine_datei) ; 
warten ; 
end ; 


procedure ren_file ; 
begin 
proc_titel ('Datei umbennen') ; 
if (get_datei) 
then 
begin 
close (datei) ; 
dateiname := '! '; 
f_locate (fen_eingaben, 1, 2, normal) 
write (' Neuer Dateiname ? ') ; 
readin (dateiname) ; 
if (dateiname () '') 


then 
begin 
if (mid_string (dateiname, 2, 1) 
00m) 
then 
dateiname := 'A:' + dateiname ; 
{$I-] rename (datei, dateiname) ; 
{$I4 
if (ioresult () 0) 
then 
begin 
fehler (kein_rename) ; 
end ; 
end ; 
end ; 
warten ; 
end ; 


procedure directory ; 


var eingabe : char ; 
end_of_dir : boolean ; 
laufwerk : byte ; 
begin 


proc_titel ('Direetory') ; 
f_locate (fen_eingaben, 1, 1, normal) ; 


BER 


write (' Laufwerk (A/B) ? ') ; 
readin (eingabe) ; 
eingabe := upcase (eingabe) ; 
if (eingabe in ['A','B']) 
then 
begin 
f_clw (fen_eingaben, normal) ; 
f_locate (fen_infos, 1, 1, normal) ; 
write (' DIRECTORY fuer Laufwerk ', 
eingabe, ':') ; 
f_locate (fen_darstellen, 1, 1, 


invers) ; 
dateiname aarTR222?! ; 
laufwerk ord (eingabe) - 64 ; 
if (first_dir_entry (laufwerk, 
dateiname)) 
then 
begin 


end_of_dir := false ; 
write (dateiname:16) ; 
repeat 
if (next_dir_entry (dateiname)) 
then 
write (dateiname:16) 
else 
end_of_dir := tme ; 
until (end_of_dir) ; 
lowvideo ; 
end 
else 
write (' Directory leer ') ; 
end 
else 
f_elw (fen_eingaben, normal) ; 
warten ; 
end ; 


Listing 13. FEO02.UTL 
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procedure create_file ; 
var i, no_sektoren : integer ; 
begin 
proc_titel ('Datei neu anlegen') ; 
if (get_datei) 
then 
fehler (datei_da) 
else 
begin 
close (datei) ; 
f_locate (fen_eingaben, 1, 2, normal) ; 
write ('Wieviel Sektoren (0 = Kein 
Schreiben) ? ') ; 
readln (no_sektoren) ; 


if (no_sektoren ) 0) 
then 
begin 
rewrite (datei) ; 
for i 1 to no_sektoren do 
begin 
fillchar (sector, 128, $5A) ; 
blockwrite (datei, sector, 1) ; 
end ; 
elose (datei) ; 
end ; 
end ; 
warten ; 
end ; Listing 14. FEO3.UTL 


funetion hex_asc_y (i: byte) : byte ; 


procedure cursor_links ; 


f_locate (fen_darstellen, 
asc_x(sector_index), 
hex_asc_y(sector_index), 
normal) ; 
end ; 
"8 : begin 
eursor_links ; 
f_locate (fen_darstellen, 
asc_x(sector_index), 
hex_asc_y(sector_index), 
normal) ; 
end ; 
"E : begin 
eursor_hoch ; 


f_locate (fen_darstellen, 


begin begin 
hex_asc_y := 2 + (i div 16) ; if (sector_index ) 0) 
end ; then 
funetion hex_x (i: byte) : byte ; sector_index := sector_index - 1; 
begin end ; 
hexx := 5 + ((i mod 16) x 3) ; procedure cursor_hoch ; 
end ; begin 
funetion asc_x (i: byte) : byte ; if (sector_index ) 15) 
begin then 
ascx := 55 + (i mod 16) ; sector_index := sector_index - 16 ; 
end ; end ; 
procedure cursor_rechts ; procedure cursor_runter ; 
begin begin 
if (seetor_index ( 127) if (sector_index ( 112) 
then then 
sector_index := sector_index +1; seetor_index := sector_index + 16 ; 
end ; end ; Listing 15. FDSECOO.UTL 
procedure asc_editieren ; asc_x(sector_index), 
var eingabe : char ; hex_asc_y(sector_index), 
begin normal) ; 
repeat end ; 
f_locate (fen_darstellen, ”X : begin 
asc_x(sector_index), eursor_runter ; 
hex_asc_y(sector_index), f_locate (fen_darstellen, 
normal) ; asc_x(sector_index), 
eingabe := ! ! hex_asc_y(sector_index), 
read (kbd, eingabe) ; normal) ; 
if (ord (eingabe) ( $20) end ; 
then end ; 
begin end 
case (eingabe) of else 
°D : begin begin 
eursor_rechts ; sector[sector_index] := ord(eingabe) ; 


write (eingabe) ; 

f_locate (fen_darstellen, 
hex_x(sector_index), 
hex_asc_y(sector_index), 
normal) ; 

write (hex8 (ord (eingabe)):3) ; 

eursor_rechts ; 

f_locate (fen_darstellen, 
asc_x(sector_index), 
hex_asc_y(sector_index), 


normal) ; 
end ; 
until (eingabe = "[) ; 
end ; Listing 16. FDSECO1.UTL 


12Ayww.HOMBcoMEUTE 


procedure hex_editieren ; 
function hex_eingabe 
(erster_char : char) : 
Work_string ; 


var hex_char : char ; 
hex_string : string [2] ; 
begin 
hex_eingabe := '00' ; 


hex_char := upcase (erster_char) ; 
£ (hex_ehar in ['0'..'9', 'A',.'F'j) 
then 
begin 
hex_string := hex_char ; 
read (kbd, hex_char) ; 
hex_char := upcase (hex_char) ; 
if (hex_char in ['0'..'9', 'A'..'F']) 
then 
hex_eingabe := hex_string 
+ hex_char ; 
end ; 
end ; 
var eingabe : char ; 
hex_str : Work_string ; 
hex_zahl : byte ; 
begin 
repeat 
f_locate (fen_darstellen, 
hex_x(sector_index) + 1, 
hex_asc_y(sector_index), 
normal) ; 
eingabe := ! !; 
read (kbd, eingabe) ; 
if (ord (eingebe) ( $20) 


then 

begin 
case (eingabe) of 
"D : begin 


cursor_rechts ; 
f_locate (fen_darstellen, 
hex_x(sector_index), 
hex_asc_y(sector_index), 
normal) ; 
end ; 
°8 : begin 
eursor_links ; 
f_locate (fen_darstellen, 
hex_x(sector_index), 


hex_asc_y(sector_index), 
normal) ; 


end ; 
"E : begin 
eursor_hoch ; 
f_locate (fen_darstellen, 
hex_x(seetor_index), 
hex_asc_y(sector_index), 
normal) ; 
end ; 
°X : begin 
eursor_runter ; 
f_locate (fen_darstellen, 
hex_x(sector_index), 
hex_asc_y(sector_index), 
normal) ; 
end ; 
end ; 
end 
else 
begin 
hex_str := hex_eingabe (eingabe) ; ' 
hex_zahl := hex_dee (hex_str) ; 
seetor[sector_index] := hex_zahl ; 
write (hex_str) ; 
f_locate (fen_darstellen, 
asce_x(sector_index), 
hex_asc_y(sector_index), 


normal) ; 
if (hex_zahl in [$20..$7E]) 
then 
write (chr (hex_zahl)) 
else 


write ('.') ; 
eursor_rechts ; 
f_locate (fen_darstellen, 
hex_x(sector_index), 
hex_asc_y(sector_index), 


normal) ; 
end ; 
until (eingabe = "[) ; 
end ; 


Listing 17. FDSECO2.UTL 


procedure sector_editieren ; 

begin 
f_clw (fen_menu, normal) ; 
f_locate (fen_menu, 1, 1, normal) ; 
write ('"S - Links, ”D - Rechts, 

*E - Hoch, "X - Runter, ') ; 
write ('ESC - Quit (Ende)') ; 
seotor_index := 0 ; 
case (sector_nodus) of 

asc_modus : asc_editieren ; 
hex_modus : hex_editieren ; 
end ; 
end ; 
procedure sector_darstellen ; 
ver i : byte ; 
begin 
f_locate (fen_darstellen, 1, 1, normal) ; 


case (sector_modus) of 
asc_modus : write (' ASC ') ; 
hex_modus : write (' HEX ') ; 
end ; 
f_locate (fen_darstellen, 6, 1, invers) ; 
for i := 0 to 15 do 
write (hex8 (i1):2, ' '!) ; 


lowvideo ; 
for i := 0 to 127 do 
begin 
if (1 mod 16 = 0) 
then 
begin 


f_locate (fen_darstellen, 1, 


Listing 18. FDSECO3.UTL 
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hex_asc_y(i), invers) ; 
write (hex8 (1):3, ':') ; 


hex_asc_y(i), normal) ; 
if (sector[i] in [$20..$7F]) 


lowvideo ; then 
end ; write (chr (sector[i])) 
f_locate (fen_darstellen, hex_x(i), else 
hex_asc_y(i), normal) ; write ('.'!) ; 
write (hex8 (sector[i]):3) ; end ; 
f_locate (fen_darstellen, asc_x(i), end ; Listing 18. FDSE03.UTL (Schluß) 
procedure f_sector_nummer_holen ; begin 
var sector_no_neu : integer ; gleich := (org_feld[ig] 
begin = such_feld[ig+1]) ; 
f_elw (fen_eingaben, normal) ; ig :=ig +1 
f_locate (fen_eingaben, 2, 1, normal) ; end ; 
write ('Sektornummer (0 - ', gleichheit := gleich ; 
filesize(datei)-1, ') ? ') ; end ; 


readin (sector_no_neu) ; 
if (sector_no_neu ( 0) 
then 


sector_nummer := filesize(datei) - 1 
else 
begin 
if (sector_no_neu ) 
(filesize(datei)-1)) 
then 
sector_nummer := 0 
else 
sector_nummer := sector_no_neu ; 
end ; 
end ; 
procedure f_letzter_sector 
(seetor_no_alt: integer) ; 
begin 
if (sector_no_alt ) 0) 
then 
sector_nummer := sector_no_alt - 1 
else 
sector_nummer := filesize(datei) -1; 


end ; 
procedure f_naechster_sector 
(sector_no_alt: integer) ; 
begin 
if (sector_no_alt ( (filesize(datei)-1)) 
'then 
sector_nummer := sector_no_alt + 1 
else 
sector_nummer := 0 ; 
end ; 


procedure find_string ; 
var eingabe : Work_String ; 


such_strg Work_String ; 
such_index integer ; 
val_fehler : integer ; 


funetion gleichheit 
(org_feld : byte_feld) : boolean 
ver such_feld : array [0..max_WS] of 
byte absolute such_strg 
gleich : boolean ; 
ı byte ; 


g 0; 
while ((gleich) and (ig 
( length(such_strg))) do 


5 


function insec 
(org_sece : byte_feld) : integer ; 
var such_see : array [0..max_WS] of byte 
absolute such_strg ; 
gefunden : boolean ; 


ii : byte ; 
hilfs_sec: byte_feld ; 
begin 
ii :=0; 
gefunden := false ; 
while ((ii (= (sizeof(org_sec) 
- length(sueh_strg))) 
and (not gefunden)) do 
begin 


move (org sec[ii], hilfs_sec, 
length(such_strg)) ; 

gefunden := gleichheit (hilfs_sec) ; 

Hoseii+l; 


end ; 
if (gefunden) 
then 
insee := ii -1 
else 
insee := -1; 
end ; 


procedure string_suchen ; 


var gefunden ; boolean ; 
find_index : integer ; 
begin 


gefunden := false ; 
while ((such_index ( filesize(datei)) 
and (not gefunden)) do 
begin 
seek (datei, such_index) ; 
blockread (datei, sector, 1) ; 
find_index := insec (sector) ; 
if (find_index () -1) 
then 
begin 
gefunden := true 
end 
else 
such_index := such_index +1; 
end ; 
if (gefunden) 
then 
sector_nummer := such_index 


else write (' Ab Sektor (RETURN = 
begin aktueller) ? ') ; 
write ("0°C’6) ; eingabe := !' ; 
seek (datei, sector_nummer) ; readIn (eingabe) ; 
blockread (datei, sector, 1) ; if (eingabe = '') 
end ; then e 
end ; begin 
begin such_index := sector_nummer ; 
f_elw (fen_eingaben, normal) ; string_suchen ; 
f_locate (fen_eingaben, 1, 1, normal) ; end 
write (! Suchstring (max. ', max_WS, ' else 
Zeichen) ? ') ; begin 
eingabe := '' ; val (eingabe, such_index, val_fehler) ; 
readin (eingabe) ; if (val_fehler = 0) 
if (eingabe () '') then 
then string_suchen; 
begin end ; 
such_strg := eingabe ; end ; 
f_locate (fen_eingaben, 1, 2, normal) ; end ; ’ Listing 19. FE04.UTL 
procedure sector_bearbeiten ; f_elw (fen_eingaben, normal) ; 
var eingabe : char ; end ; 
begin 'H' : begin 
f_elw (fen_eingaben, normal) ; sector_modus := hex_modus ; 
f_locate (fen_infos, 2, 1, normal ); f_locate (fen_darstellen, 1, 
write (dateiname) ; 1, normal) ; 
sector_darstellen ; write (' HEX ') ; 
repeat end ; 
f_locate (fen_infos, 20, 1, normal) ; 'L'! : begin 
writeln ('Sektor: ', sector_nummer:5) ; f_letzter_seetor (sector_nummer) ; 
f_locate (fen_menu, 1, 1, normal) ; seek (datei, sector_nummer) ; 
write ('A - ASCII, B - Sektornummer, blockread (datei, sector, 1) ; 
E - Editieren, F - Suchen, ') ; sector_darstellen ; 
writeln ('H - Hex,') ; end ; 
write ('L - Letzter Sektor, 'Nt : begin 
N - Naechster Sektor, ') ; f_naechster_sector (sector_nummer) ; 
writeln ('S - Speichern, seek (datei, seetor_nunmer) ; 
Q - Quit (Ende)') ; blockread (datei, sector, 1) ; 
f_locate (fen_eingaben, 1, 1, normal) ; sector_darstellen ; 
write (' Befehl ? ') ; end ; 
eingabe := '! '; 'S! : begin 
readIn (eingabe) ; seek (datei, sector_nummer) ; 
eingabe := upcase (eingabe) ; blockwrite (datei, sector, 1) ; 
f_cll (fen_eingaben, 1, normal) ; end ; 
case (eingabe) of er 
'a' : begin else write ("G’G’G) ; 
sector_modus := asc_modus ; end ; 
f_locate (fen_darstellen, 1, until (eingabe = 'Q') ; 
1, normal) ; end ; 
write (' ASC ') ; 
end ; 
'B' : begin procedure sector_file ; 
f_sector_nummer_holen ; begin 
f_ell (fen_eingaben, 1, normal) ; proc_titel ('Datei bearbeiten') ; 
seek (datei, sector_nummer) ; if (get_datei) 
blockread (datei, sector, 1) ; then 
sector_darstellen ; begin 
end ; sector_nummer := 0 ; 
'E' : begin blockread (datei, sector, 1) ; 
sector_editieren ; sector_bearbeiten ; 
f_clw (fen_menu, normal) ; end 
f_elw (fen_eingaben, normal) ; else 
end ; fehler (keine_datei) ; 
'F' : begin close (datei) ; 
find_string ; warten ; 
sector_darstellen ; end ; Listing 20. FEO5.UTL 
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Im Spiel »Stone Runner« steuern Sie das kleine 
Männchen »Bity« durch Labyrinthe und versu- 
chen, möglichst viele der dort verstreuten Dia- 
manten einzusammeln. Doch Vorsicht- es lauern 
viele Gefahren. 


Problem«, denkt Bity bei sich, »das wär ja wohl 

gelacht.« So zieht er also los, die Diamanten zu 
holen. Hätte er gewußt, welch schwierige Aufgabe ihn 
erwartet, wäre er wohl nicht so leichtfertig gewesen. 

Das Gebiet, in dem Bity die Diamanten sammeln soll, 
sieht recht merkwürdig aus. Überall sind Löcher, in die Bity 
hineinfallen kann. Steckt er erst mal in einem, kommt er 
nicht wieder heraus. An anderen Stellen gibt es allerdings 
auch Hilfen für ihn. So darf er Leitern, Kletterseile und 
Sprungbretter benutzen, um Hindernisse zu überwinden. 
Auch hat er eine ätzende Flüssigkeit dabei, so daß er sich 
gegebenenfalls seinen Weg freiätzt. 

Es gibt jedoch noch weitere Probleme, deren Bewälti- 
gung Bity nicht gerade leichtfällt. Zum einen hat man ihm 
nur einen begrenzten Zeitraum zugestanden, um ein 
Gebiet nach allen Diamanten abzusuchen, zum anderen 
kostet ihn jeder Schritt Kraft, die er allerdings von Zeit zu 
Zeit wieder auffrischen kann. Um an die Diamanten zu 
gelangen, muß er sich jeden Schritt genau überlegen. 

Das Programm »Stone Runner. läuft auf allen CPCs und 
besteht aus vier Listings. Das Basic-Hauptprogramm fin- 
den Sie in Listing 1. Geben Sie es bitte mit Explora ein und 
speichern Sie es unter dem Namen »SR.BAS«. Da die Bild- 
schirmwiedergabe des Stone Runner auf die Verwendung 
eines Farbmonitors abgestimmt ist, sollten Sie für den 
Grünmonitor die Farbregister so ändern, wie es dort emp- 
fohlen ist. Die Listings 2, 3 und 4 enthalten Binärcodes. Der 
Maschinencode für zeitkritische Aufgaben (Bildaufbau 
etc.) steht in Listing 2. Der Bewegung der Spielfigur Bity die- 
nen die Sprite-Routinen aus Listing 3. Beide sind als DATA- 
Lader wahlweise mit Explora oder CPC einzugeben. 

Zum Abtippen des Listings 4 empfiehlt sich unbedingt 
unsere Eingabehilfe »CPC«, deren Listing und Bedie- 
nungsanleitung Sie ab Seite 87 dieser Ausgabe finden. 

Doch Sie können sich die Eingabe des sehr langen 
Listing 4 auch sparen, da es »nur« neun fertige Bilder als 
Spielfelder enthält. Zu diesem Zweck gehen Sie nach dem 


1:1 ity hat die Aufgabe, Diamanten zu sammeln. »Kein 


Bild 3. Im fünften Level müssen Sie gezielt Energie sparen 


Start des Stone Runner mit »RUN ”SR”«in dessen Editor 
(Menüpunkt »Konstruieren«). Die Bilder 1 bis 6 zeigen 
sechs der genannten neun Spielfelder, damit Sie erst ein- 
mal einen Grundstock haben. Geben Sie diese Bilder 
nacheinander ein undspeichern Sie sie (Menüpunkt »Spei- 
chern« und dann <B> für »Bilder« wählen) unter einem 
beliebigen Dateinamen (die Extension »PIC« vergibt der 
Computer automatisch). Bei der Eingabe des Listings mit 
CPC gehen Sie wie folgt vor. Starten Sie zunächst OPC. 
Wählen Sie dann <C> für»Code eingeben«. Die folgende 
Abfrage der Eingabeparameter überspringen Sie mit 
<ENTER> (oder <RETURN>). Für »Startnummer« 
geben Sie »1000« als Zeilennummer der ersten Zeile, für 
»Schrittweite« als Inkrement eine 1 ein. Nun erwartet CPC 
die Eingabe der Startadresse. Dabei handelt es sich um die 
erste vierstellige Hexadezimalzahl am Anfang des Listings 
(hier 61A0). Bei der Länge des Binärteils bieten sich kleine 
Arbeitspausen an. Dazu merken Sie sich die Adresse der 
Zeile hinter der zuletzt eingegebenen und unterbrechen 
die Eingabe mit <ESC>. Aus dem Hauptmenü wählen Sie 
dann <S> für»Schreibe Code« und speichern so das Tei- 
lergebnis. Wenn Sie später mit der Eingabe fortfahren wol- 
len, laden Sie erst den gespeicherten Teil mit <L> an 
seine Original-Ladeadresse (Sie erinnern sich: die erste 
Adresse des Listings, also 61A0 hex). Nun gehen Sie mit 
<C> wieder in den Eingabemodus, wählen jetzt als Start- 
adresse und Startnummer für die Eingabe aber die Werte, 
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Bild 4. Wer findet den kürzesten Weg? 
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die Sie sich beim Speichern als Ende gemerkt haben. Dort 
fahren Sie dann mit der Eingabe fort. Nachdem Sie diese 
Arbeit erfolgreich hinter sich brachten, speichern Sie den 
komplett eingegebenen Binärcode (wiederum mit <S>). 
Dabei fragt Sie der Computer jeweils nach zwei Parame- 
tern. Die Startadresse von »SR.PIC« (Listing 4) lautet 6147 
hex. Lassen Sie sich bitte nicht durch die Eingabe- 
Startadresse 61A0 hex in die Irre führen, 61A7 ist in diesem 
Fall korrekt. Die Endadresse als zweiter Parameter zum 
Speichern ist 821C hex. 

Nun muß Ihre Diskette mindestens die vier Dateien 
SR.BAS, SR.BIN, SR.SPR und SR.PIC enthalten (bei Ver- 
zicht auf die fertigen Bilder aus SR.PIC natürlich nur drei). 
Diverse Lade- und Speichervorgänge der Bilder und Best- 
zeiten machen Stone Runner für Kassettenbetrieb eigent- 
lich ungeeignet. Wollen Sie auf dieses tolle Spiel als Besit- 
zer eines CPC 464 ohne Diskettenlaufwerk trotzdem nicht 
verzichten (was angesichts seiner Qualitäten durchaus ver- 
ständlich ist), speichern Sie auf der Kassette zuerst 
Listing 1. Dahinter muß direkt der Maschinencode aus 
Listing 2 unter dem Namen »SR.BIN« gespeichert sein. Im 
Anschluß daran erwartet Stone Runner die Spriteroutinen 
aus Listing 3 unter dem Dateinamen »SR.SPR«. Als letztes 
speichern Sie die Levels aus Listing 4 (oder nach der Ein- 
gabe im Editor) unter dem Namen »SR.PIC«. Auf die Nut- 
zung der »Hightimes«-Liste sollten Sie im Kassettenbetrieb 
jedoch verzichten, da Sie sonst durch andauerndes Spei- 
chern und Laden kaum noch zum Spielen kommen. 

Jetzt ist der freudige Zeitpunkt erreicht, an dem Sie für 
Ihre Fleißarbeit belohnt werden. Starten Sie also Stone 
Runner mit »RUN” SR” «. Im Menü bewegen Sie den Cur- 
sor (invertierter Balken) mit einem Joystick auf»Laden« und 


drücken die Feuertaste. Die Frage 

(B)ilder oder (H)ightimes laden? 

beantworten Sie mit <B>. Als Dateinamen geben Sie nun 
»SR« ein. Eine weitere Frage erscheint: 

Alte Bilder löschen (j/n) 2??? 

Mit Ihrer Antwort entscheiden Sie, ob Stone Runner die 
Bilder anstelle der Bilder im Arbeitsspeicher lädt (<J>) 
oder siean vorhandenealsweitere Levelsanhängt(<N>). 
Da sich zu diesem Zeitpunkt ja noch keine Bilder im RAM 
befinden, wählen Sie natürlich <J>. Nach einem kurzen 
Augenblick erscheint wieder das Menü. 

Spielen funktioniert naturgemäß nur, wenn Sie vorher 
eine Bild-Datei mit dem Menüpunkt »Laden« geladen oder 
mit dem Editor Bilder konstruiert haben. Bewegen Sie den 
Joystick, um sich eins der Bilder auszusuchen und drücken 
Sie zum Spielen die Feuertaste. 

Ihnen stehen anfangs sieben Versuche frei, um Bity alle 
Diamanten einsammeln zu lassen. Erst dann gelangen Sie 
ins nächste Bild (Level). Meist gibt es nur einen einzigen 
Weg, das Level zu überwinden. Stürzt Bity ab und fällt 
dadurchtiefer als sechs »Stockwerke«, oder berührt ereine 
der herumliegenden Bomben, ist einer der Versuche ver- 
tan. Ebenso kostetes eine Chance, wenn BitysZeitzu Ende 
ist. Sie steuern Bity mit einem normalen Joystick nach links 
und rechts. Nur auf Leitern kann er sich sowohl nach oben 
als auch nach unten bewegen. Abgründe überwindet er mit 
Hilfe der waagerechten Kletterstangen; Bity hält sich auto- 
matisch daran fest. Er läßt sie erst los, wenn Sie den Joy- 
stick nach unten ziehen. Die Steine links und rechts unter 
sich ätzt er weg, wenn Sie den Feuerknopf festhalten und 
den Joystick gleichzeitig in die entsprechende Richtung 
drücken. Das funktioniert indes nur, wenn Bity noch über 
genug Energie verfügt. Einmaliges Ätzen kostet ihn zehn 
Energiepunkte. Wenn Bity stürzt, verliert er pro Stockwerk 
ebenfalls einen Energiepunkt. Ebenso unangenehme 
Effekte beinhalten die Steine mit Reißnägeln. 

Sprungfedern schleudern Bity automatisch in die ent- 
sprechende Richtung. An Seilen kann Bity nur nach unten 
klettern. Punkte erntet Bitydurch Sammeln der Diamanten. 
Hater alle Diamanten eines Levels bei sich, bekommt er die 
verbleibenden Zeiteinheiten auf seinem Punktekonto gut- 
geschrieben. Außer den Diamanten gibt es in einigen Bil- 
dern auch einen Energie- und/oder Zeitbonus. Eine solche 
»Kraftpille« (großes »E«) füllt das Energiekonto um 50 Ein- 
heiten auf. Der Zeitbonus (eine stilisierte Uhr) ist um so 
höher, je geringer die Restzeit ist; es lohnt sich also, etwas 
Geduld aufzubringen und zu warten. Ihre Eintragungen in 
die Tabelle der besten Zeiten (»Hightimes«) speichern Sie 
nach dem Spiel über den Menüpunkt »Speichern«, Unter- 
punkt »(H)ightimes«. Diese Tabelle wird bei jedem weiteren 


Spiel fortgeführt, wenn Sie vor dem Beginn des ersten 
Spiels nach dem Programmstart und dem Laden der Bilder 
die alten Bestzeiten laden. 

onstruieren. Haben Sie diesen Menüpunkt gewählt, 
erscheint in der untersten Bildschirmzeile eine Menüleiste, 
die sämtliche Spielelemente und die Punkte »Clear«, »M. 
Set« und »Ready« zeigt. Drücken Sie nun den Feuerknopf 
und Sie sehen ein Fadenkreuz, mit dem Sie eins der Ele- 
mente auswählen. Bewegen Sie das Fadenkreuz an die 
gewünschte Bildschirmposition und drücken Sie wiederum 
den Feuerknopf, erscheint das Element. Um in das Aus- 
wahlmenü zurückzukehren, brauchen Sie bloß die Leerta- 
ste zu drücken. Wenn das Bild fertig ist, müssen Sie nur 
noch Bity hineinsetzen. Dazu positionieren Sie das Faden- 
kreuz an der gewünschten Stelle, drücken die Leertaste 
und aktivieren mit dem Joystick den Menüpunkt »M. Set«. 
Dann wählen Sie den Menüpunkt »Ready«. »Ready« funk- 
tioniert nur, wenn das Spielfeld mindestens einen Diaman- 
ten enthält und Bitys Position markiert ist. 

Editieren. Sie sehen auf dem Monitor das erste Bild. 
Wählen Sie durch Bewegung des Joysticks ein Bild zur 
Bearbeitung. Der Unterschied zum Konstruieren liegt 
darin, daß Sie ein vorhandenes Bild verändern. 
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1848 ‘written by Thomas Stein 


106® IF PEEK(KAQBD)I<>I THEN SYMBOL AFTER 

256:MEMORY 24998: LOAD" !'sr.bin":CAL 
E EOS COLLDEDALBLÜSPLNEEOKE 24999,8: 
L. 


1a8a0 
1090 ‘Variablen & Funktionen 


1118 bilder=24999:maxbilder=16: 
1,1Q:ENV 2,14,-1,10:ENV 3 
ENT 1,100,-2,2:ENV 4,14,-1 
E 4,-5,5,14,5,5:ENV 5, 
sENV 6,7,-1,1,18,0,1:ENT 3,7 
V7,7,71,1,10,8,1 DIm topS$(maxbild 
er ,5) ‚top5 {maxbilder ‚5) 

1128 DEF FNadr (x)=bilder+1+(x-1)#*923:DEF 
FNpadr (1,y%, 'Nadr (1) +x/2+y/8*48 

113@ DEF FNz$(2 ‚1)=STRING$(1-LEN (BTRS (zZ) 
)+1,"@") +MIDE (STR (zZ) „2) 

1140 IF PEEK(6)=128 THEN DEF FNvers$(bil 
d,platz)=DEC$((topStbild,platz),"## 
‚##")+"sec" ELSE DEF FNvers$(bild,p 
ER SEELEN EERSNURIE SBIRERTEERESRT 
Anzlen 

1150 DEF FN1$(1)=STRING$(1,249)+" “:DEF 

FNtop$ (bild,platz)=topS#tbild,platz 

)+STRING$ (14-LEN (topS# (bild,platz)) 

nd ter 

atz) 

EF FNscreen (x ,y) =48000+y#*5+x/2 

DIM um$ (3) zum$& {1)="CLEAR" :um$ (2) ="M 

.SET"zum$ (3)="READY":FOR i=1 TO max 

bilder:FOR j=1_ TO SıtopSs(i,j) 4 

„?"ztopSti,j)=@:NEXT j,irnames="ABC 

DEFGHIJKLMNOPORSTUVWXYZ. ! "+CHRS (242 

rt 138583 

1180 DIM m#(7):RESTORE 118@:FOR i=1 TO 7 
:READ m$(i):NEXT:rahmen$=CHR$ (150) + 
STRING$ (12,154) +CHR$ (156) :FOR i=1 T 
0 13:rahmen$=rahmen$+CHR$ (149) +5TRI 
NG$ (12,32) +CHR$ (149) :NEXT:rahmenser 
ahmen$+CHR$ (147) +STRING$ (12,154) +CH 
R$ (153) :ende$="GAME-OVER" 

1198 DATA SPIELEN,KONSTRUIEREN,EDITIEREN 

er „TEST SPEICHERN, LADEN,ENDE 12708] 

1200 


[95141 
1218 "Bildschirm & Farben initialisieren 
CD272] 
1220 ' 


[87181 
1238 MODE 1: BORDER IN 
K 2,16: INK 3,1l bei Gruenmonitor 

auf > INK 2,22 < abaenderen !!! 
1240 WINDOW 1,42,24,25:WINDOW#1,14,27,6, 
20: WINDOW#2,1,4, 1,25: PAPER#1, 1: PEN 
AL OrBere ee Brenz, PEN 1:PAPER 


[C376] 
[BA1E] 
[B92@1 
[48581 
cF12) 


[BAF&]J 
13388) 
£C1BEI 


[BB4EI 


L6AB82I 
£B722] 


(5A381 


LBBDCI 


L2FAAI 


Abspeichern. Speichert die Bilder im Arbeitsspeicher 
auf dem angeschlossenen Datenträger. Als Eingabe des 
Dateinamen akzeptiert Stone Runner maximal acht Zei- 
chen ohne Punkt. Die Extension ».PlC« hängt der Compu- 
ter zur Kennzeichnung automatisch an. 

Test. Spielen Sie ein editiertes Bild probehalber, um zu 
sehen, ob es zu meistern ist. 

Laden. Lädt gespeicherte Bilder in den Arbeitsspeicher 
des Computers. Geben Sie auf die Frage nach dem 
Löschen der alten Bilder <N> ein, werden die neuen Bil- 
der an die schon im Speicher befindlichen angehängt. 

(Thomas Stein/hf/ja) 


Stone Runner 
CPC 464/664/6128 
Explora/CPC 
Diskette, (Kassette) 

Joystick-Steuerungen 


R L921EI 
1268 "Menue (27141 
CH 194221 

1280 z=@: WINDOW#1 ‚14,27 
men$; :WINDOW#1,15,26,7,19: FOR i=1 T 
© 7:LOCATE#1,1,1#2-13PRINT#1,m$ (1): 
NEXTzwahl= 

129@ LOCATE#1,1,wahl#2-1:PEN#1,3:PRINT#1 
‚m$ (wahl ):PEN#1,@ 

1308 Z=2+1:jo=JOV (B):IF z>200@ THEN 3458 
ELSE IF jo=® THEN 1388 

1318 IF (jo AND 1)=1 AND wahl<>i THEN FO 
R p=1 TO 18@:NEXT:LOCATE#1,1,wahl*2 

SUERINTAL ‚ms (mahl Yanahl wahl -1:007 

a1 


132@ IF (jo AND 2)=2 AND wahl<>7 THEN FO 
R p=1 TO 1Q@:NEXT:LOCATE#1,1,wahl*2 
-1:PRINT#1 ‚m& (wahl) swahl=wahl+1:G0T 
0_1298 

1338 IF (jo AND 16)<>16 THEN 1308 

1348 WHILE JOY(@) <>@:WEND 

1358 ON wahl G0TO 2400,1930,1990,2050,21 

@2,2188,227@ 


tCFEEI 
11982] 
Ct1DCAI 


116629 


LA670] 
EFD9CI 
CBB@CI 


C71B2] 
[B522] 
137@ "Unterprogramme LAADAI 

2 CBB26] 
1390 ‘SUB: Bild Nr.level loeschen (ohne 
nachruecken) 


1C958] 
CB918] 


14 
141® FOR i%=FNadr (level)TO FNadr (level +i 
)-1:POKE i%,Q:NEXT:FOR i=1 TO S:top 
5$ (level ‚i)="7.7.7?":topS(level ,i)=® 
:NEXT:RETURN 


1438 'SUB: Bild Nr.level loeschen (mit n 
achruecken) 


=PEEK (bilder) THEN RETURN EL 
Nadr (level+1) ‚FNadr (level) ,( 
PEEK (bilder)-level)#923:FOR i=level 

TO PEEKtbilder)-1:FOR j=1 TO Ssto 
5$(1,j)=topS$(i+1,j):topSti ,j)=top! 


1458 IF leve 
SEIT 


ti+1,3):NEXT j,i:RETURN CDB4A1 
1468 ° 19324] 
147@ ‘SUB: Bildnr. eingeben LEB7A] 
1488 LE128] 
149® CLS:PRINT:PRINT TAB(16) "Bildnr .:@1" 

zlevel=1 L196A1 


158@ LOCATE 24,2:PRINT FNz$(level,2):CL5 
#2: !A,FNadr (level) ‚40008 
1518 IF INKEY(47)<>-1 THEN level=@:RETUR 


CB@94] 


N ELSE jJo=JOY(@):IF jo=® THEN 1518 LFCIEI 
152@ IF ((jo AND 1)=1 OR (jo AND 4) A 

D level<>1 THEN level=level-1:6070 

1508 EBEAQI 


1538 IF (tjo AND 2)=2 OR (jo AND B)=8)AN 
D level<>PEEK (bilder) THEN level=le 


vel+1:6070 1598 10720) 
1548 IF (jo AND 16)<>1& THEN 1518 L32A8] 
1558 WHILE JDY (@)< >@: WEND: RETURN [66461 
1568 [95261 
157@ "SUB: Bildnr.: level editieren [25581 


1588 
1590 


1571 


1608 


1610 
1620 
1638 
1640 
1658 
1668 
1670 
1688 


1690 
1700 


1710 
1720 


1730 
1748 
1750 
1760 


1770 
1788 


1790 


CLS:FOR ‚i*2,192,i,B:NE 
OCATE 14,2:PRINT um$(1)" "ums(2 
um$ (3); :LOCATE 34,1: PRINT"BILD" 
:LOCATE 35,2:PRINT FNz$(level ,2); 
CLS#2: !A,FNadr (level) „A@@@@: wahl=@ 
p=176:PLOT 614,4, 

DRAUR 0,20: DRAWR -20,0: 
:#lag=@ 

IF wahl<12 THEN LOCATE wahl+1,1:PRI 
NT CHRS$ (Z41)ELSE LOCATE 14+ (wahl-12 
RINT CHRS (24) um& (wahl-11)CHR 


jo=JDY(@):IF jo=@ THEN 1628 
IF wahl<12 THEN LOCATE wahl+1,1:PRI 
NT" "ELSE LOCATE 14+ (wahl-12)*6,2:P 
RINT um$(twahl-i1)5 

IF (jo AND @)=8 AND wahl<>14 THEN w 
ahl=wahl+1:G0T0 1608 

IF (jo AND 4)=4 AND wahl<>@ THEN wa 
hl=wahl-1:60T0 1608 

IF (jo AND 16)<>1& THEN GOTO 1688 
WHILE JOY (@) < >@: WEND 

IF wahl<12 THEN !P,77,188,wahl ELSE 
ON wahl-11 GOTO 1788, 1820, 1858 
!P,xp,yP,25:FÜR p=1 TO 1Q@:NEXT 
IF’INKEVLA7)<>-1 THEN GOTO 1608 ELS 
E_jo=JOY(@): IF jo=® THEN 1700 

IP,xp ‚yp ‚PEEK (Füpadr (level ‚xp ‚yp)) 
IF’ (j6 AND 16)=1& THEN POKE Füpadr ( 
level ıxpnyp) ‚wahl iPsxpsyp,mah 

IF (30 AND 1)=1 AND yp<} THEN yp=y 
Bi 

IF (jo AND 2)=2 AND yp<>17& THEN yp 
=yp+8 
1° (jo AND @)=8 AND xp<>78 THEN xp= 


xp+2 
IF (jo AND 4)=4 AND xp<>@ THEN xp=x 
2 


p= 
G0TO_ 1698 

PEN 2:LOCATE 14,1:PRINT"Bild loesch 
en LJ/NI":PEN 1ras=""zWHILE asc>"j" 
AND as<> a$=LOWER$ ( INKEY$) :WEND: 
LOCATE 14,1:PRINT SPC(2@: IF as="n" 
THEN 1600 

PEN 2:LOCATE 14,1:PRINT"Weitermache 
n LI/NI N fra$="":WHILE as<>"j"A 
ND a$<>"n"AND a$< >CHR$ (32) : af=LOWER 
#CINKEY$) :WEND:LOCATE 14,1:PRINT SP 
Ct2@): IF as=" "THEN 1408 

IF a$="j"THEN GOSUB 1418: CL5#2: 1A,F 
Nadr (level) ‚40000:G0TO 1608 

GOSUB 1450: POKE bilder ‚MAX (@,PEEK (b 
ilder)-1):level=PEEK (bilder) RETURN 


»=PEEK (FNadr (level )+928) : y=PEEK(FNa 
dr (level) +921)31P,x,y„PEEK(FNpadr (1 
evel,x,y)) 

»xP,yP,12:PEN 2:LOCATE 14,1:PRINT 
Maenn. setzen [J/N]":a$=""IWHILE a 
s<C>" "AND as<>"n":a$=LOWERS (INKEY$) 
WEN! 1:LOCATE 14,1: PRINT SPC(2 
W:IF as="n"THEN IP,xp,yp,PEEK(FNpa 
dr (level,xp,yp)): 

POKE FNadr (level )+92@,xp:POKE FNadr 
(level) +721,yp:flag=1!G0TO 1608 

IF flag=@ THEN LOCÄTE 14,1:PRINT CH 
R$(24)CHR$(7)" erst Maenn.setzen "C 
HR&(24)3:FOR p=1 TO 100@:NEXT:LOCAT 
E_14,1:PRINT SPC(28):G0T0 1408 
LOCATE 14,1:PEN 2:PRINT"Fertig LJ/N 
I":PEN 1:a$="":WHILE a#<>"j"AND ac 
>"n" a#=LOWER£ (INKEY$) : WEND: LOCATE 
14,1:PRINT SPC(2@):IF a$="n"THEN GO 
TO’1608 

er=®:FOR i=FNadr (level) TO FNadr (le 
vel)+919: IF PEEK(i)=2 THEN er=er#i 
NEXT:IF cr=@ THEN LOCATE 14,1:PRINT 
CHR$(24)" min.i Edelstein "CHR$(24 
):FOR p=1 TO 1QQ0:NEXTzLOCATE 14,1: 
PRINT SPC (28) :G0TO 1608 

POKE FNadr (level) +922,cr: RETURN 
"Interrupt fuer Zeit 

ze=ze-1:PLOT ze*2+480,2,1:DRAWR @,1 
4: IF ze=® THEN xyz=REMAIN(B) :RETURN 
ELSE RETURN 

FOR pause=1 TO 102:NEXT:RETURN 


KONSTRUIEREN 


IF PEEK(bilder)=maxbilder THEN 1288 
ELSE level=PEEK (bilder)+1:POKE bil 
der ‚level:G0SUB 1418 

GOSÜB 1598 

60T0 1288 


;EDITIEREN 


IF PEEK(bilder)=@ THEN G0T0 1288 EL 
SE B0SUB 1490: IF level=@ THEN 1280 


LDF2AI 


CCESEI 


L34D81 


LE7FAI 
174741 
[73821 
(82D61 
[28B81 
CAB44] 
LAE&BI 
[78181 


LF&FCI 
[g: 775] 


12424] 
Caa9al 


168961 
LEBFEI 
C1EDCI 
C@C861 


C@7FEI 
[B838] 


[C8Sc] 


L&CF4) 
CACFEI 


CEBCAI 


LFDIEI 


(80521 
CCAFEI 


176941 


CEDF&1 
[F3361 


17512] 
[39881 
c5@D81 


LSC3EI 
[648C1 
1C8281 
L447C] 
CC22C1 


L942E1 
[BDCB]J 
L6E2CH 
[9634] 
[92441 
£99141 


LC&F41 


2148 


2250 


SOSUB 1578 
GOTO 1288 


TEST 


IF PEEK(bilder)=@ THEN 6010 1288 
testflag=1:50SUB 1498: IF level=® TH 
EN G0TO 128@ ELSE GOTO 2468 


ABSPEICHERN 


CLS:PRINT" (Bilder oder (H)ightime 
s abspeichern?":a‘ :WHILE INKEYS< 
>"":WEND:WHILE a‘ a$=LOWER$(INKE 
YS) zWEND: IF a$<>"b"AND as<>"h"THEN 
1288 

IF a$="h"THEN CLS:GOSUB 2310: IF txt 
""THEN 1288 ELSE GPENOUT" !"Atxt$+ 
OR i=1 TO _maxbilder:FOR j=1 
TO S:WRITE#9 ,topS$(i,3) ‚topS(i,3): 
NEXT j,i:CLOSEQUT:G0TO 1288 

IF PEEKtbilder)=® THEN G0TO 1288 
WHILE, INKEY$<>"":WEND:CLS:G0SUB 231 
""THEN 1288 

“+txt$+".pic" ‚b,bilder ‚I+PEEK 
(bilder)#923:60T0 1288 


LADEN 
ELS:PRINT" 


(B)ilder oder (H)ightime 
s laden?":a$="":WHILE INKEY$< >" "WE 
ND:WHILE as= $=LOWER$ ( INKEY$) :WE 
F as<>"b"AND a$<>"h"THEN 1280 
IF as="h"THEN CLS:GOSUB 2310: IF txt 
$=""THEN 1288 ELSE OPENIN"!"+HtRts4" 
„txt":FOR i=1 TO maxbilder:FOR j=1 
TO_5: INPUT#9 ,topS$(i ,3) „topSti,3j):N 
EXT j,i:CLOSEIN:GOTO 1288 

WHILE  INKEY$<>"":WEND:CLS:GOSUB 231 
G: IF LEN(txt$)>8 OR tat$=""THEN 128 


® 

PRINT"A loeschen (j/n) 7? 
Frage” <>" "AND asl >"n"AN 
D a$<>CHRE (32) : a$=LOWERF (INKEY$) WE 
ND: IF at= THEN LOAD" !"+tats+".pi 
c*,bilder:G0T0 2268 


IF'a$=CHR# (32) THEN GOTO 1280 ELSE 1 
adr=bilder +1+PEEK (bilder) #923: LOAD" 
!r4txt6+".pic" Ladribanz=PEEK (Ladr ) 
:1T,ladr+1,ladf ‚banz#923:POKE bilde 
r‚PEEK (bilder) +banz:GOTO 1288 

FÖR i=1 TO PEEK(bilder):FOR j=1_TO 
SttopS$ (1 ,5)="2.7.2"stopS(i ,J)=@sNE 
XT 3,1:6070 1288 


“ENDE 


WHILE INKEY$<>"":WEND:MODE 23 PRINT" 
Neustart mit RUN moeglich":END 


‘Filename eingeben 
PRINT"Filename: ";:tx 
PRINT" _"CHR$ (8) ; 1a$= 


"OR as>"Z")AND a$<>CHRE(1S)AND asc> 
CHR$ (127) : a$=UPPER$ (INKEY#) :WEND 

IF a#=CHR$(13) THEN PRINT CHR$ (32): 
RETURN 

IF a$=CHR$ (127) THEN_ IF txt$="" THE 
N PRINT CHR$(7);:60T0 2350 ELSE txt 
$=LEFTS (txt$,LEN(txt$)-1) PRINT CHR 
$ (32) CHR$ (B)CHR$ (8) 5:G0T0 2350 

IF LEN(txt$)=8 THEN PRINT CHR$ (75: 
G60TO 2358 

PRINT as; 


SPIELEN 


IF PEEK(bilder)=® THEN 60T0 1288 
lev-1:G0SUB 1498: score=d: left=7:tes 
tflag=® 

"Hier einsprung bei Test 

PEN @:PAPER 1:CLS:PRINT" FUNKTESSIL 
EBEN<Z>BILD ENERGIE ZEIT:": IF testf 
lag=® THEN LOCATE 1,2:PRINT"@OGGaGa 
@ "FNi$tleft) 

"Hier einsprung bei neuem Level 
#all=2: jump-@: en=188:ze=4Q:LOCATE 1 
9,2:PRINT FNz$(level ‚2):LOCATE 25,2 
:PRINT FNz$(en,S3) :LOCATE 31,2: PRINT 
SPC (19) ;: FOR TO zes2-2’STEP 
PLOT i+488,8,2:DRAWR @,14:NEXT 
CLS#2: !A,FNadr (level) ‚42888: xp=PEEK. 
(FNadr (level) +920) :yp=PEEK (FNadr (le 
vel)+921) zcr=PEEK (FNadr (level) +722) 
::6,xp,yp,22:SQUND 1,0,8,0,1,0,1:!P 
»*P,yP5327,3:WHILE SQÜ1)<IA:WEND 

xp »yP,22,xp,yp,12:man=12:m=® 
ZAy=FRE("")2EVERY 108 GOSUB 1910:60 
To 2718 

IF ze=® THEN G0T0 291@ ELSE IF INKE 


ats=txt$+as:B0T0 2358 


R ND! 
WWW .HOMESGMPUTERWORLS.SOM 


L3CAB1 
L6D14] 
[951C1 
L&BFEI 
[97281 
157821 


L2BD4] 
EBC141 


[24SE] 
LFA181 


L6@BR] 


LIEABI 
L77FEI 


CB4201 
LF8901 
CE4241 


CSAEEI 
EBEI61 


CBAAEI 


120241 


198323 


CB2B4J 


La55A1 


ca2121 
[9724 
LASSE] 
[E5281 


ECFAAI 
EC11A1 
C7A18] 
[C31E] 
EDS1E1 


[43521 
L4BFEI 


LEDFEI 


[59941 
EF7CEI 
[9214] 
C183C] 
[941E] 
[79081 


L72C81 
CBS4A1 


ECFCEI 
[68721 


171803 


L2F941 
EFFBEI 


131 


cc 


2520 
2530 
2540 
2558 
2540 


2570 


2580 
2590 


2608 


2610 
2620 
2650 
2648 
2650 
2660 
2670 
2400 
2498 
2700 
2710 
27280 
2730 
2748 
2750 
2760 
2770 
2788 
2798 
2000 
2810 


2928 


2830 
2840 
2850 


2860 


2870 
2888 
2890 


2900 


Yi47)<>-1 THEN G0TO 3280 ELSE IF fa 
11>4 THEN S01@ ELSE jo=J0Y(@):IF ja 
=® THEN 2518 

fall=® 

IF tijo AND 16)=16_THEN 287@ 

IF (jo AND 1)<>1 THEN 2588 

IF yp=@ THEN G0TO 251@ 
vorder=PEEK(FNscreen (xp ,yp-B)):IF_h 
inter<>9 OR vorder=1 OR’vorder=4 OR 
Vorder=5_THEN 2518 

SOUND 2,1488, 2,7: man=28: m=1-mı yp=yp 
=8: 1X, xp „yp+8,22 "B,yp+4 ‚mantı 

B 1920: 1Kuxp,yp+A,22 

To 2718 

IF (jo AND 2)<>2 THEN 2618 
vor der=PEEK(FNscreen (xp ,yp+B)) IF v 
order=1 OR vorder=4 OR vorder=5 THE 
NoonD 2, 1988,2,7 2 

SOUND 2,1 inan=2@: m=1-m: yp=) 
4B:1X xB ‚yp-8,22,xp Yp=Aynanımr B0%0 
B 1928: 1X,xp,yp-A,22,xp ‚yp man+mı GO 
To 2710 

IF (5o_AND 8)<>8_THEN 2660 
IF xp=78_THEN GOTO 2518 
Vorder=PEEK (FNscreen (xp+2,yp) 
order=1 OR vorder=4 OR vorder=5 


„xp „yp ‚man+m: GO 


N 2510 
xp=xp+Zim=1-m: IF vorder=10 THEN man 
=18 ELSE man=14 


SOUND 2,1008 ,2,7: !X,xp-2,yp,22,xp-1 
„yp,mantm: GOSUB 1928: 1X,Xp-1,yP»22, 
Kpsypymansmaboro 2710 

IF’ (50 AND 4)<>4 THEN 2510 

IF xp=@ THEN GOTO 2518 

Vorder=PEEK (FNscreen (xp-2,yp))zIF v 
order=1 OR vorder=4 OR vorder=5 THE 
N 2510 

APaXprZim=i-ms IF vorder=1@ THEN man 
=1& ELSE man=12 

SOUND 2,1008, 2,7: IX ,xp+2,yp}22,xp+1 
„yp ‚man+mı GOSUB 1920: }X,xp+1,yP»22» 
YByP‚nantnıcbro 2718 

iR” yp2176 THEN GuTa 230 
hinter=PEEK (FNscreen (xp ‚yp) )zunten= 
FEEK(ENSEr Ben (xp ypSO)) 

IF ze=@ THEN 6010 2910 

IF hinter=2 THEN 295@ 

IF hinter=3 THEN 3208 

IF hinter=& THEN 3028 

IF hinter=7 THEN 3048 

IF hinter=8 THEN 3968 

junp GOTO 3138,3168: jump=B 

IF ünten=4 THEN ri=-1:ma=@:60T0 398 


unten=5 THEN ri=1:ma=78:G60T0 388 


IF unten=i1 AND hinter<>9 AND hinte 

r<>1@ THEN yp=yp+8:SOUND 1,yp+182,® 

‚15,7,3:man=2@:m=1-m: !X,xp,yp-B,22 

"B,yp"A ‚mantmıGosuR 1928: 1X xp ıyp- 

»22,xp,yp,man+m: GOSUB 192@:WHILE SQ 

11) 2>Ar WERD: fall=0:G0TO 2710 

IF unten=! OR unten=9 OR hinter=? Q 

R_hinter=1@ THEN 2518 

IF man=12 THEN man=16 ELSE IF man=1 

4 THEN man=18 

yp=yp+B: SOUND 1,yp+1@@,0, 15,6: 1X,xp 
Pu 1920: !x, 


„ypB122,4p »yp- BOSÜB 
xp = »*p,yp,man 

EnEMAX (dyan- 1 LÖCATE, 25,24 PRINT FN 
z#(en,S)sWHILE SQ(1)<> END: fall=f 
all+1:60T0 2718 

IF Ct5o AND A)<>4 AND (jo AND 8)<>8 
)OR en=@ THEN GOTO 2548 

Ay (jo AND 4)=4 THEN ri=-1 ELSE ri= 


Vorder=PEEK.(FNscreen (xptri#2,yp+8) ) 
ı IF vorder=2 OR vorder=@ OR(ri=-1 A 
ND_xp=B)OR (Ami AND xp-76) THEN Oro 
SOUND 1,0,8,15,5,0,3@:en=MAX (en-18, 
@) :LOCATE’ 28,2! PRINT FNz#(en,3):!6, 
xptri#2,yp,2A:FOR i=1 TO 8: !X,xp+ri 
*2 ,yp+i-1,24,xp+ri#Z,yp+i ,27:CALL & 
BDI9: NEXT} IP ,xp+ri*2, yp+8,8,0: IF ,xp 
„yp,man+m, 3: POKE FNscreen (xp+ri#2,y 
P+a) JOLWHILE SOC1)<>4sWEND:GOTO 251 
1) 


"Zeit alle 

WHILE SQ(1)<>4 OR _SOt4)<>4:WEND:FOR 
i=100 TO 1000 STEP S:SOUND 1,i,1,7 
SOUND 4,i+1,1,7:NEXT:SQUND 1,1885, 
@,15,2:S0UND’4,1096,0,15,2:WHILE SO 
(I) <$A:WEND: G0TO 3200 

‘aus dem Screen gefallen 
!P,xp,yp,22,0:FOR i=89® TO 1900 STE 
P_S:S00ND 1,i,1,7:NEXTzSOUND 1,i,0, 
15,2:WHILE Sal1)<>4:WEND:GOTO 3208 
“Edelstein 

SOUND 1,100,4,7:SDUND 1,118,4,7:!P, 


CARDS] 
ECDEAI 
[8E42] 
(7EE21 
ccD@21 


CACERI 


LFADAI 
[BFE2] 


163061 


[@DD6] 
LA7F@] 
EFF7AI 
LEBB@] 
L[F36C] 
[84881 
L16E6] 
LFABs] 
LFDBEI 
179721 
L63D41 
[B3E6] 
L96CC1 
LiSF6] 
[54A8] 
CB592] 
LABFEI 
[@BA&] 
L46AE] 
[BF@B] 
LAEDS] 


188081 


[51D61 
[B4ACI 
t211E] 


174261 


CBB68] 
LSBBCI 
16034] 


L16DC9 


CBIBEI 
CAsDAI 


125081 


C4C241 


c14C41 
CA4&81 


2770 
2988 


2990 


*PyYP»@, 6,xp,yp,22: !P,xp,yp,mant+ 
m,3:er=er-1:POKE Fiisereen (xp,yp) „Qt 
seore=score+i@rlevel-9: IF testfläg= 
3 THEN LOCATE 1,2:PRINT FNz# (score, 
) 
IF cr<>@ THEN 2718 
xyz=REMAIN(@) :RESTORE SSQ@:READ t,1 
HILE t<>® AND JOV(@)C>16:SOLUND 1, 
t,1,7:SOUND 4,t+1,1,73READ t,1:WHIL 
E'SAC1)< >41 WEND: WEND: GOSUB S41B: IF 
testflag=1 THEN 3288 
WHILE ze<>0:GOSUB 1910: score=score+ 
level:LOCATE 1,2: PRINT FNz$(score,8 
)zWEND:Level=level+i: IF level >PEER( 
bilder) THEN level=1:G0T0 2480 ELSE 
S0TO 2488 
"Bombe 
SOUND 1,2,8,15,2,0,15: !P,xp,yp,27,@ 
WHILE Solı)<>ArWEND:GOTO S200 
"Zeitbonus 
DI: zb=MIN(BQ,ze+ (BQ-zer2) ) :zb=MAX (z 
e+1,2b): FOR i=ze TO zb-1:PLOT ix2+4 
80,8,2:DRAWR @,14:SOUND 1,100-i,1,6 
ıNEXTıze=zbiEl: !P,xp,yp,@,0: 1G,xp,Yy 
R,22: iP,npayp mantm,S:FÜKE FNsereen 
ip yp) JO: aüTG 2710 
"Energiebonus 
en-MIN(777,en+GB} ıSOUND 4,284 ,20011 
„5,1: 1P,xpy,yf 3 1B,xP,YPp» 
"yB mansımı3YPOKE FNecraan t£p, 
VOCÄTE 25/2: PRINT FNz+(en,S)} 
7 
“Energieabzu 
SOUND 1,0,1,7,8,0, 15:en=MAX (ei 
):LOCATE 25,21 PRINT FNz$(en,3 


2508 

sonD ?,108,0,15,4,2: 1P +8,26 
1 x LI PyXPp,yp‘ fi 

2: IX xp yP»22,xp ,yP+2,man+1 ‚3: GOSUB 


“| Pr 
1920: IP YPIS1 THEN mane1a ELSE man= 
12 
IX,xp »yp+2,22,xp,yp man: !P,xp,yp+8, 
an lBr ar iPsnpnypman,S 
Een 2 B: 1X i*2,yp+8 
xp=xp+ri®2: yp=yp-Bt IX ,xp-ri#2,yp+8, 
ER KB-TA ‚ypF% man: GosüB" 1920; 1X “en 
riryp+ xp, yp man: !3um 
p=1YBora 2726 
"Phase 2 (jump=1) 
vorder=PEEK (FNscereen (xptri#2,yp))s1 
E vorder=1 OR vorder=4 OR vorder=S 
OR xp=ma THEN Jjump=@: WHILE SOC1)<>4 
:WEND: GOTO 2718 = 
kp=xp+ri#2: 1 X,xp-ri#2,yp,22,xp-ri »y 
pP, man: GOSUB 1920: !X,xperi Bzayıhr 
DB man: BOSUB 1920: Jump=2: 6010 271 
"Phase 3 (Jump=2) 
jump=®:'vorder=PEEK (FNscreen (xptri #2 
„yp+8)):IF vorder=1 OR vorder=4 OR 
Vörder=5 OR xp=ma THEN WHILE SO(1)« 
>41 WEND:GOTO 2718 
xpexp+tri #2: yp=yp+Bi IX ‚xp=ri ®2,yp-B, 
22,*p-ri ‚yp-4,man: GOSÜB 1920: !X,xp- 
DENE Ze yepgyp aan bsuR 19207 uhr 
: WEND! 
<q 


LE S0(1)< 60T0 2710 

"Ein Mann weniger 

xyz=REMAIN(@) :RESTORE 3360: READ 1,t 
:WHILE t<>@:SOUND 1,t,1,7:SOUND 4,t 
+1,1,7WHILE SO(1)<>ARWENDEREAD 1yt 


:WEND 

IF testflag=® THEN left=left-1:1L0CA 
TE 10,2:PRINT FNI$(left): IF left<>Q 
THEN 2478 


IF testflag=1 
"Game Over 


THEN G0T0 2470 


LOCATE#2, 16,15: PRINT#2, "GAME-OVER" : 
WHILE INKEYS=""WEND: SOUND 1,500,0, 
15,2: SOUND 4,5@1,0,15,2:WHILE SQ(1) 
<>A:WEND:PEN 1: PÄPER G:G0TO 12B@ 

IF testflag=i THEN xyz=REMAIN(@):PE 
N 1:PAPER 8:50UND 1,20,5,7:60T0 128 


® 

G0TO 3208 

DATA 426,10,379,10,338,20,284,20,28 
4,30,253,10,284,20,338,20,426,50 
DATA'377,10,338,20,338,20,379,20,42 
6,20,379,80,426,10,379,10,338,20,28 
4,20 

DATA 284,30,253,10,284,20,358,20,42 
6,30,379,10,338,20,338,20,379,20,37 
9,20 

DÄTA 426,80,317,40,319,40,253,20,25 
3,40,284,20,284,20,338,20,426,20,37 
9,60 

DATA 426,10,377,10,338,20,284,20,28 
4,30,253,10,284,)20,338,20,426,38,57 
9,18 

DATA 338,20,338,20,379,20,379,20,42 
&,88,8,0 

DATA 58,1016,37,1016,12,1016,58,1@1 


17248] 
ECSB21 


LB876] 


167201 
CFI1DE] 


[7@B6] 
LAFFEI 


17798] 
tSQE8] 


L18021 


C67D01 


112701 
15022] 


Löri6] 


LESD6] 
C1ESCI 


CFAREI 
[2308] 


L79F6] 


13814] 
ECAE21 


tcac21 


120141 
EF@OD6] 


L3F7A] 


L7S1c9 
LEBE6] 
c838A1 


tecsal 
cacpaı 
EB9181 
taD181 
L88F8] 
L84DEI 


LA9DCI 


L49D81 
LB2EEI 


6,25,850,25,899,25,899,25,1016,25,1 Pposi#2+9:PEN S:FRINT".":GOTO 3478  LF4121 
016,25,1136, 100, 1016,0,@0 C1Ba01 3548 n$=ns+MID$ (name$,p,i)zIF LEN(n$)<14 
3370 ' [B6281 THEN 3478 eDBIC1 
3388 ‘besten 5 Liste [aB18] 355@ WINDOW SWAP 2,2:topS% (level ,‚posi)=n 
3390 ' [B82C1 $:posi=®: SOSUR 3570 CSBBCI 
3400 "Zeit berechnen [F@EBI 3540 WHILE JDY (®) < >16: WEND: RETURN T6EBAI 
3410 zeit=ze+xyz/Sß:posi=@: IF zeit<=topS 3578 "Top 5 ausgeben [As181 
(level,5) THEN 3448 [2EECI 3580 WINDOW SWAP ®,2:PEN 2:PAPER BeCLS:L 
3420 FOR i=5 ID 1 STEP -i:IF zeit>topstl OCATE 15,2:PRINT"DIE 5 BESTEN" :LOCA 
evel,i)THEN posi=i taBaaı TE 16,4:PRINT"ZEITEN DER":LOCATE 17 
3430 NEXT:IF posi<>® _THEN FOR „6:PRINT FNz#(level ,2)".EBENE";:PEN 
i+1 STEP -1:top5$ (level ‚i LOCATE 15,35:PRINT STRING$ (12,208 
vel,i-1)ztapS(level ,i)=topS (level ‚i OCATE 16,5:PRINT STRING$ (10,208) 
-1) :NEXT:top5 (level ‚posi)=zeit:topS LOCATE 17,7: PRINT STRING (8,208) LBA4DI 
$(level ,posi di L9EC2] 3598 PEN 3:LOCATE 5,9: PRINT"PLATZ: NAME: 
3440 GOSUB 3578 ‘Top 5 ausgeben [30261 SIG>REST ZEITEN LE9641 
3450 IF posi=® THEN 3548 [9400] 3600 PEN 2:LOCATE 11,9:PRINT CHRE(149):L 
3460 WINDOW SWAP @,2:n$="":p=1:PEN 2:LOC GCATE 26,9: PRINT CHR$(149) :LOCATE 5 
ATE 19,20: PRINT CHR$C1S@)CHRS (1S4)C ‚IQ: PRINT STRING$ (6,154) CHR& (159) ST 
HR& (158) TAB (19) CHR$ (149) " "CHRE (149 RING$ (14,154) CHR& (159) STRING$ (10,15 
)TAB(19) CHR# (147) CHR£ (154) CHRF (153) 4)sFOR i=11 TO 19:LOCATE 11 ,i: PRINT 
i L967A1 CHR$ (149) :LOCATE 26,i1:PRINT CHR&(1 
3478 PEN 3:LOCATE 12,9+posi#2:PRINT n$5: 49) :NEXT LABSQI 
PEN 1:PRINT"?"; LEZCEI 3618 FOR i=1 TO 5 Lıacal 
3480 PEN S:LOCATE 28,21:PRINT MID$ (names 3620 IF i=posi THEN PEN 3 ELSE PEN 1 CDa7Al 
P,1);:PEN 1sLOLATE 5,21: PRINT RIGH 3630 LOCATE_ 7,i*2+9: PRINT USING"#. " 
Ts names ‚MAX (15-p ,@) )MID$ (name$,MAX CATE 12,1*2+9:PRINT FNtop$ (level ,i) 
(1,p-14) IMIN(1A,p-1)) 5 :LOCATE 22,21 3 CF7D61 
PRINT MID$ (nane#,p+1,1S)LEFT# (name 364@ NEXT:WINDOW SWAP @,2:RETURN Cıcc2] 
*,MAX (D,p-15)) L3BFCI 3659 level=1:G0SUB 3488 CBCSEI 
3498 j0=J0Y (B) L7EFZI 3668 jo=JOY(@): IF jo<>16 THEN 3660 8962] 
3508 IF (jo AND 8)=8 THEN p=p-1:WHILE p= 3670 «yz=REMAIN(®):G0TO 12880 [4A661 
@:p=30: WEND: GOTO_S48@ CABSEI 3680 CLS#2: !A,FNadr (Level) ‚A00@B: AFTER 1 
3510 IF (jo AND 4)=4 THEN p=p+i:WHILE p= 00 GOSUB’ 3698: RETURN 149501 
31:p=1:WEND:GOTO 5480 LAsSQ1 369@ GOSUB 3570: level=leveltl:IF level>P 
3520 IF (jo AND 16)<>1& THEN 3498 [EERAI EEK (bilder) THEN level=1 L2ACQ] 
3530 IF p=3® THEN 3558 ELSE IF p=29 THEN 3700 AFTER 198 GOSUB 3488: RETURN 102701 
IF n$=""THEN GOTO 3498 ELSE n#=LER 
T$(n$,LEN(n$)-1):LOCATE 15+LEN(n$), Listing 1. Basic-Hauptprogamm (Schluß) 
100. Rss LED 145 DATA A148,@0,11,28,00,CD,7F,A1,D5,0343 LFCA21 
181 ‘* SRBIN.DAT - DATA-Lader von 'CPC' * L[25CA] 146 DATA A158,11,5t 2,CD,6A,A1,D1,ES,12C3 [DO6AI 
102. LADEN 147 DATA A158,21,00,08,CD,6A,A1,D1,19,1D3F [CA921 
183 CDEBö]J 148 DATA ’ [1506] 
184 DATA ABQ0,01,0D,AB,21,09,AQ,C3,Di,164F 18756] 149 DATA [32CA] 
105 DATA AQQ8,BC,FC,A6,@D,AQ,1E,AQ,CS,7IEB [B6lsl] 1580 DATA 1C942] 
186 DATA ABIO,EE,AD 8,Aly 12,Al,4161 [54621 151 DATA tB982] 
1907 DATA AB18,C3,91,A1,C3,A6,A1,D0,C7,5B05 L[41A2] 152 DATA CBOEB]I 
108 DATA AQ20,D8,D4,C1,D3,00,32,AC,AQ,aD2® L3SBAI 153 DATA [82001 
189 DATA AB28,CD,45,A1,78,E5,2A,AD,AB,s21A LECD?I 154 DATA Lac88] 
118 DATA AQ3@,01,10,@0,FE,00,28,04,@9,0BC1 LS4EC] 155 DATA TEABB] 
111 DATA AQ38,3D,18,F8,E5,D1,E1,06,0 CD8 LABARI 156 DATA 181281 
112 DATA AB4Q,CD,50,AQ,27,15,CD,50,Al 71C [9266] 157 DATA [CE24] 
113 DATA AB48,2B,13,CD,26,EC,10,F1,C' EOE LS2BE) 158 DATA LaaAsI 
114 DATA AQSa,SA,AC,AQ,FE,00,20,0 D7c 1509A] 159 DATA EFBEAI 
115 DATA AQ58,77,C9,FE,01,20,04,1A,AE,179A L&8A2) 160 DATA E1D783 
116 DATA AQ4B,77,C9,FE,@2,20,06,1A,4E,1742 (7B5A] 161 DATA L6AaB1 
117 DATA AB68,77,79,12,C9,FE,05,20,87,2CAB [70941 162 DATA [C69C1 
118 DATA AQ7@,1A,4E,CD,8@,AQ,77,C9,EB,BABS [C6EA] 163 DATA L987A1 
119 DATA AQ7B, 1A,4E,EB,CD,80,A8,77,09,0997 [21601 164 DATA ta5pA1 
128 DATA AQ80,C5,06,04,F5,E6,88,FE,@Q,683C LAA9ZI 165 DATA 1558A1 
121 DATA A2B8,28,10,CB,F9,CH,7F,20,02,0116 [95701 166 DATA [B1481 
122 DATA AQ9@,CR,B9,CH,D9,CH,SF,20,02,5856 LSBE6I 167 DATA [81601 
123 DATA AB98,CB,99,CB,01,F1,CB,87,18,SE@A L[A2D4] 168 DATA #ENDE* LAFD21 
124 DATA ABAQ,E2,79,CE,07,CB,07,CB,® 185 LOFBEI 169 adr=&AB90: zeile=14:MEMORY adr-i 186091 
125 DATA AQA8,CB,87,C1,09,85,00,A. 1&D LBDCAI 17® READ d$: IF d$="#ENDE*"THEN 181 [948E] 
126 DATA AQB@,45,A1,E5,78,2A,AD,AB,D: 345 LF97A] 171 pr=8 [50101 
127 DATA AQBB,18,08,FE,20,28,04,09,3 &BF L[B368] 172 FOR i=1 TO 8 [3166] 
128 DATA AQCQ,18,F8,E5,D1,E1,06,0 c82D21 173 READ at: a=VAL("&"+a#) [E244] 
129 DATA AQCB,12,23,13,7E,12,13,2 [83461 174 POKE adr ‚asadr=adr+1 CB9201 
150 DATA AQDR,2&,BC,10,F3,C9,D5,C5,F5, (D7BC1 175 pr=pr #2: IF BE>e553S_THEN prspr-60555, _ La@AG) 
131 DATA AQ@DB,AF,CD,25,ABd,F1,C1,E1,ES,4FCB [D3541 176 pr=UNT(pr)XOR a:IF pr<® THEN pr=pr+6553 
132 DATA ABEA,CS,FS,AF,CD,AF,AQ,F1,C1,4825 [94501 6 LASBSI 
133 DATA AQEB,E1,41,CD,25,A0,C9,FE,04,7CEC 150241 177 NEXT i E210E1 
134 DATA AQF®O,20,07,DD,7E,8@0,DD,23,DD,@DEF L&C181 178 READ pr$:pr2=VAL("&"+pr&): IF pr2<® THEN 
135 DATA AQFS,23,18,06,FE,03,C0,3A,AC,1B6B L[61AB1 pr 2=pr 2+6553& C2B9A1 
136 DATA A1B88,AB,CD,3B,A1,C0,25,A8,C9,6945 [62081 179 IF pr<>pr2 THEN PRINT"Pruefsummenfehler 
137 DATA A188,FE,03,C0,CD,3B,A1,CD,AF,6979 LB72EI in Zeile";zeile:STOP L[E722] 
138 DATA All! 90,C9,FE,07,20,07,DD,7E,7Di® LBABE] 188 zeile=zeile+1:G60T0 178 to35E] 
139 DATA A118,0@,DD,23,DD,25,18,06,FE,35F7A L&sC6l 181 SAVE"SR. BIN" ‚B,&AQDG,%200 CA19cı 
148 DATA A120,06,C0,3A,AC,AQ,DD,4 0,3868 L6B961 
141 DATA A128,DD,S5E,02,DD,56,04,DD,46,77CC L@@F21 
142 DATA A130,06,DD,4E,08,DD,66,@0A,CD,3EA9 [52021 ii 
143 DATA A138,D5,ABD}C9,DD,46,00,DD,6E,5594 L2aDA1 Listing 2. Ganze 512 Byte bilden 
144 DATA A140,02,DD,66,04,09,C05,40,26,3F22 L[8@7E1 die Maschinencode-Routinen 
1OD "aa nn RA C51DAI 11@0 DATA A420,10,00,00,90,10,00,37,CE,082@ LDB9CI 
101 '* SKSER.DAT - DATA-Lader von 'CFC’ * 17902] 111 DATA A438,37,CE,17,8E,17,8E,17,8E,202@0 L[6B7C] 
OD ° mat nn a LASER] 112 DATA A440,00,50,00,C0,30,00,C1,08,0@0A L[335B2] 
103 [DEB6]J 113 DATA A448,05,00,07,0E,@F,aF,00,00,02C4 [L@426] 
124 DATA AAQ0,00,00,00,00,00,00,00,00,0000 LAs2al 114 DATA A450,C9,00,50,00,00,C0,01,38,655A L[S5AD4] 
195 DATA N408,00,00,00,00,00,08,00,00,0008 L4C321 115 DATA A458,05,0C,07,@E,OF,@rF,00,00,02C4 LA@2C1 
19& DATA AA10}07,07,07,07,07,07,00,@0,02Fa L2EB21 116 DATA A460,10,80,21,40,51,20,91,10,291A LFOBA] 
{87 DATA A41U,05,06,06,05,@B,05,00,00,06E4 TLIA4EI 117 DATA A448,91,FE,40,20,20,40,10,80,7DAQ LF23@1 
198 DATA A420,00,00,00,00,20,00,ua,@0,auga LEF2CI 118 DATA A470,00,00,20,C0,28,40,20,00,0Ra@ LA@sEI 
197 DATA A420,78,E0,53,AC,53,AC,70,E0,0088 LCB7EI 119 DATA A478,30,80,20,08,20,40,30,CQ,SCAd LEBEAI 
Listing 3. Sprite-Routinen zur Bewegung unseres Helden »Bity« 


PP 


y 
AvW .HOMEcoMPUT| 


133 


122 DATA A480,20,00,00,00,80,00,22,02,20088 LSB2C] 15@ DATA AS78,F@,C0,48,42,408,648,70,C0,408AB [3712] 
121 DATA A488,00,00,028,020,01,01,05,05,28@883 T[ECSCI 151 DATA A578,68, ‚ca, MH 68,E0,650,20,00,0CB@ ICEFA] 
122 DATA A490,44,22,FF,FF,44,22,44,22,3892 17956] 152 DATA 5590,44 ,22,FFIFF}44)22,44,2 3892 I8FSc9 
123 DATA A498,44,22,FF,FF,44,22,44,22,3892 [B@D68] 153 DATA AS88,44,22,FF,FF,44,22,44,22,3892 L[SB6EI 
124 DATA A4AQ,FQ,F@,08,08,00,00,00,08,2498 L[2DAEI 154 DATA A59@,18,90,10,80,10,80,E0,70,2130 [4588] 
125 DATA A4A8,20,00,00,00,00,20,02,00,000@ 17858] 155 DATA AS98,E8,70,10,80,10,80,10,80,6428 L[D3D61 
126 DATA A4B9,00,38,11,20,00,88,11,08,2222 tBFAs) 156 DATA ASAB,20,00,00,00,F0,F0,81,08,044A TE&öEEI 
127 DATA A4B8,20,88,11,00,00,88,11,88,2222 I54B6] 157 DATA ASA8,03,0C,07,0E,@F,@F,00,08,02C4 [03521 
128 DATA A4CB,10,90,10,80,002,88,30,A2,22C8 LADDEI 158 DATA ASB®,10,08,41,48,08,00,95,7A,059@ L[38D8] 
127 DATA A4C8,58,C0,10,98,2@,48,60,C0,1288 L&DEAI 159 DATA ASBS,11,88,08,04,42,20,10,28,285@8 I&ECAI 
138 DATA A4DB,10,80,10,80,008,80,50,C0,206B IF2BAJ 168 ara =ENDEx [BFC2]1 
131 DATA A4D8,50,A0,12,80,A8,40,48,850,3E@@ I[ES84] 161 Ir=&A408: zeile=104:MEMORY adr-i LFC28] 
132 DATA A4EB,10,80,10,88,10,08,58,C8,22EB [ABDA] 162 ReAD ds: IF d$="#ENDE*"THEN 173 tAD?72] 
133 DATA A4E8,30,AQ,10,80,20,40,30,60,3AB@ TAADEI 183 pr=@ [SE12] 
134 DATA A4F@,10,88,12,88,10,00,32,AQ,2248 L[81B2] 164 FOR i=1 TO 8 1368] 
135 DATA A4FB,50,C0} 10,80,20,50, 10,20, 1248 t2cc8) 155 READ as: a=VAL("&"+a$) E[F946] 
136 DATA ASQ@Q,50,AB,50,A0,40,R0,30,C0,82022 LF7DEI 16& POKE adr ‚aradr=adr+1 c8D221 
137 DATA AS5Q8,10,89,10,88,20,40,50,C0,2288 L[@9A81 167 pr=pr*2:1IF pr>65535 THEN pr=pr-65535 t19A21 
138 DATA AS18,7@,Al DEN ,40,A8,50,C8,7828 [5112] 168 pr=UNT(pr)XOR asIF pr<@ THEN pr=pr+6553 

137 DATA AS1B, 0,80,18,80 20,40,40,80, 220@ [7594] & [55BA] 
148 DATA AS520,58,A0,50,A0,50,20,50,C0,02AuB LADDEI 169 NEXT i 13318] 
141 DATA A528, 18, 80, 10,908,20,40,38 ‚60, 2208 13482] 17@ READ pr$:pr2=VAL("&"+pr$): IF pr2<@ THEN 

142 DATA A530,580,90,50,90,58,20,30,C8,0DAB L[BIEBI pr2=pr2+65536 LABBAI 
143 DATA A538,10,80,10,80,20,48,10,28,2288 LDC7CI 171 IF pr<>pr2 THEN PRINT"Pruefsummenfehler 

144 DATA ASaQ, 18,C0,10, ‚ca, ‚ao, ‚2 5@ NER, SCH [7C84] in Zeile";zeile:STOP t3F12] 
145 DATA A548,10,C0,10, ca, 10,40,30,608,5788 LACD4J 172 zeileszeile+l: G0T0 162 [2862] 
146 DATA ASSQ, 18,ca,10, ca, ‚ao, 80,50,E8,3480 L[76E6] 173 SAVE"SR.SPR" .„B.&A4OQ.&1CQ [8302] 
147 DATA ASSB, 1i @,C0,10,C0,20,28,68,38,377® LCSD6] 

14B DATA A540,0B,0B,0B,0B,00,08,00,00,0490 tEIECI 

149 DATA A548, 20,00,00,00,00,00,08,00,D000 LE7S@I Listing 3. Sprite-Routinen (Schluß) 


DATA 


61A0,33,2C,30,30,2C,30,30,07,1647 
&1AB,00,00,00,00,02,22,02,08,@01C 
&1B0,2A,00,02,02,02,20,80,00,2570 
61B8,20,00,00,00,20,0A,0A,0n,0056 
&1CQ,aN,0A,0A,0A,02,00,00,00,0670 
61C8,00,00,00,0N,2N,00,20,20,D0F@ 
61D0,00,00,00,01,01,01,01,Q1,QQ1ıF 
eiDs,00, ’21,01,01,01,01,00,07,0075 
61E ‚21,01,01,21,05,87,01,00C7 
61EB, ‚02, ‚28,00,01,01,00,01,01,@11B 
&1F0,09,01,01,08,05,09,00,00,04DC 
61F8,00,00,08,01,01,00,00,00,0018 
6200,00,00,00,01,01,00,05,07,@01B 
6208,01,00,00,01,01,06.09,01,0047 
6218,01,01,02,01,01,00,01,@1,0@9B 
6218,09,00,08,08,00,07,00,0B,D4AF 
6220,00,00,00,01,01,27,01,07,0037 
6228,00,00,00,01,01,20,20,29,0@11 
6230,01,00,20,01,01,2B,89,01,00A7 
6238,@1,01,01,01,01,00,01,01,00FB 
6248, 01,07,05,00,01,01,01,0B,0265 
6249,08,20,00,00,20,07,01,07,@02F 
6250,0A,@A,QN,00,00,00,@R,07,@6DD 
6258,01,02,01,01,01,0B,01,21,0@17 
6260,00,01,01,01,01,00,01,01,0075 
6268,01 ,09,02,00,00,00,00, 06, ‚ezBB 
6270,00,00,00,00,09,01,01,01, 
6278,00,00,00,01,01,01,20,29, Des 
628@,01,01,01,@1,01,@B,21,@1,@@D7 
6288,08,00,01,01,01,00,01,01,00SE 
6290,01,01,01,07,20,00,00,25,0@7B 
6298,08,00,09,01,01,01,01,01,@13F 
62A0,00,00,20,01,021,01,00,07,0015 
62A8,01,01,01,01,01,08,21,01,0@D7 
62B0,00,00,@0,01,21,00,01,81,0@1B 
62B8,01,01,01,07,00,20,02,0B,007B 
62C0,02,00,07,00,20,00,00,020,0120 
62C8,08,20,00,00,00,00,20,00,000a 
+2D0,20,00,20,00,00,00,20,00,02aa 
6208,00,00,00,00,00,20,00,20,0000 
62E0,00,20,20,07,20,00,20,0B,0097B 
62E8,00,00,07,00,20,20,82,20,2120 
&2F0,00,00,00,00,00,20,22,00,0000 
62F8,00,20,00,02,00,02,00,28,2020 
6300,00,20,00,00,00,20,00,23,0003 
6308,20,00,00,09, ‚an, & 2 ,0B,029B 
6310,22,01,01,29,01,20,00,21,00F7 
6318, ‚an, 08, CH ‚as, 00,21,00,00, 18174 
6320,0@,01,00,01,29,00,20,01,2017 
6328,00,01,09,01,01,05,89,01,Q17F 
6330,21,01,01,29,00,80,80,06,0878 
6338,20,21,20,29,00,01,00,91,88D5 
6349,20,00,09,01,20,01,05,00,Q13E 
6348,00,01,28,01,01,07,28,21,227D 
6350,20,01,07,00,00,00,07,87,017B 
6358,29,20,00,01,20,00,00,06,249E 
6368,00,01,20,07,00,01,20,01,20D5 
6368,00,00,07,01,20,01,80,21,0135 
6370,00,21,00,01,20,01,07,21,80047 
6378,20,21,07,22,00,08,80,81,2141 
6390,09,82,00,01,2B,20,08,05,0443 
6388,20,21,01,021,29,20,00,01,0837 


1062 DATA 6390,00,00,09,01,00,01,00,01,0135 
1063 DATA 6398,00,01,00,01,00,01,09,01,0047 
1064 DATA 63A0,20,01,01,01,01,29,00,01,QQSD 


1855 DATA 63A8,01,01, Mr 


0B,00,00,0B, ME 


1865 DATA 63BB, a0, 21,020, ,01,09, 20, 20,01, ‚a019 


63C0,05,01,00,01,00,01,09,00,Q1C6 


18659 DATA 65C8,0A, ‚oA, ‚a0, 00,00,29,00,01,07A5 
1878 DATA 63DQ, ao, 01,09,00, aB, a0, 20, ab, 0133 
1,00,0 


1872 DATA ee ergel: 


19078 DATA 6410,00,01,90,01,00,020,00,01,0051 
1879 DATA 6418,008,01,01,01,21,01,00,01,007D 
1080 DATA 5420,00,200,00,01,20,00,00,0B,001B 


DATA 6428,00,00,00,00,00,00,00,20,0000 


1082 DATA 6439,00,00,00,08,00,20,20,20,0aaa 


1883 DATA 6438,00,00 


2,20,00,00,00,20,2000 


1084 DATA 6440,00,20,20,00,00,20,00,20,a0aa 
1085 DATA 6448,00,00,20,20,22,20,20,0E,2RaB 
1885 DATA 6450,00,00,00,20,00,20,00,20, 2000 
1087 DATA 6458,20,00,00,00,20,20,00,00,2000 
1088 DATA 6449,90,00,00,00,00,20,00,20, 2000 
1287 DATA 6448,02,00,00,00,00,00,20,00, aaa 
1090 DATA 6470,00,00,00,00,00,20,00,QB,auaB 
1291 DATA &478,00,00,20,00,00,00,00,00,2000 
1892 DATA 6480,80,00,00,00,20,20,00,20, 2000 
1093 DATA 6488,00,00,00,00,08,20,00,20,0000 
1074 DATA 6490,00,00,00,20,20,20,20,20, aaa 


1895 DATA 6498, ‚an, om,o 


CM 08,00, ‚oo, ‚a6, ‚aa0& 


19896 DATA &4AB, au, 20, 00,00,00, 2a,0i 


1277 DATA 6448,00,00,00,00,00,0 
1098 DATA 64B9,00,00,00,00,20,Q 


1899 DATA ERS Da aa 1DE [OR Ba Re ER au,o0aa 
1100 DATA 64C0,00,00,00,00,00,00,20,@2,2002 


DATA 44C8,00,20,20,00,00,00,20,20,2000 


11@2 DATA 6402,00,20,00,00,20,20,20,00,00a0 

1183 DATA 6408,89,00,00,20,00,020,00,00,00020 

1194 DATA 64E0,00,20,20,00,20,20,20,00,00aa 

1105 DATA 64E8,00,00,00,00,028,20,20,20,0000 

1196 DATA 64F0,05,00,05,00,05,08,05,Q0,QiFE 
3 


20,03,00,03,00,Q1iFE 
oO, 25, vo ‚a3,@@,Q1FE 


1127 DATA 6508,03,00,03,00,03,00,05,@@,@1FE 
1112 DATA &510,03,00,03,00,03,00,035,@0,Q1FE 


5 DATA 6538,00,83,00,03 
& DATA 6540,06,20,13,00,00,00,08,20,0168 
7 DATA 6548,00,00,20,00,20,20,20,21,0001 
18 DATA 655@,01,21,00,00,00,21,81,00,Q0C6 


11 DATA 6518,02,03,00,23,00,03,00,03,B0FF 
12 DATA 6520,20,05,00,03,20,03,00,25,00FF 
15 DATA 6528,00,03,00,03,00,25,20,83,B0FF 
14 DATA 6530,00,05,20,03,00,03,00,03,D@FF 
1 
1 
1 


‚20,03,00,03,Q0FF 


1119 DATA 6558,80,20,20,00,20,08,22,00,2084 
1120 DATA 6548,09,20,00,2R,0A,00,00,20,00F8 
1121 DATA 6548,82,02,00,00,20,20,00,20,2100 
1122 DATA 6578,00,00,00,01,01,01,07,29,2087 
1123 DATA 6579,09,09,09,09,09,09,09,09,0707 


1124 DATA 6580,91,01,01,01,01,01,91,81,Q@FF 121& DATA 4840,92,2B,29,08,20,00,00,87,02C97 


1125 DATA 6588,91,01,01,20,20,01,01,81,28E7 1217 DATA 6868,02,89,22,02,02,00,20,.20,20028 
1124 DATA 6590,01,01,01,00,28,20,00,20,00E0 1218 DATA 4870,90,00,20,00,07,07,01,00,@04E 
1127 DATA 6598,28,28,04,01,20,80,01,01,0893 1219 DATA 6978,92,05,27,28,00,00,00.00,2048 
1128 DATA &5A0,00,08,00,09,01,00,00,21,2097 1228 DATA 6889,09,00,00,09,00,00,01,20,0092 
1129 DATA 6548,88,02,00,08,08,28,00,08,2000 1221 DATA 4888,08,2E,22,20,20,20,00,09,2207 
1130 DATA &550,00,00,00,0N,2A,20,82,00,B0F@ 1222 DATA 6878,00,00,20,22,00,00,00,20,2008 
11351 DATA 6558,02,28,20,20,02,020,00,22,0822 1223 DATA 6898,08,29,00,09,29,06,21,22,00C0 
1152 DATA 65C0,00,28,20,00,20,20,00,20,02a8 1224 DATA #8AQ,02,07,07,00,00,00,00,02,0262 
1133 DATA 65C8,01,021,00,07,00,08,21,00,2852 1225 DATA 6848,02,02,02,07,02,02,20,20,2148 
11354 DATA &500,20,20,00,20,20,00,00,28,0008 1226 DATA #85@,00,9B,20,01,01,01,01,01,02DF 
1135 DATA 65D8,00,20,04,24,2A,24,00,20,8178 1227 DATA 68B8,01,21,01,01,01,01,01,01,00FF 
1136 DATA 65E0,08,20,20,09,20,00,02,01, 2205 1228 DATA 68C0,01,01,01,01,01,01,01,01,Q0FF 
1137 DATA 65E8,02,02,00,08,08,20,20,22,2120 1227 DATA 68C8,01,21,21,28,08,00,20,21,@BE1 
1158 DATA 65F@,00,00,01,07,28,09,20,21,0@B1 1230 DATA 68D09,01,01,01,01,01,01,01,01,BGFF 
1159 DATA &5F8,02,00,00.08,08,20,22,20, 2028 1231 DATA 68D8,@1,21,01,1A,A8,20,00,08.8488 
1142 DATA 6400,QN,QA,QA,QA,DR,DA,BA,BA,06D& 1232 DATA 48E0,00,00,20,00,20,00,20,00,2008 
1141 DATA 6608,00,00,02,08,00,02,01,20,088A 1233 DATA 6BE8,98,20,00,04,0A,0A,BA,2A,BOCh 
1142 DATA 6610,01,02,00,09,20,20,20,20,0000 12354 DATA &9FB,OA,aA,QA,aA,0A,00,00,00,0630 
1143 DATA 6618,08,28,28,01,29,80,00,08,2058 1235 DATA &8F8,00,00,20,20,00,00,00,20,0000 
1144 DATA 6420,20,20,20,08,20,00,81,92,0020 1236 DATA &900,0B,@A,0A,aA,2A,0D,DA,BA,B6AE 
1145 DATA 6628,00,02,04,0A,0A,0A,02,28,2198 1237 DATA 6708,20,00,00,00,0A,00,00,0n,a05a 
1146 DATA 6630,00,00,00,00,02,01,02,20,0014 1238 DATA 691@,0n,2A,0n,QA,aA,DA,DA,DA,DLD& 
1147 DATA 6638,08,01,22,20,20,20,02,20, 2000 1237 DATA 6918,00,20,02.00,0R,0N,DA,DA,BOGh 
1148 DATA 6440,00,20,20,00,21,20,80,04,008C 1248 DATA 6920,9A,2N,00,00,20,00,00,04,078A 
1149 DATA 66498,09,09,21,20,28,21,82,21,86E5 1241 DATA 6728,08,0A,24,20,00,20,00,0A,044A 
1150 DATA 6650,02,00,00,0A,0A,00,00,00,01F@ 1242 DATA 6730,8A,00,00,00,2A,@A,DA,0n,0566 


1151 DATA 66598,02,20,00,02,01,0B,20,20,2004 
1152 DATA 6640,00,0B,01,02,20,20,00,20,@2C8 
1153 DATA 6648,020,00,09,00,00,00,00,01,2001 
1154 DATA 6670,07,89,01,00,01,00,00,20,26E8 
1155 DATA 6678,01,82,00,04,84,00,00,20,00F@ 
1156 DATA 6680,00,00,20,27,20,0B,00,22,@0BC 
1157 DATA 6688,00,85,08,01,0B,02,02,20,8288 
11598 DATA 6670,00,00,20,20,08,00,@0,21,0001 
1159 DATA 6698.09,29,01,01,08,20,80,00,864F8 
1160 DATA &4AQ,Q0,01,02,04,04,20,00,00,00F@ 
1161 DATA 64A8,00,08,08,01,00,0B,20,00,005C 
1162 DATA 6450,20,2B,00,01,0B,20,00,00,0288 
1163 DATA 64B8,80,20,00,28,20,28,20,21,2001 
1164 DATA 64C0,09,27,20,00,00,00,20,@0,06C0 
1165 DATA 66C8,22,00,01,02,04,20,00,20,0058 
1166 DATA 64D0,00,00,20,20,01,00,20,00,0028 
1167 DATA 66D8,20,22,01,00,05,00,00,20,00F8 
1168 DATA 66E0,20,20,00,20,00,20,00,01,2001 
1169 DATA 66E8,89,91,01,01,01,01,01,01,B4FF 
1170 DATA 64F@,09,01,20,01,02,00,80,00,04C0 
1171 DATA 66F8,22,00,00,00,08,01.02,00,0008 
1172 DATA 6708,02,01,00,00,05,00,08,00,D118 
1173 DATA 6708,00,00,00,02,08,00,00,21,0001 
1174 DATA 6710,01,00,00,00,00,00,00,20,0as0 
1175 DATA 6718,89,00,20,00,01,02,00,20,0488 
117& DATA 6720,00,00,08,00,00,20,01,07,0@0B 
1177 DATA 6728,05,00,00,00,06,00,00,20,@2D8 
1178 DATA 6730,00,20,00,00,00,00,20,01,0a01 
1179 DATA 6738,20,20,20,00,08,00,00,20.0008 
1180 DATA 6740,09,20,00,00,00,01,02,00,0488 
1181 DATA 6749,00,02,20,02,00,00,00,29,0007 
1182 DATA 6750,20,20,00,00,2B,20,00,00,0058 
1183 DATA 6758,09,00,20,00,20,00,01,21,2005 
1184 DATA 6760,29,21,01,01,01,01,01,Q1,B4FF 
1185 DATA 6768,01 ,21,01,01,21,21,01,82,@@Fc 
1186 DATA 6770,00, 00, 00,00,00,00 00.07, 0003 


20,01 ,01,20,000&4 
1189 DATA 6788,09,00,20,00,20,08,00,20,2420 
1170 DATA 6798,00,00,00,20,00,20,01,01,0005 
1191 DATA 6798,02,00,08,02.00,20,08,87,2107 
1172 DATA 67A0,08,21,00,00,25,20,00,20,B018 
1193 DATA 67AB,00,20,02,00,01,01,01,28,02GE 
1194 DATA 6750,27,20,20,00,20,00,02,@0,0480 
1195 DATA 67B8,00,00,202,00,08,00,21,21,0005 
1196 DATA 67C0,01,2B,00,00,08,@0,00,09,0249 
1197 DATA 67C8,01,20,28,00,2B,00,00,20,20D8 
1198 DATA 67D0,00,28,29,00,00,01,01,01,0087 
1199 DATA 67D8,81,01,01,01,01,21,01,29,00F7 
1208 DATA 67E0,01,21,01,01,01,01,01,00,0@FeE 
1291 DATA 67E8,08,06,28,02,00,08.00,09 ,82C37 
1282 DATA 47F0,20,00,20,00,2B,20,20,20,0858 
1225 DATA 67F8,08,02,08,00,00,021,00,02,0004 
1204 DATA 6800,00,22,00,00,@0,00,20,27,0007 
1205 DATA 4828,02,00,00,20,20,00,01,20,0002 
12@& DATA 6819,00,05,90,00,00,00,00,07,02C7 
1207 DATA 6918,92,20,28,00,06,00,20,02,2258 
1208 DATA 4820,00,08,00,00,@0,22,00,22,2aaa 
1209 DATA 6828,02,00,08, 2,002,20,027,0007 
121@ DATA 6830,20,20,00,20,20,20,21,202,2202 
1211 DATA 4858,08,26,88 j22,22,02,28,27,22C9 
1212 DATA 6840,00,00,00,00,0B,20,00,08,0058 
1213 DATA 6848,02,08,00,08,28,07,81,01.0027 
1214 DATA 6850,01,81,01,01,21,01,01,21,BGFF 
1215 DATA 6858,01,01,21,07,00,00,21,00,2072 


6938,90,0A,2A,0A,00,0A,20,00,2348 
6949,00,00,20,00,20,00,00,24,000A 
6948,80,0A,20,00,22,20,0N,00,0294 
6950,25,20,22,00,20,00,00,00,0530 
6958,02 ,0A,00,0A,0A,0A,00,0n,0252 
6760, 00,0A,00,04,0A,20,00,00,0270 
6968,00,01,01,00,20,00,00,04,006A 
69370,00,04,04,0R,0A,BA,QB,Qn,0312 
6978,0B,04,0A,20,20,00,00,20,0640 
6780,20,24,20,0N,2A,QA,OA,Q0,@24C 
6988,00,0A,0N,20,20,00,00,22,05C0 
6990,21,01,01,01,20,00,00,20,00F0 
6998,0A,04,28,20,20,00,24,00,0794 
&F7AQ,QA,QA,BA,0B,20,00,00,00,0670 
6968,0A,2A,00,DA,DA,DA,00,00,0758 
6968,20,20,00,20,20,00,00,01,0a01 
69B8,01,02,08,21,21,20,20,00,0098 
69C0,@0,00,24,00,00,00,0A,an,QiSsE 
67C8,0A,04,20,05,20,20,00,04,073A 
69D0,20,00,04,0n,20,20,QA,@A,QiFE 
69D8,00,28,20,00,22,20,01,21,2003 
69E0,00,20,20,02,01,01,00,00,002C 
69E8,00,00,0R,0A,2A,0R,00,0n,0192 
69FO,OA,OR,OR,0B,00,00,0A,20, 0664 
&9F8,00,20,0A,0A,0A,DA,DA,DA,DIBE 
&AQD,22,00,20,00,00,01,01,01,0007 
6AQ8,21,909,01,01,01,01,01,Q0,@2FE 
6A1Q,20,Q0,DA,aA,DA,aA,20,00,0178 
6A18,08,0A,2A,0B,00,00,0N,00,0364 
&A20,20,0R,00,00,00,00,00,00,0280 
6428,20,20,00,00.01,01,00,00,2aac 
&A30,00,07,00,00,00,20,01,01,02453 

/20,00,00,00,00,ah.00,0014 
&A4B, BA, ZA, ON,OR,QQ,D, aN,00,2674 
6643,29) 2N,20,20,00.00,20,20,0238 
sA50,22,00,00,01,01ı,an.an’an.naıa 
6A58,00,27,09,00,00,00,00,01,0241 
sAs0,01,00,00,20,00,00,20,0N,0u8A 
6A&B,BE,QA,QON,0A,00,2Q,OR,aA,Q6FE 
&A7B,0N,DA,OR,DA,OA,Q0,00,00,0650 
6A78,08,00,21,01,21,29,01,01,0Q1F 
&ABQ,21,21,01,01,01,01,01,01,Q0FF 
6488,21 ,21,00,00,20,00,00,00,00ca 
sA9Q,@E,QA,2A,a0,00,20,00,20,0640 
&A92,00,0A,BA,BA,OA,20,00,00,0530 
&AAB,20,01,01,00,00,09,00,20,0u44 
6AA8,00,28,08,00,20,02, 02,20, 0000 
sABQ,Q0,D1,01,00,00,00,00,2Q,Q04a 
&ABS,0E,0A,@A,DA,BA,QE,20,00.069C 
&ACQ,2A,20,0A,20,00,00,00,00,0440 
&ACB,21,21,20,82,00,07,20,02,00E4 
sADQ,20,20,20,00,20,00,20,20,aaoa 
sAD8,29,08,21,01,00,00,00,20,005Q 
sAEQ,QE,Q0,20,00,0A,@B,00,20,@SFC 
&AEB,2A,2A,08,28,20,09,00,01,0781 
&AF@,21,01,01,01,01,01,01,01,BGFF 
&AF8,91,01,01.01.01,01,01,01,B0FF 
&5@@,91,09,01,01,01,00,00,00,@2F8 
6E08,06 ,22,00,0R,20,0B,BA,CA,@512 
+E1@,00,0R,20,00,08,00,01,01,8285 
6B18,28,99,20.20,00,20.01,01,0005 
&B28,81,21,01,01,01.00,00,20,0ara 
&523,08,29.20.00.01,21.00.20,024C 
&53@,0B,2A,@A,00,20,26,DA,00,0678 
&E38,20,0A,20,20,20,01,@1,01,0287 


135 


W.HOMESOMI 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


&E40,01,@1,01,01,01,01,01,01,B0FF 
6B48,07,01,01.01,01,00,00.20,B4F8 
6650, 20,07,00,00,20,01.01,00,0246& 
6B58,28,00,DA,2A,20,2E,@A,0N.8452 
6B60, 2A ,0A,20,@@,21,01,02,20,078C 
6B68,29,20,20,82,02,01,01,21,0017 
6570,09,01,01,01,01,07,01,21,Q4DF 
&B78,01,01, FELHE /21,01,01, 21,01, }BarF 


‚21,01,01,27,00, ‚ar.aıso 
&BAQ,QL, 05) 20,aA,an,a@A,aA,aR,@20& 
&BAB,BA,OA,BA, BA, 20,00,0R,20,0674 
&550,00,0B,01,01,00,00,00,00,02F@ 
&BB8,09,00,00,09,08,01.01,02,0484 
&5C0,02,02,01,01,01,07,@0,01,@19D 
65C8,01,07,08,00,02,02,02,02,@2DE 
&5D0,01,01,00,20,20,02,0A,00,@@D4 
&BD8,28,01,01,01,01,09,01,01,005F 
6BEO,@1,01,01,01,01,01,01,02,@@FC 
6BEB,03,02,81,01,01,09,02,01,0119 
&BF@,01,09,01,01,01,01,01,01,Q2FF 
&BF8,01,01,01,08,20,00,08,00,00E0 
6C@8,01,01,01,01,01,09,01,01,Q0DF 
6C08,01,01,01,01,01,01,01,09,00F7 
6C10,29,09,09,@1,01,01,@1,@1,@7FF 
6C18,01,29,20,00,20,20,00,20,@2C0 
&C20,00,00,01,01,00,00,00,01,0031 
6628,01 ,00,00,08,00,99,20,00,00n4 
&C30,00,00,00,00,00,00,20,00, 2000 
6C38,08,20,00,00,00,00,20,20,2008 
6C40,20,09,00,00,00,02,02,@2,024E 
6C48,02,02,03,01,01,00,01,@1,@1FB 
6C5@,01,01,01,01,01,@1,@1,@1,@0FF 
6658,01 ,91,91,01,01,01,01,@1,00FF 
6C6@,01,01,01,21,01,01,01,@1,BQ@FF 
6C68,01,99,01,01,01,91,@1,Q1,Q2FF 
&C78,01,01,01,01,01,01,40,00,0064 
6C78,14,00,00,20,00,00,00,20,0R20 
&C80,00,00,00,00,00,00,20,00,2000 
6C88,20,20,00,20,02,00,20,20,2000 
&C90,20,20,00,20,00,00,20,20,0008 


6CB8,89,91,01,01,01,01,@1,@1,BAFF 
6CC@,®1,01,01,09,01,01,@1,@1,@@7F 
6CC8, 021,01 ,09,00,00,01,900,20,00C4 
&CD0,00,00,00,00,20,01,00,20,0004 
6CD8,28,09,00,00,00,00,01,00,0242 
6CE0,07,00,01,00,00,00,00,00,04AB 
6CEB,00,00,00,07,00,20,20,08,0078 
6CF@,@1,01,02,00,20,01,00,20,0884 
&CF8,00,00,@2,00,00,01,00,00,0044 
&D20,00,27,00,20,02,00,01,80,2252 
6D88,07,02,01,00,00,20,02,00,0424 
6D10,20,00,02,07,20,00,0 


B 
6D68,09,00,00,01,00,00,89,00,0482 
6D&8,91,01,00,09,00,00,00,00,0058 
&D70,09,00,02,01,00,02,00,09,Q4D1 


6D98,01,01,021,81,81,81,01,21,B2@FF 
&DAQ,@1,01,01,01,01,09,01,@1,@@DF 
6DAB,21,01,89,81,81,81,01,21, DIFF 
&DB@,01,09,01,01,01,07,01,@1,@2DF 
6DB8,21,01,20,80,80,07,00,21,@0E5 


‚BR 
&DD@,21,00,07,00,20,20,@0,@1,@1Ai 
&DD8,08,89,20,21,00,09,20,00,0274 
&DE®,@1,01,00,00,20,07,92,@1,@0E1 
&DEB,00,008,28,22,21 ,88,80,08,0028 
&DF®,20,02,20,01,20,07,08,02,08B& 
&DF8,01,08,09,00,20,82,00,01,01A7 
6E08,00,07,02,01,00,07,90,02,8236 
6E08,01,21,81,27,01,81,81,81,087F 
6E10,01,09,01,01,01,01,89,@1,B2EF 


6E18,81,81,91,21,81,21,01,01.BBFF 
&E2@,01,01,01,01,87,01,01,01,@QBF 
6E28,@1,01,21,01,01,01,07,01,00EF 
6E30,81,01,00,27,20,20,00,01,0051 
6E38,08,07,20,00,00,20,07,00,0252 
6E40,00,20,01,20,00,00,00,00,0820 
6£48,20,20,22,20,27,00,00,00,0048 
6E50,20,01,00,00,20,00,07,00,0052 
6E58,01,01,02,89,00,20,02,01,0011 
&E60,00,07,00,02,20,00,07,00,0272 


&E70,02,00,00,00,07,00,02 
&E78,028,01,20,20,02,00,07,00,2042 
6E88,91,01,01,01,01,09,01,01,Q0DF 
6E88,01,21,01,01,01,01,01,09,00F7 
6E90,01,01,01,01,01,01,09,Q1,@GEF 
6E98,01,01,09,01,01,01,01,@1,@1FF 
6EAB,01,01,01,01,01,01,01,01,Q@FF 
eeRs,al, 21,00,00,00,07,00,00,00E4 

1,20,00,00,00,00,00,09,0089 


6EC8,08,09,00,01,00,00,00,00,0010 
6ED2,01,01,00,00,20,07,00,02,00E& 
6ED8,01,00,02,00,00,00,00,09,20C9 
6EE0,00,02,00,00,00,20,07,00,0072 
6EE8,01,00,09,00,02,01,00,02,01E6 
sEFO,@0,00,00,01,00,00,00,02,0012 
6EF8,01,01,01,09,01,01,01,01,007F 
sF@@,@1,01,01,01,09,01,01,Q1,Q00BF 
6F08,21,01,01,09,01,01,01,01,007F 
6F1@,01,01,01,29,01,01,01,01,207F 
6F18,01,89,01,81,01,09,01,01,22DF 
&F29,01,01,00,07,00,00,00,20,0050 
6F22,08,00,00,00,09,00,00,01,0047 
&F30,020,00,00,09,00,01,00,00,0094 
6F38,20,00,20,29,00,20,01,20,0092 
$F40,00,09,00,00,20,07,00,00,0264 
&F48,01,21,28,07,00,08,08,02,0062 
&F50,08,00,08,08,09,00,02,01,05CD 
6F58,00,00,00,07,02,01,00,02,0086 
&F60,00,00,00,07,20,22,01,00,009A 
6F68,00,07,20,02,00,29,00,02,0246 
&F70,01,01,01,01,01,01,01,01,@@FF 
6F78,01,07,01,01,01,07,01,@1,02DF 
6F80,01,09,01,01,01,01,01,@1,@2FF 
6F88,01,07,01,01,01,21,01,01,B2FF 
6F90,09,01,01,01,01,01,09,01,Q4EF 
6F98,01,01,00,00,00,20,00,00,20C0 
&FAQ,Q0,07,00,01,20,09,00,01,0275 
6FAB,20,09,20,08,00,80,00,01 0241 
&FEB,20,09,00,00,20,20,00,@0,0240 
6FBB,09,00,01,00,20,20,07,20,24B2 
6FCO,01,01,08,08,28,08,06,08,0124 
6FCB,88,09,00,01,02,09,00,01,0665 
&FDB,20,07,00,00,02,00,@0,01,0251 
&FD8,08,09,02,20,08,02,00,00,0248 
6FEO,09,20,01,00,02,20,07,00,04A2 
6FEB,@1,01,01,01,01,01,01,01,00FF 
#FF®,21,01,01,01,01,01,@1,@1,0@0FF 
6FF8,01,01,01,01,01,21,01,01,2@FF 
7080,01,01,21,@01,01,01,01,@1,00FF 
7883,01 ,01,01,021,01,01,01,01,080FF 
70198,21,92,A8,2B,27,0A,@A,@A,17CE 
7818,0A,0A,0A,BA,BA,@A, OA, an, 0606 
7020 ,0A,BA,DA,aA,aA,an,DA,DA, 0606 
7028, 0A,0A,0A,OA,BA,DA,ON, DA, 0606 
7030,2A,an,0A,an,aA,aN,aA, On, 0406 
7038, ‚an, 1987 28 3 es ee eu 20,0618 
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7940,00,00,00,07,09,02,20,20,@0Da 


„BA,BA,OA, ‚25,02,00, 
7@82,20,00,02,08,00,00,02,00,0044 
7088,00,20,02,07,01,01,01,25,00DE 
709@,01,01,01,25,01,01,01,05,00BB 
7898.01 .21 ,21.00,20,00,00,00,00E0 
7OA0,20,00,00,00,00,01,01,01,0007 
70A8,04,01,01,21,04,021.81,01,0257 
7060,04,01,01,09,01,80,01,01,@2FB 
78B8,81,00,01,01.01,00,01,01,02BE 
7@C0,01,00,21,20,00,20,00,20,a0A0 
78C8,88,0 2,00,09,01,06,21,2009 
7@D@,01,21,00,01,21,01,00,@01,@@DD 
78D8,01,81,00,027,21,00,20,00,0058 
72E0,00,20,20,20,20,00,00,00,0naa 
72E8,80,20,01,20,00,02,00,00,2020 
7@FQ,00,20,00,00,20,01,00,00.0004 


70F8,020,00,20,20,20,20,22,00,2022 
7100,20,20,00,29,01,20,20,00,0a98 
7108,20,00,20,20,20,00,20,00,2008 
7110,00,20,00,@N,0A,aA,@A,@A,DaC& 
7118,0A,0R,0A,0N,84,00,00,08,2638 
7120,20,00,00,00,08,08,00,00,0840 
7128,00,00,20,89,01,27,01,01,2QBF 
713@0,01,01,01,01,01,01,01,01,Q@FF 
7138,21,01,01,20,00,00,00,08,00E0 
7140,00,00,20,20,020,01,01,01,0807 
7148,01,01,01,01,01,01,01,01 

7150,01,01,01,01,01,09,00, 
7158,00,00,00,00,00,00,00,00,200@ 
7160,00,20,20,00,20,00,@0,20, 2000 
7168,20,20,00,00,20,00,00,00,0000 
7170,00,00,00,00,20,20,00,00, 2000 
7178,00,00,00,01,01,01,01,09,0017 
7180,00,00,00,00,20,00,20,20,0000 
7188,01,01,01,04,0A,BA,@A,0A,2026 
7190, @A,@0A,0A,@A,@A,Q@1,01,01,0637 
7198,09,00,20,00,00,20,00,00,0480 
71AQ,@0,01,01,01,20,00,01,07,007B 
71A8,20,00,20,00,20,20,20,20, 0000 
7150,00,00,00,20,00,20,07,00,0@0E 
71B8,27,20,00,00,00,20,20,00,0380 
71C0,09,00,00,00,00,00,00,20,0480 


7108,01,29,01,05,01,01,05,00,82B& 
71E0,04,01,01,04,01,@01,09,01,023F 
71E8,81,01,01,01,01,01,@1,01,B0FF 
71FQ,09,01,00,00,00,20,01,0A,04C8 
71F8,DA,DA,0A,BA,ON,ON,0A,27,0605 
7200,01,29,21,01,01,00,01,01,@2FB 
7208,01,00,01,01,01,00,07,01,2BAB 
7210,0A,@A,QaA,0A,DA,QA,OA,QA,0606 
7218,29,01,00,00,20,00,01,00,04C2 
7220,00,20,01,01,21,00,00,@9,2031 
7228,21,27,08,20,20,20,20,22,22C0 
7230,00,20,20,00,00,80,07,01,0@13 
7238,08,08,00,01,021,01,00,08,221C 
7240,09,01,00,00,00,00,01,00,84C2 
7248,00,01 ,02,02,02,21,00,07,203D 
7250,01,09,00,00,00,81,91,01,22C7 
7258,01,01,01,00,80,20,97,01,20F3 
7260,00,20,81,02,02,02,01,00,001A 
7248,89,01,00,00,20,00,21,00,04C2 
7270,00,01,02,02,82,01,00,27,@@3D 
7278,01,09,20,80,01,09,07,07,02F7 
7280,07,07,27,01,20,00,97,01,07E3 
7288,20,00,81,82,02,02,01,08,001A 
7290,07,01,00,00,20,00,21,00,04C2 
7298,08.01,22,82,82,21,08,07,203D 
72A0,01,09,00,01,89,97,00,00,@2BC 
7268 ,00,00,09,29,01,00,07,01,D1AB 
7250,00,00,01,02,02,02,01,20,001A 
72B8,09,01,00,00,20,00,01,00,04C2 
72C0,@0,01,01,01,01,01,00,07,0875 
72C8,01,07,00,01,07,00,00,00,2278 
72D0,00,00,00,09,01,00,09,01,288B 
72D8,00,00,@1,01,01,01,01,00,003E 
72E0,097,01,00,00,20,@0,01,08,04C2 
72E8,00,05,0B,@B,0B,@B,00,09,056D 
72F0,01,07,00,01,27,00,00,02,029A 
72F8,02,00,20,09,021,00,09,01,@18E 
7300,00,00,05,@B,@B,@B,@B,2@,01B2 
7308,27,01,20,00,00,20,01,00,04C2 
7310,00,00,00,20,00,20,00,07,0007 
7318,01 ,09,08,01.29.00.00.01.0299 
7320,01,00,00,09,01,00,07,01 ,0@aB 
7328,08,00,00,00,20,20,00,20,0000 
7330,09,01,00,00,00,020,01,20,04C2 
7338,00,00,20,00,20,00,00,09,0009 
7340,01,29,00,01,27,00,20,00,0278 
7348,00,00,00,29,01,00,27,01 ‚2096 
7350,00,00,00,20,20,00,00,00,0000 
7358,09,21,00,00,20,00,01,00,04C2 
7360,00,08,020,00,20,00,00,07,0007 
7368,01 ,07,00,01,29,20,00,20,2298 
7370,00,00,00,07,01,20,07,01 ,008B 
7378,00,00,00,00,80,00,00,20,0008 
7390,07,01,20,00,01,01,01,01,Q4CF 
7388,01 ,21,01,01,01,01,21,@1,@0FF 
7390,@1,01,01,01,01,01,01,01,Q00FF 
7398,01,01,021,81,@1,01,01,21,DOFF 
73AQ,01,01,01,81,01,01,01,01,QGFF 
7308,01,01,01,21,28,AB,1C,01,2329 
73B@,01,01,01,01,01,01,01,01,D@Frs 
73B8,01,01,81,01,01,01,01,01,00FF 
73C0,01,01,01,01,01,01,01,01,B0FF 
73C8,@1,021,81,01,@01,@21,01,01,B0FF 
73D@.01.01,01,01,01,01,01,01,B0FF 


7308,20,208,00,20,00,20,00,20,2000 
73E0,00,00,00,00,00,20,20, 20,008 
73E8,00,20,00,00,00,20,00,02,0002 
73F0,02,00,00,00,20,00,00,00,0108 
73F8,08,08,00,00,00,00,01,01,2003 


7410,00,00,09,09,09,01,01,@1,QiFF 
7418,01,21,01,09,00,00,00,00,0070 
7420,00,00,00,09,20,00,01,01,2003 

2,00,00,04,04,20,04,04,006C 
‚04,04,00,04,04,00,@4,01B4 
7438,04 ,04,04,04,09,00,00,00,0588 
7440,00,20,00,09,00,20,00,20, 0070 
7448,09,00,09,00,00,20,01,01,0005 
7450,20,00,20,20,20,00,00,20, 2000 
7458,00,00,00,20,00,20,00,2a,na0o 
7440, 20,20,00,20,07,20,00,@0,au4a 
7448,00,00,00,89,20,00,20,00, 0090 
7478,20,00,00,00,20,00,01,01,0003 
7478,00,00,00,00,00,20,00,00, 00080 
7480,00,00,00,20,20,00,00,20,2000 
7488,00,00,01,21,21,01,01,00,@03E 
7490,00,00,20,09,00,20,00,00, 2090 
7498,00,00,20,00,20,20,01,01,200% 
74A0,20,00,02,00,00,20,00,00,0040 
7448, 02,03,03,00,20,20,00,00,01A0 
7450,00,04,00,00,00,20,00,00,0100 
74E8,008,00,00,09,00,20,20,20,0090 
74C0,00,20,00,20,20,00,01,01,0003 
74C8,0B,01,01,01,05,00,00,21,05D7 
74D0,@1,01,01,01,01,01,01,00,0@FE 
7408,00,00,00,00,00,20,20,03,2005 
74E0,03,20,00,07,00,02,02,00,011C 
74E8,00,00,00,00,00,20,01,01,00053 
74F0,@B,00,20,00,00,00,00,01,0581 
74F8,03,02,02,02,83,01,00,Q0,017C 
7520,00,00,20,00,01,01,01,01,208F 
75@3,021,21,01,@1,01,01,01,01,Q@FF 
7510,07,00,20,00,@0,20,01,01,0483 
7518,25,20,090,00,29,00,00,21,0581 
7520,01,01,01,01,01,01,20,20,Q@FC 
7528,20,20,20,20,00,08,20,20,2000 
7532,20,02,00,00,00,20,@0,0n,aana 
7538,29,20,02,20,@20,00,21,01,0482 
7548,05,00,00,20,@0,20,00,20,0588 
7548,22,20,20,08,20,00,02,0R,000a 
7550, 24,@A,2A,2B,02,00,00,00,2670 
7558,28,00,02,20,00.20,20,00,.0040 
7540,07,00,00,00,00,00,01,021,0483 


7588,21,00,00,00,00,00,01 ,01 ‚2083 
7590,25,20,00,00,20,00,09,20,0572 
7598.90,00,20,20,00.00,00, 00.0008 
75AQ,20,00,20,0B,00,00,20,20,00B0 
75A8,08,20,20,20,29,00,20,07,0041 
75B0,00,00,00,00,20,00,01,01,0003 
75B8,0E,00,00,00,09,01,01,@1,Q5CF 
75C0,01,07,20,20,00,00,03,03,02C5 
75C8,23,00,28,05,20,20,00,00,0130 
75D0,20,00,20,00,07,00,00,09,0041 
75D8,20,92,00,00,00,00,01,01,00853 
75E0,0B,00,00,00,07,00,00,00,05C8 
75E8,20,27,00,00,00,01,01,01,0247 
75F0,01,01,01,09,01,01,00,00,@@7C 
75F8,20,00,00,00,09,08,01,01,0@4R 
7620,01,01,01,00,00,20,01,01 ,00E3 
7608, 05,00,00,00,07,00,00,00,05C8 
7610,020,09,00,20,00,00,00,00,0240 
7619,00 ‚00,00 ,n» aa ,ua,ua,un, ‚aaoa 
7620,00,20,00,00,29,00,00,00,0048 
7628,00,00,00,00,20,00,01,01,000% 
7630,05, 29,20,00,29,00,00,02,05CA 
7638,00,09,00,00,20,00,00,00,0240 
7640,00,00,00,09,20,03,03,00,029A 
7648,20,00,00,02,09,00,00,00,0068 
7650, 20,20,20,00,00,00,01,01,0003 
7658,2B,20,00,00,09,00,01,01,05CB 
7660,01,01,01,00,00,00,00,20,00E0 
7668,00,90,20,@01,01,01,01,Q1,Q01F 
7670,01,09,01,01,21,00,00,00,@2F8 
7578,20,00,20,00,00,20,01,01,0005 
7680,05,20,02,20,07,20,00,00,0588 
7688,20,00,28,20,00,00,00,00, 2000 
7690,00,00,00,00,20,00,@0,20,aaaa 
7698,20,29,20,02,00,09,09,09}027F 
76A0,07,07,27,09,00,00,01,01,0773 
7648 ,28,22,01,01,01,09,00,00,059C 
7650,00,00,00,00,00,00,20,00, aaa 
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76B8,28,08,08,29,2B,20,00,20,2858 
7&C0,00,07,08,00,00,07,01,21,0267 
7668,91 ,01,01,29,00,00,01,01,0873 
7&D0,2E,00,00,00,20,07,00,20,05A4 
76D8,00,20,00,20,00,20,22,20,2000 
76E0,20,20,20,00,20,00,00,20,0008 
76E8,20,27,20,20,28,27,01,01,0267 
76F@,01,01,01,07,00,00,01,01,0873 
76F8,25,08,00,20,29,07,00,20,05R4 
7700,08,00,20,00,00,02,22,02,@00E 
7708,02,02,02,82,902,@2.82,02,B1FE 
7710,20,97,00,08,20,29,01,01,0267 
7718,02,21,01,89,00,00,01,01,@1F3 
7728,01,01,01,01,01,01,01,01,@0FF 
7728,81,01,@21,81,21,01,21,21,B@FF 
7730,01,01,81,@03,01,01,@1,21,@@DF 
7738,81,21,01,81,81,81,01,21,Q8FF 
7740,01,01,21,01,821,01,01,@A,08F4 
7748,A8,1A,01,88,08,08,08,08,5258 
7750,08,08,08,2B,20,00,00,20,0750 
7758,20,00,08,00,00,0A,0n,@A,0056 
7760,0A,0A,24,00,20,20,00,00,Q6C0 
7768,90,08,20,20,00,20,00,20,2000 
7770,00,00,01,@1,81,01,01,01,0@3F 
7778,81,01,81,88,00,20,00,20,2050 
7780,00,20,@0,00,@A,0A,01,09,0873 
7788,01 ,0A,2A,2A,28,08,00,00,03E0 
7790,20,00,00,00,20,00,00,00,0000 
7798,00,08,20,02,20,00,00,00,2000 
77A0,00,20,01,05,20,00,00,00,0090 
77A8,00,00,08,2A,2A,@A,Q1,07,0@D3 
7760,01 ,0A,0A,04,0A,00,00,20,0358 
77B8,00,00,00,00,00,00,00,20,0000 
77C0,80,00,01,01,01,01,81,01,Q@5F 
77C8,01,@1,01,0B,20,20,00,20,2050 
77D0,20,00,@A,0n,0A,8A,01,09,0193 
7708,01,04,04,0R,8A,0A,00,00,0398 
77E0,00,00,00,00,20,20,00,20,0000 
77E8,00,20,00,20,00,00,00,00,0000 
77F@,01,01,00,0B,20,00,00,20 
77F8,00,0A,2A,@R,@A,2A,01,09 


7818,01,20,20,05,20,00,20,00,0030 
7820, 0A, QA,@A,@A,BA,@A,D1,09,0615 
7828,01 ‚0A,OA,@A,@N,@A,DA,BA,@386 
7830, 00,00,00,00,00,00,00,00, 2000 
7838,00,00,00,00,00,00.21,21,0005 
7840, 00,00,00,@B,00,00,00,0A,@@BA 
7848,04, 0A,0A,@A,0A,0A,D1,@ 
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2,22,00,00,20,00,0500 
7860,00,0@,01,01,01,01,01,00,003E 
7868, ‚an, ‚an, aa) ‚an, 88, MTM ‚an, ‚aa, JanıE 
7870,0A,0n,02,@A,@A,QA,@1,09,0715 
7878,01,24,02,02,02,02,82,04,0275 
7880,04,04,00,00,00,00,20,20,0780 
7888,20,00,27,08,01,01,20,20,@BEC 
7890,20,20,20,08,00,0A,DA,@A,Q056 
7898,0A,02,02,0A,0A,8A,D1,09,8513 
78AQ,01,0A,0A,@N,@N,02,@A,@A,B3A& 
78A8,0A, 0A, 2N,20,80,00,20,00,06C0 
7860,20,20,01,01,01,00,20,00,2038 
78B8,00,28,08,00,2A,0A,BN,0A,2066 
78C0,02,04,02,0A,0A,2A,01,07,0313 
78C8,01,0A,0A,0N,22,0A,DA,@A,@SCh 
78D0,@A,QA,QA,0n,08,00,00,20,0668 
78D8,20,00,01,21,21,20,00,20,2038 
78E0,00,00,00,@A,BA,@A,@A,@2,@BCE 
78E8,0A,0A,02,0A,04,8A,81,87,8713 
78F0,01 ,0A,BA,0A,0A,02,0A,0A,05A& 
78F8,2A,0A,0A,2A,0A,00,00,00,0638 
7700,20,20,01,01,01,00,20,00,0038 
7989,00,02,2A,0A,0A,@A,BA,DA,D186 
7910,0A,@A,02,04,0R,0A,01,07,0713 
7918,01 ,0A,0A,@A,BA,BA,D2,0R,0376 
7920, 2a, BA, aa, BA,aA,0A,20,00,8618 
7928,20,20,21,21,21,20,20,20,2038 
7930 ,@0A,04,0A,0A,BA,BA,ON,DA,06B& 
7938,0A,0A,02,0A,BA,2A,01,89,8713 
7240,01 ,0A,02,00,04,00,02,06,027& 
7948,8A,0A,2A,2A,DA 
79580,00,00,81,@01,01, 20, aa, aa, 292& 
7958, 0A, BA,QA,@A,DA,OR,OA,BA,BER& 
7960,04,02,02,@2,0A,@4,01,97,0593 
7968,01 ,0A,0A,82,02,02.04,00,036& 
7970, @A,BA,BA,BA,BA,BA,GA, aa, 26856 
7978,28,20,28,20,0A,BA,BA,DA,B06& 
7980,0A,QA,@A,BA,BA,BA,BA,OR,@60& 
79788,0A,0R,0R,DA,BA,DA,DI,907,0613 


7970,01 ,2A,04,04,0A,2A,DA,DA,0386 


7768,02 ,2A,QA,BA,OA,DA,ON,DA,DEDE 
79B0,0A,BDA,BA,BA,BA,BA,01,09,@613 
7988,81 ,BA,DA,BA,DA,BA,DA,DA,2SB6 
79C9,BA,BA,aA,aA,aA,QA,DA,0A,060& 
79C8,84,08,01,01,81,01,01,01,053F 
7908,21,01,91,91,20,@01,01,01,20F7 
79D8,21,01,01,81,81,01,01,27,08F7 
79E0,01,21,@21,01,21,01,01,01,Q@FF 
79E8,21,21,08,01,01,01,00,20,00DC 
79F0,00,28,00,00,20,20,00,00,0000 
79F8,28,21,08,20,20,00,00,00,0040 
7ABQ,20,20,00,00,01,20,20,07,0001 
7ABS,020,01,20,00,20,20,00,00, 0040 
7A10,00,00,00,20,00,01,00,00,0004 
7A18,00,00,00,20,20,20,00,20, 2000 
7020,@0,00,01,01,01,01,01,01,Q03F 
7A28,01,01,01,28,01,09,01,@1,Q0CF 
7A30,01,01,20,01,01,01,01,01,Q0DF 


‚22,08, 
7A50,00,20,00,20,01,27,00,00,@02C 
7A58,21,00,00,00,00,80,00,20, 2080 
7060,20,00,00,00,01,00,00, 00, a0a8 
7648, 00,00,20,00,00.00,20,20, 2000 
7A70,20,00,00,00,01,01,020,01,20aD 
7A78,01,01,01,01,01,01,01,09,20F7 
7A8@,01,01,@1,@1,01,01,01,01,Q0FF 
7A88,01,91,21,00,01,20,20,20,2QE8 
7A90,00,00,00,00,20,00,00, 00, auaa 
7A98,20,20,00,00,20,01,20,00.0004 
TAAQ,00,00,00,00,20,00,00,07,0007 
7AAB}2B,00,00,00,00,00,00,00,2000 
7A69,00,00,20,00,01,00,00,20,aaaa 


‚@1,01,01, „@1,01,01, 
7AD9,01,01,01,01,01,01,01,01,A@FF 
7ADB,01,01,21,01,00,00,00,00,20F@ 
7AE9,20,90,900,00,1A,21,01,01,20D7 
7AEB,@1,01,01,01,01,@1,01,01,08FF 
7AFQ,@1,01,01,01,01,01,01,01,Q@FF 
7AF8,01,01,01,01,01,01,01,@1,@0FF 
7880,01,01,01,01,01,01,01,01,Q@FF 
7808,01,01,01,01,01,81,09,D1 ,2BEF 
7610,09,09,09,07,09,07,09,07,0707 
7818,09,02,09,09,09,09,09,09,05C7 
7520,09,07,09,09,09,09,89,09,0707 
7828,09,99,01,01,01,89,29,21,Q6CF 
7630,09,09,09,09,01,01,09,01,076F 
7838,09,09,02,09,09,09,09,09,0667 
7B40,01,01,01,01,89,07,09,09,0087 
7B48,09,01,01,01,09,09,09,09,0487 
7B50,09,09,09,09,09,09,07,07,0707 
7858,01,09,09,09,01,01,09,01,D56F 
7B60,01,01,01,01,01,01,07,09,@0E7 
7868,09,02,09,09,09,09,09,09,0507 
7870,01,29,01,01,01,09,01,29,02D7 
7878,09,09,29,09,89,27,07,09,0707 
7680,01,09,09,09,01,01,09,09,0367 
7588,01 ,09,09,09,09,01,09,09,0327 
75690,01,01,01,09,09,09,07,01,@00F 
7898,02,01,29,01,09,01,07,@1 ,002F 
7BAB,02,89,02,01,01,01,09,09,0307 
7BA8,01,09,02,09,21,01,09,09,0207 
7560,07,87,01,02,01,01,09,01,Q6DF 
7BBE,09,09,09,01,09,09,01,07,0797 
7ECQ,01,07,09,01,09,01,09,07,03A7 
76C8,81,01,09,09,09,09,01,09,0117 
75D0,01,01,01,09,01,01,29,01,QU4F 
78D8,89,09,01,09,29,09,09,21 .D60F 
7BEQ,09,09,09,09,01,01,09,01,076F 
7BES,29,09,01,01,09,01,09,09,06447 
7EF®,@1,01,09,09,09,89,01,07,0117 
7BF8,07,09,09,01,01,01,979,01,07EF 
7C80,09,97,01,07,07,29,07,01 ,04@F 
7C28,02,21,81,21,21,01,02,01,0179 
7C10,09,97,07,09,09,01,07,09,0727 
7C18,81,01,09,29,89,29,21,09,0117 
7C20,09,09,07,01,81,01,09,01,07EF 
7C28,29,29,09,21,01,09,029,01,07CF 
7C38,01,09,89,07,09,09,01,01,Q51F 
7C38,89,87,01,81,01,01,07,07,06£7 


: 7C49,01,09,09,09,09,09,01,09,0317 


7C48,87,07,27,01,01,01,27,02,D7EC 
7C58,01,91,21,07,21,07,07,27,0047 
7C58,29,29,29,07,29,27,29,@1,070F 
7C68,01,29,01,09,09,89,07,01,220F 
7C68,87,22,91,01,91,01,01,29.0437 
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7C70,01,21,01,29,01,21,29,01,206F 
7C78,89,09,29,09,02,27,89,29,075F 
7C80,81,01,01,09,09,09,29,81,@00F 
7C88,97,21,81,87,89,89,91,29,2417 
7C90,09,021,09,87,97,97,07,21,05@F 
7C98,09,909,29,29,01,01,07,21,276F 
7CAQ,07,21,01,01,01,09,07,21,B4CF 
7CA8,09,27,29,21,09,89,979,21,078F 
7CB0,09,01,07,01,09,07,07,09,0587 
7C88,09,89,01,29,09,809,29,21,260F 
7CCa,09,09,09,09,21,01,89,81,876F 
7CC8,29,21,29,27,09,29,87,81,BSBF 
7CD0,07,09,29,01,09,29,82,01,0799 
7CD8,29,81,29,87,01,22,09,29,256E 
7CEU,07,09,09,07,09,01,01,99,8737 
7CE8,01,21,01,09,21,21,29,81,0B6F 
7CFQ,09,01,29,09,01,91,89,01,Q56F 
7CF8,09,07,09,09,21,81,01,09,0777 
7Da0,09,01,09,27,07,09,01,07,@517 
7D88,09,07,29,07,27,09,81,99,0717 
7D10,07,07,91,29,01,01,09,09,0647 
7018,09,09,09,09,09,09,09,09,0787 
7D20,09,09,29,09,07,09,07,01,07@F 
7D28,@1,01,89,09,09,09,01,09,0117 
7D30,01,01,09,09,09,@09,01,09,@117 
7D38,89,27,21,27,21,81,09,29,0667 
7D49,09,07,09,01,01,01,01,01,07FF 
7D48,01,09,09,89,989,09,01,09,8517 
7D50,09,07,09,09,87,07,01,29,0717 
7058,01,07,09,09,09,09,02,02,051A 
7D&@,01,01,09,09,01,01,09,01,D16F 
7D68,81,09,02,21,29,89,09,89,02E7 
7D70,@1,01,01,01,09,09,01,01,@09F 
7D78,01,01,01,02,01,@01,01,09,00C7 
7D80,01,09,09,09,09,09,01,01,031F 
7D88,01,01,21,29,01,@1 BazSnLSBUEn 
7090,09,09,09,01,09, © 


7DAB,29,01,09,09,09,89,01,09,0517 
7DB0,09,09,01,09,01,01,09,01,066F 
7DB8,09,01,09,021,09,09,01,01,@59F 
7DC@,01,01,09,09,01,09,09,09,0147 
7DC8,81,29,29,29,09,87,29,27,0397 
7DD0,@9,01,01,01,01,01,09,29,04E7 
7DD8,09,07,01,89,01,01,09,01,066F 
7DEQ,29,29,01,01,29,09,01,09, 2697 
7DE8,09,01,02,02,01,09,09,0 
7DFQ,01,09,09,09,09,09,09,07, 0507 
7DF8,09,01,09,09,09,09,09,09,0587 
7E00,09,87,01,09,21,01,02,01,0679 
7E88,89,09,09,09,09,89,01,89,0717 
7E10,29,01,01,01,81,09,02,09,04D1 
7E18,81,21,01,01,01,01,81,01,Q@FF 
7E20,01,09,09,09,89,09,01,01,Q51F 
7628,01 ,01,01,89,01,01,09,01,006F 
7E30,09,01,09,01,09,07,01,01,Q59F 
7E398,09,09,09,89,89,07,01,09,0717 
7E40,09,09,09,09,09,07,99,27,0707 
7E48,09,07,09,09,07,07,01,09,0717 
7E50,09,09,09,09,01,01,01,01,077F 
7E58,81,21,01,01,01,81,81,01,Q0FF 
7E60,01,01,01,81,01,01,01,@1,Q8FF 
7E68,81,01,01,01,01,01,01,21,B2OFF 
7E70,@1,01,01,01,01,01,01,01,Q@FF 
7E78,81,01,01,901,01,44,A8,17,00AF 
7E80,00,20,0A,@A,QA,@A,0n,BA,0186 
7E88,0A,@A,DA,OA,@A,OA,DA,@A,BeB6 
7EIB,BA,BA,@A,QA,BA,QA,QA,QA,0606 
7E98,@A,2A,QA,DA,DA,BA,DA,aA,Qa06 
7EAQ,2A,0A,24,00,20,00,00,02,06C2 
7EA8,81,99,08,20,20,20,08,00.22C0 
7EB@,028,00,03,03,03,03,03,43,0041 
7EB8,03,03,03,03,03,03,03,23,2101 
7EC0,03,03,03,03,03,03,03,20,01@2 
7EC8,88,21,01,89,01,21,21,21,Q8FF 
7EDO,20,09,00,00,25,22,20,20,0268 
7ED8,28,22,21,81,81,91,01,21,0asF 
7EEQ,01,01,01,01,01,01,01,21,Q0FF 
7EE8,01,01,01,81,01,01,21,28,00FE 
7EF®,20,01,021,09,00,22,08,00,20F8 
7EF8,00,07,28,00,22,00,00,24,0244 
7FQ0,08,00,20,02,00,20,08,00,0008 
7F28,20,28,20,20,20,20,00,20,2000 
7F18,28,00,20,82,20,20,08,20,0028 
7F18,09,21,01,07,00,08,00,20,20F0 


7F38,22,20,22,02,00,02.00,02, 
7F42,80,01,021,81,201,81,09,B@,BB4E 
7F48,00,20,00,20.07,20.00.20,2048 


Listing 4. Fertige Bilder für Stone Runner (Schluß) 


7F52,20,95,20,09,20,00,00,20,0140 
7F58,00,20,20,20,20,00,20,20,0000 
7F&8,29,01,01,0B,01,01,04,00,0454 
7F&8,08,21,21,00,00,028,07.00,0072 
7F7@,00,00,00,82,07,00,00,00,2048 
7F78,28,00,20,02,00,20,20,20, 2080 
7F88,00,00,00,00,00,00,00, 00,200 
7F88,29,21,81,0B,01,01,00,00,045C 
7F90,04,01,01,20,20,20,09,20,0272 
7F98,08,09,01,01,01,01,00,20.027C 
7FAQ,20,04,00,20,00,00,20,00,0100 
7FAB,22,00,20,00,00,00,00,00, 000 
7FBQ,29,01,01,05,81,01,05,00,045& 
7FB8,22,01,21,81,01,01,01,29,0077 
7FCO,00,27,20,00,20,00,00,00,0240 
7FC8,28,20,00,20,00,20,20,07,2007 
7FD@,01,01,01,01,01,01,Q1,01,Q0FF 
7FD8,01,01,01,2B,01,01,00,00,@05C 
7FEB,24,M ,‚01,20,00,00,00,09,0249 
7FEB,22,89,00,00,00,00,00,05,0245 
7FF®,20,00,00,20,00,00,00,07,0009 
7FFB,@1,01,01,01,01,01,01,021,00FF 
80@0,21,01,01,2B,01,01,05,00,0056 
3228,20,21,01,20,00,00,00,09,0047 
8010,21,91,01,01,09,20,00,00,00B8 
8218,20,08,20,25,20,00,00,07,0057 
8020,01,01,01,01,01,01,01,01,00FF 
8028,21,21,21,0B,01,01,00,20,@0Sc. 
8050,04,01,01,09,01,01,01,Q1,Q2FF 
3058,20,20,00,00,07,20,00,04,@04C 
8040,00,20,00,00,00,00,00,07,0007 
8248,20,09,20,20,00,00,20,00,2008 


8058,20,21,01,27,00,20,00,00,00F@ 
3940, 20,20,00,00,07,00,00,00,0048 
8068, 20,00,00,00,00,27,01,01,0027 
8070,01,01,01,01,09,01,01,@1,QQBF 
8078,01,91,01,01,09,01,00,00,@0BC 
8030,04,01,01,09,00,00,00,00,02F0 
2288,20,29,01,01,01,01,00,00,027C 
3090,22,00,00,04,00,09,01,00,006& 
3278,20,20,20,00,07,20,00,00,0048 
80A0,00,00,00,01,29,01,05,00,005& 
S0A8,90,91,21,01,01,01,07,00,D06E 
90B2,20,27,00,00,00,00,00,05,0245 
8258,20,20,20,00,00,29,01,00,0026 
30C0,@0,09,01,01,01,01,01,09,0277 
80C8,22,00,00,01,09,Q1,00,00,@05C 
80D9,04,01,01,00,00,00,09,00,0272 
80D8,00,07,20,00,00,20,00,00,0240 
S0ED,22,00,00,20,00,29,01,00,002& 
80E8,00,27,00,00,00,20,00,09,0249 
SOF0,00,00,00,01,09,01,05,00,0054 
80F8,88,01,01,00,00, 5 
8120,01,@1,01,01,07,00,@ 
8108,04,20,00,20,20, vos} 21,09, @22F 
8110,01,91,01,09,00,09,01,01,0057 
8118,01,01,09,01,09,01,20,00,D1BC 
2120,04,01,01,09,01,01,01,Q01,Q2FF 
3128,20,08,20,00,89,20,00,00,0048 
3150,00,20,20,00,00,07,01,07,002F 
8138,01,01,01,01,01,01,D1,@01,Q0FF 
8140,01,01,029,@1, 2 01,05,00,Q1B& 
8148,08,01,91,09,00,00,20,20,20F@ 
8150,20,00,00, 2,00, 02,00,aDac 
5158/00 .00.00.00.00.09.01.07 .002E 
3160,20,20,01,01,01,01,01,00,003E 
8168,00,00,07,01,09,00,00,00,0178 
8170,04,01,01,07,00,00,00,00,02F@ 
8178,22,08,01,01,01,01,01,00,003E 
3180,00,00,20,00,00,07,01,27,QQ2F 
8188,02,00,00,00,20,00,20,00,0000 
3190,00,20,09,01,09,01,05,00,0176 
8178,22,21,021,01,01,07,00,00,QuSC 
31AB,00,00,00,08,00,00,no,aa,aaaa 
81A8,20,00,20,20,00,07,01,21,0027 
8150,01,01,01,04,00,05,01,01,00B7 
8188,21,01,01,21,29,01,01,01,@GBF 
81C0,21,91,21,01,01,27,00,@0,Q@DC 
81C8,20,28,28,08,28,08,08,20,05F0 
81D2,00,20,20,00,00,09,01,00,0024 
81D8,20,02,28,81,02,01,20,20,0004 
81E0,22,20,20,01,09,00,00,20, 0058 
31E8,22,20,00.29,20,09,00,200,0024 
81F®,01,01,01,01,01,@1,01,@1,20FF 
S1F8,21,21,01,21,21,81,91,00,00Fe 
3220,28,20,00,01,20,01,00,00,0014 
3208,20,20,29,21,21,01,01,01,201F 
8218,01,01,01,01,01,01,01,01,B0FF 
8218,28,48,84,2C,30,31,20,30,296C 
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Mandelbrots 
wunderbare Mathematik 


Kennen Sie die fantastischen 
Computerbilder von Mandel- 
brotberechnungen? Sicher 
haben Sie sich schon gefragt, 
wie man so etwas macht. Mit 
einigen mathematischen Grund- 
lagen und Ihrem CPC ist das 
ganz einfach. 


icher haben auch Sie bereits 

Mandelbrotbilder gesehen. 

Jene fantastischen farbigen, 
abstrakt wirkenden Bilder, die wie foto- 
grafisch verfremdete Sonneneruptio- 
nen aussehen, erschienen wiederholt 
in der Fachpresse. Die Grundlagen für 
diese Bilder entwickelte der polnische, 
in Amerika lebende Mathematiker 
Benoit B. Mandelbrot. 

Um zu verstehen, wie Mandelbrot- 
bilder erzeugt werden, muß man sich 
mit der Mathematik von Fraktalpro- 
grammen auseinandersetzen. Sie 
basiert auf Rechnungen mit komple- 
xen Zahlen. Doch keine Angst, mit 
Ihrem Wissen aus der Schulmathema- 
tik und ein paar Hinweisen von unsler- 
nen Sie schnell, mitkomplexen Zahlen 
umzugehen. 

Aus der Mathematik sind uns meh- 
rere Zahlenmengen bekannt. Die ein- 
fachste ist die Menge der natürlichen 
Zahlen. Mit ihr kann man ganz normal 
zählen, also »1, 2, 3...«, und rechnen: 
»1+1=2«, »4-3=1«. Das funktioniert 
nur so lange, bis man feststellt, daß 
»3-4« nicht zu rechnen ist. Man 


braucht also eine neue Zahlenmenge, 
mit der das Ergebnis dieser Rechnung 
darstellbar ist. 

Dazu wurde die Menge der ganzen 
Zahlen eingeführt, die auch negative 


Zahlen einschließt. Mit dieser Zahlen- 
menge läßt sich nach Belieben addie- 
ren, subtrahieren und multiplizieren. 
Beim Dividieren hingegen gibt es 
Fälle, die mit der Menge der ganzen 
Zahlen auch nicht lösbar sind: »3/2« 
geht nicht auf. Also wird wieder eine 
neue Menge erforderlich. 

Diese nennt man die Menge der 
rationalen Zahlen. Sie umfaßt die 
Menge der ganzen Zahlen einschließ- 
lich deren Brüchen. Mit ihr lassen sich 
fast alle bekannten mathematischen 
Operationen ausführen. 

Die Fläche eines Kreises ist damit 
jedoch noch immer nicht zu berech- 
nen, da keine der bisher besproche- 
nen mathematischen Mengen die 
Kreiszahl PI (r) enthält. Eine weitere 
Menge wird fällig, die Menge der reel- 
len Zahlen. 

Innerhalb dieser Menge lassen sich 
alle mathematischen Operationen bis 
hin zu Wurzel- und Logarithmusfunk- 
tionen ausführen. Allerdings geht das 
nur solange gut, bis man versucht, die 
Quadratwurzel aus -1 zu ziehen. 
Wahrscheinlich kennen Sie das von 
Ihrem Taschenrechner, der schlicht 
ein »ERROR« anzeigt, wenn Sie ver- 
suchen, aus negativen Zahlen die 
Quadratwurzel zu bilden. Da die Ma- 
thematiker wissen wollten, zu welchem 
Ergebnis die Wurzel aus -1 führt, 
ersannen sie eine vorläufig letzte 
Menge der Zahlen: die Menge der 
komplexen Zahlen. Genau diese Zah- 
lenmenge ist für die Berechnung der 
Mandelbrotbilder relevant. 

Eine komplexe Zahl besteht immer 
aus einem Real- und einem Imaginär- 
teil; zusammen ergeben beide die 
komplexe Zahl: zum Beispiel 3+7i. 


Dabei gibt die 3 den Wert des Realteils 
an und 7i den Wert des Imaginärteils. 
Das kleine »i« kennzeichnet den Ima- 
ginärteil. Sie werden sich jetzt sicher 
fragen, was das Ganze soll. Schließ- 
lich haben wir immer noch nicht die 
Quadratwurzel aus -1 gezogen. Der 
Trick beim i, und dessen ganzer Zweck 
istjedoch, daß imitsich selbst multipli- 
ziert -1 ergibt, umgekehrt also die 
Quadratwurzel aus -1 eben jenes i bil- 
det. Damit sind nun Wurzeln aus nega- 
tiven Zahlen zu ziehen. 

Oben haben wir aber gesagt, daß 
jede komplexe Zahl aus je einem 
Imaginär- und Realteil besteht. Nun, 
das gilt für i ebenfalls. Ausgeschrie- 
ben, so wie wir es oben zeigten, heißt 
1: 0+1i. Den Realteil läßt man weg, da 
er in diesem Fall Null ist. Und dai nur 
einmal gezählt wird, läßt man die Eins 
ebenfalls weg. 

Will man nun mit komplexen Zahlen 
rechnen, sindeinige Regeln zubeach- 
ten. Bei der Additition zweier komple- 
xer Zahlen werden Realteile und Ima- 
ginärteile gesondert addiert: 
3+7i+4-91=7-21 

3 plus 4 ergibt 7 und 7 zu -9 addiert 
ergibt -2, also 7-2i. Entsprechendes 
gilt bei der Subtraktion komplexer Zah- 
len. 

Die Multiplikation ist schon etwas 
schwieriger. Will man 3+7i mit 7-2i 
multiplizieren, geht man folgenderma- 
Ben vor: Zuerst wird jedes Element der 
beiden komplexen Zahlen miteinan- 
der multipliziert. Als 3xX7=21, 
3x-2i=-6i, 7iX7=49i und 7ix-2i=-14i?, 
Das ergibt dann 
21-614491-141? 

Dann wird zusammengefaßt: 
21+431-141? 


Zweite Tabellenwerte: Bei den Schnörkeln wird’s interessant 


er 


Da i?=-1 ist, wird aus -14j? schlicht 
14. Das Endergebnis von 3+7i multi- 
pliziert mit 7-2i ist demnach 35+43i. 

Eine komplexe Zahl läßt sich auch 
grafisch darstellen. Man handhabt sie 
wie eine normale Zahl, nur daß auf der 
x-Achse der Realteil angetragen wird 
und auf der y-Achse der Imaginärteil. 
Zeichnet man eine komplexe Zahl in 
ein Koordinatensystem, so spricht 
man auch von der »Darstellung« der 
komplexen Zahl in der »Gaußschen 
Zahlenebene«. 


Die Mandelbrot- 
menge 


Zum Rechnen mit komplexen Zah- 
len ließe sich noch eine Menge mehr 
sagen. Um zu verstehen, wie Mandel- 
brotbilder entstehen, genügt dieses 
Wissen jedoch. 

Die faszinierenden Bilder basieren 
auf folgender einfachen Formel: 
2=2°+0 


4 


[1 Imaginarteil 


Wert= Yr2+i2'=4,47 


ganz einfach mit, nach wievielen 
Durchläufen z unendlich groß gewor- 
den ist. Diese Zahl bestimmt dann 
eine Farbe, wobei gleiche Zahlen für 
gleiche Farben stehen, und färbt 
damit den entsprechenden Bildpunkt 
auf dem Bildschirm ein. Indem man 
diesen Vorgang mit allen Bildschirm- 
punkten wiederholt, erhält man die 
Mandelbrotbilder. 

Wir brauchen jetzt bloß noch dem 
Computer den Umgang mit dieser 
Gleichung beizubringen. Betrachten 
wir dazu der Einfachheit halber erst 
einmal den Teil rechts vom Gileich- 
heitszeichen. Dort steht: z?+c, wobei 
z die komplexe Variable und c die 
Koordinate als komplexe Zahl dar- 
stellt. Da der Computer nicht mit kom- 
plexen Zahlen rechnen kann, müssen 
wir die Formel für ihn aufbereiten. 
Beginnen wir also mit z. Da z für eine 
komplexe Zahl steht, ist z auch in je 
einen Imaginär- und Realteil aufzu- 
spalten. Das ergibt dann a+bi. In der 
Formel ist z quadriert, die aufgespal- 


Realteil 


So bilden Real- 
und Imaginärteile 
komplexer Zahlen 

die Bildschirm- 

koordinaten 


2-4i 


Die Formel bewirkt nichts anderes, 
als z zu quadrieren, einen festen Wert 
c hinzu zu addieren, daraus wieder z 
zu bilden und so weiter. Wie Sie viel- 
leicht bereits richtig vermuten, sind z 
und c komplexe Zahlen. Den Vorgang 
nennt man »iterieren«. 

Schön, und wie entstehen daraus 
Bilder? Ganz einfach: c bildet eine 
Koordinate in der Gaußschen Zahlen- 
ebene. Gleichzeitig ist die Ebene der 
Bildschirm des Computers. Man 
nimmt nun jeden Bildpunkt und setzt 
dessen Koordinate in die Gleichung 
als c ein. Das Merkwürdige an dieser 
Gleichung ist nun, daß z entweder 
sehr schnell unendlich groß wird oder 
aber sehr langsam. Man zählt nun 


tene Schreibweise würde dann also 
folgendermaßen aussehen: 
2?=(a+bi)? 

2’=a°+2abi+bi? 

Wir haben aber gelernt, daß i? den 
Wert -1 hat, dann heißt es also: 
2’=a?-b’+2abi 

Ebenso läßt sich c aufspalten, um 
d+ei zu erhalten. Wenn wir nun die 
beiden komplexen Zahlen z und c aus 
der Originalgleichung zusammenfas- 
sen, und nach Real- und Imaginärtei- 
len sortieren, erhalten wir: 
2=a°-b°+d+2abi+ei 

Für den Computer spaltet man die 
Gleichung weiter in Real- und Imagi- 
närteil auf, die dann getrennt ausge- 
rechnet werden. Das z links vom Dop- 


Dritte Tabellenwerte: 


pelpunkt ist eine komplexe Variable 
a+bi. Wenn man a+bi als zwei sepa- 
rate Gleichungen auffaßt, in der alle 
Real- und Imaginärteile je eine Glei- 
chung bilden, so erhält man: 
aza?-b’+d 

und 

bis2abitei 

Für den Computer nimmt man für 
die imaginäre Zahlen normale reale 
Zahlen an und erhält: 
asa?-b+d 
b=2ab+e 

Damit kann der Computer nun rech- 
nen. 

Wie bereits erwähnt, wird z in der 
Gleichung entweder sehr schnell 
unendlich groß oder aber sehr lang- 
sam. Man überprüft nun nicht, ob die 
Zahl unendlich groß ist, denn das ist 
auf dem Computer schwer realisier- 
bar. Vielmehr testet man, ob der Wert 
der komplexen Zahl z größer als 2 ist. 
Der Wert der komplexen Zahl ist wie 
folgt zu berechnen. Oben haben wir 
gesehen, daß sich eine komplexe Zahl 


Eine endlose Treppe 


wie normale Koordinaten in ein Koordi- 
natensystem einzeichnen läßt. Der 
Wert der komplexen Zahl ergibt sich 
aus dem Abstand der Koordinate zum 
Nullpunkt des Koordinatensystems. 
Dazu werden die Imaginär- und Real- 
teile jeweils separat quadriert und die 
Quadrate addiert. Beim Quadrieren 
wird das i (der Imaginärteil) nicht 
beachtet. Aus dem Ergebnis zieht 
man die Wurzel und erhältso den Wert 
der komplexen Zahl. 


Das Mandelbrot- 
programm 


Nach soviel Grundlagen und Theo- 
rie wollen wir uns nun endlich der Pro- 
blemlösung und dem Programm wid- 
men. Das Programm wurde auf dem 
Schneider CPC 464 unter Verwen- 
dung des Hisoft-Pascalcompilers 
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geschrieben. Dabei ist folgendes zu 
beachten: 

a) Im Programm werden Compiler- 
Systembefehle benutzt, die nicht zum 
Standardpascal gehören. Die Anpas- 
sung an beispielsweise Turbo-Pascal 
fällt aber nicht allzu schwer. 

b) Nachdem Sie den Compiler mit 
»RUN”PASCAL”« gestartet haben, 
müssen Sie auf die Frage »RAM-Top 
(ENTER for default)?« mit »&9FFF« 
antworten, sonst funktioniert die Ein- 
gabe des Dateinamen nicht korrekt. 

ce) Listing 1 und 2 des Programms 
sind getrennt einzugeben. Den Proze- 
durenteil speichern Sie mit »P 
<Nummer der ersten Zeile>, 
<Nummer der letzten Zeile>,MAN- 
DEL.LIB«, den Hauptteil mit »P 
<Nummer der ersten Zeile>, 
<Nummer der letzten Zeile>,MAN- 
DEL.PAS«. 

d) Wenn das abgetippte Programm 
fehlerfrei läuft, läßt sich eine Binärver- 
sion compilieren. Das geschieht fol- 
gendermaßen: Zuerst stellen Sie 
sicher, daß das Hauptprogramm im 
‚Arbeitsspeicher steht und die Diskette 
mit den Prozeduren sich im Laufwerk 
befindet. Dann geben Sie im Editor 
»F1,2, <Programmname> «ein. Nach 
der Eingabe von »T <Nummer der 
ersten Zeile>« auf den Prompt »OK« 
mit <Y > antworten. Die Binärversion 
wird nun unter dem gewählten Namen 
auf Diskette gespeichert. 

e) In beiden Programmteilen steht 
als erste Zeile der Befehl |$L-], zur 
Unterdrückung der Listingausgabe 
auf dem Bildschirm während des 
Compiliervorgangs. 

Bevor das Programm etwas berech- 
net, ist die Eingabe einiger Startpara- 
meter notwendig. Es erwartet der 
Reihe nach folgende Eingaben: 


1. ITERATIONEN: Der Wert 


bestimmt, nach wieviel Rechendurch- 
läufen das Programm spätestens mit 
dem Wiederholen der Rechenschleife 
aufhören 


sol. Die Variable 


Vierte Tabellenwerte: Norwegens Fjorde? 


<iterationsgrenze> wird mit diesem 
Wert belegt. 

2. XMIN: Die Eingabe des kleinsten 
x-Werts im Intervall von (-2.5 bis 0.75). 

3. XMAX: Die Eingabe des größten 
x-Werts im gleichen Intervall. 

4. YMIN: Die Eingabe des kleinsten 
y-Werts im Intervall von (-1.5 bis 1,5). 

5. YMAX: Die Eingabe des größten 
y-Werts im y-Intervall. 

6. FILENAME: Hier erfolgt die Ein- 
gabe des Dateinamens für das errech- 
nete Bild. Der Dateiname darf maxi- 
mal acht Buchstaben lang sein. 


Wie lang braucht 
der Computer? 


Im Programm folgt nun eine Initiali- 
sierung des Bildschirms, damit alle 
Bildschirmparameter auf den Ein- 
schaltzustand zurückgesetzt sind. 
Ebenso wird eine Uhr installiert, daes 
interessant zu wissen ist, wieviel Zeit 
der Computer zur Berechnung eines 
Ausschnitts aus der Mandelbrot- 
menge benötigte. <dx> und <dy> 
sind reelle Variablen, die den Abstand 
zweier Pixelin den gewählten x- undy- 
Intervallen enthalten. Mit <cx> und 
<cy> werden die festen komplexen 
Zahlen mit <xmin> und <ymin> 
belegt. Das bedeutet, daß mit der 
Berechnung des Ausschnitts in der lin- 
ken unteren Ecke begonnen und 
gleichzeitig ein Nullpunkt für die 
Berechnung jedes einzelnen Punktes 
der Mandelbrotmenge gesetzt wird. 

Zur Berechnung jedes einzelnen 
Punktes der Mandelbrotmenge wer- 
den zwei Schleifen aufgebaut, die 
jeweils alle Punkte auf der y-Achse 
und der x-Achse durchlaufen. Die 
Variablen <iterationen>, <xwert>, 
<ywert>, <xquad> und <yquad> 
werden alle mit Null belegt. 

Mit der WHILE-Schleife beginnt das 
eigentliche Hauptprogramm. Solange 
die bereits durchlaufenen <itera- 
tionen> kleiner als die anfangs 


gesetzte <iterationsgrenze> und die 
Summe aus <xquad> und <yquad> 
kleiner als 4 ist, soll mit der Berech- 
nung der Mandelbrotmenge fortgefah- 
ren werden. 

Die Mandelbrotmenge berechnet 
sich wie folgt: Der Imaginärteil 
<ywert> der Gleichung wird aus 
2x<xwert>x<ywert>+cy berech- 
net. Den Realteil <xwert> berechnet 
xquad-yquad+cx, <xquad> und 
<yquad> enthalten jeweils die Qua- 
drate von <xwert> und <ywert>. 
Als letzter Schritt in der Mandelbrot- 
mengenberechnung wird <iteratio- 
nen> um 1 erhöht. Bricht die WHILE- 
Schleife nun die Berechnungsroutine 
ab, das heißt <iterationen> = 


<iterationsgrenze> oder 
<xquad+yquad> =4, wird dem 
aktuellen Punkt der Mandelbrot- 


menge eine bestimmte Farbe zuge- 
ordnet. War die Anzahl der <itera- 
tionen> gleich der angegebenen 
<iterationsgrenze>, wird dem Punkt 
keine Farbe zugeordnet. Keine Farbe 
bedeutet in dem Fall, daß der momen- 
tane Punkt in der Mandelbrotmenge 
liegt und der Einfachheit halber die 
vorgegebene PAPER-Farbe erhält. 
Des weiteren wird die feste Variable 
<cx> mit cx+dx belegt und so der 
nächste Punkt auf der x-Achse zur 
Berechnung festgelegt. 

Ist die Anzahl der <iterationen> 
kleiner als die <iterationsgrenze> 
und <xquad+yquad> größer 4, 
geschieht folgendes: <cx> wird der 
nächste Punkt zugeordnet und der 
berechnete Punkt erhält eine Farbe, 
die von der Anzahl der <iterationen> 
abhängt. Die Operation (iterationen 
MOD 3)+1 errechnet <colour>, die 
Werte zwischen 1 und 4 annehmen 
kann. 

<iterationen> hat zum Beispiel 
den Wert 25. Die MOD-Funktion liefert 
den ganzzahligen Rest aus der Divi- 
sion A/B. Im Beispiel bedeutet das: 25 
MOD 3=1, denn das ganzzahlige Er- 


Fünfte Tabellenwerte: Je kleiner, desto filigraner 
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Iterationen: 150 150 150 75 50 

XMIN: 0,55 0,26 -0,7459  -0,798 0,748 
XMAX: 0,45 0,27 0,7455 0,6 0,6 

YMIN: 0,5 0,00000 0,1122 0,2925 0,43 
YMaxX: _ 0,5625 0,00625 _ 0,112325 0,435 0,5225 
gebnis aus 25/3 ist 8, Rest 1. Einige Hinweise noch zur Bedie- 


<colour> erhält also den Wert 2. Der 
Prozedur <pen> wird der Wert von 
<colour> übergeben und die Proze- 
dur <plot> zeichnet einen Punkt an 
die momentane Position. Dazu müs- 
sen die Werte von <spalte> und 
<zeile> verdoppelt werden, da sich 
beim CPC ja nur »halbe Pixel« ansteu- 
ern lassen. Dieser Vorgang wird 
solange wiederholt, bis die 
<spalte>-Schleife ihr Ende erreicht 
hat und alle X-Werte in dieser Spalte 
berechnet sind. 

Dann wird der festen komplexen 
Zahl <cx> wieder der Anfangspunkt 
auf der x-Achse (XMIN) zugewiesen. 
<cy> wird um einen weiteren Punkt 
auf der y-Achse erhöht, das Ganze 
beginnt nun wieder von neuem. Ist die 
<zeile>-Schleife ebenfalls beendet, 
wird die Prozedur »scnsave« aufgeru- 
fen und der gesamte Bildschirminhalt 
als Binärdatei auf Diskette gespei- 
chert. Die benötigte Rechenzeit wird 
auf dem Bildschirm ausgegeben. 


nung des Programms: Die Farben für 
die Mandelbrotausschnitte wurden so 
gewählt, daß bei völlig herabgeregel- 
ter Helligkeit des Monitors der Bild- 
schirm fast schwarz ist und damit ein 
Einbrennen von Punkten in den Bild- 
schirm verhindert wird. Bei der Ein- 
gabe des Dateinamens am Pro- 
grammanfang ist folgendes zu beach- 
ten: Eingabefehler sind nicht mit der 
<DEL>-Taste zu löschen. Ist der 
Dateiname kürzer als acht Buchsta- 
ben, ist er mit Leerzeichen aufzufül- 
len. 

Das Seitenverhältnis von X-Intervall 
zu Y-Intervall der Koordinaten sollte 
1,6 zu 1 betragen, da der Mandelbrot- 
mengenausschnitt sonst verzerrt 
wird. Im Beispiel: XMIN=-3, XMAX=1 
und YMIN=-1,25. Das x-Intervall ist 
vier Einheiten groß. Das y-Intervall 
muß nun 4/1,6=2,5 Einheiten groß wer- 
den, damit der Ausschnitt nicht ver- 
zerrt erscheint. Die Koordinaten 
YMAX=YMIN+2,5=1,25 schließen 


das Mandelbrot ein. Eine <iterations- 
grenze> von 50 genügt bereits, um 
das Apfelmännchen sauber auf dem 
Bildschirm zu zeigen. Je kleiner Sie 
die Ausschnitte aus der Mandelbrot- 
menge wählen, um so größer muß die 
Iterationsgrenze gewählt werden. 
Zum Abschluß finden Sie in der 
Tabelle einige interessante Plätze der 
Mandelbrotmenge. So bleibt uns nur 
noch, Ihnen viel Spaß im Reich des 
mathematishen Chaos zu wünschen. 

(Bernd Baldin/hf/ma/ja) 


{$L-] 

PROGRAM Mandelbrotmenge; 

TYPE Filename=ARRAY[1..12] 
OF Char; 

VAR 


Iterationen, 
Iterationsgrenze, 
Zeile, 

Spalte, 

Sec, Min, Hour, 
Colour 

xmin, xmax, 
ymin, ymax, 
xwert, ywert, 


: Integer; 


xquad, yquad, 
dx, dy, 


Listing 1. (Fortsetzung auf Seite 144) 


Behr: 


I Tür ERE aaalana 
für CPC 6128 


164/664 : DI 9 


SPEEDY 100-80 100 Zeichen gro 5 


In Bis zu 142 Zeichen pro aval 


für PC 1S12 m 4 


(Citizen LSP-120) 
[m AK Puffer seri 
ldoppelt breit, doppel 


oockerkifel 


für CPC 464/664 DM 
für CPC 6128 DM 
für PC 1512 DM 


Universeller EPROM-Prog rammer 4003] 
für us = iu 4 664 Y 6128 


EPROM-Karte 2 en für alle CPC 


kbar mit 2-64 KByte EPRON-K: 


DM 15,- / auf 5.25" Diskette 


preisgünstige Matrix-Drucker 


‚nde = FX8O kompatibel 8 Near Leiter Qualily =) 
und Traktorantrieb = 


= Bis zu 132 Zei 
sches und englisches Handbuch 


9, 6835 


obige Geräte komplett 


Drucker DMP 2000 
Drucker DMP 4000 (A3) 


IHR PARTNER FÜR SCHNEIDER: 


Schneider CPC 464 64 kB 
Schneider Monitor GT 65 grün 


Schneider CPC 6128 mit GT 65 
Schnelder CPC 6128 mit CTM 644 Color 
Floppy DDI-1 als 1. od. 2. Laufwerk 


Drucker DMP 3000 (NLQ) 


‚Joyce komplett mit Drucker, 1 Diskstation, 256 kB DM 1598,- 
Drucker NEC PS mit passendem Kabel zu CPC/PC 
(deutsch, 1 Jahr Garantie!) DM 1398,- 
Schneider PC 1512 MM/SD mit HC 1512 Grafikkit 
ie für CPC 464/664 DM 236 fertig eingebaut (Aufl. 720x348) DM 1798,- 
he für CPC 6128 DM 26: PC 1512 MM/DD ohne Kit DM 1998,- 
wul 5,257 Diskalte. :; DNS Vortex Harddisk 20 MB für PC 1512 (Slotkarte + Software) DM 1389,- 
Joysticks ab DM 980 
Diskbox für 50x3” m. Schloß DM 23,90 
Druckerkabel PC/Centron. DM 24,90 
Druckerkabel CPC/Centron. DM 29,90 
Druckerpapier 1000 Blatt endlos 60 9 DM 23,90 
SOFTWARE Cass Disk 
Greytell 2995 4995 
Pulsator 2790 4490 
Howard the Duck 3095 5985 
Elevator Aktion 3490 49890 
Se 4.Spiele Sammlung 1830 
jetrocross 2790 3990 
I für CPC 6128 : DM 119, Express Raider 28.90 42.90 
Multi Database + Toolkit f. Joyce 4730 
Distactions 3 Spile Joyce 5990 


nur DM 739,- 


pro Zeile = 99 Matris| 
nur DM 839,- 


Elektronik Center 
D o BBERTI n Wachterstraße 3, 8170 Bad Tölz, 
INDOUJSTRIE-ELEKTRONIK Tel. (08041) 41565 
Schreiben Sie noch heute! 


(06202) 71417) 


Versand per V-Scheck (versandfreil) oder NN (zuzüglich Porto). 
Bitte Gratisliste anfordern! 
Telefonische Beratung bis 18.30 Uhr täglich. 


Uwe Langheinrich 
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ex, cy : Real; 
File : Filename; 


{$F MANDEL .LIB] 


BEGIN 
Mode(1); 
Ink(3,1,1); Ink(2,3,3); 
Ink(1,13,13) ;Ink(0,0,0); 
Border (0,0); 
Write('Iterationen -) '); 
Read(Iterationsgrenze) ; 
1): 
; 


Write('xmin -)') 
Read(xmin); 
Write('xmax -)'); 
Read(xmax); 
Write('ymin N; 
Read(ymin); 
Write('ymax 1); 
Read(ymax); 


Write( 'Filenane 1"); 
InLine( #06, #08, #21, 00); 
InLine( #40, #CD, #06, #BB); 
InLine( #77, #7E, #CD, #54); 
InLine( #BB, #23, #10, #F4); 
Mode(1); 

Sec:=0; Min:=0; Hour:=0; 

Every(50,1,Clock); 

dx:=(xmax-xmin)/320; 

dy:=(ymax-ynin)/200; 

cx in; 

ey in; 

FOR Zeile:=0 TO 199 DO 


BEGIN 
FOR Spalte:=0 TO 319 DO 
BEGIN 

Iterationen: 


WHILE (Iterationen 
> Iterationsgrenze) 

AND (xquad+yquad > 4) DO 

BEGIN 
ywert:=2xxwertxywert+cy; 
xwert:=xquad-yquad+cx; 
xquad;=Sqr(xwert); 
yquad:=Sqr(ywert); 
Iterationen:=Succ(Iterationen); 

END; 


IF Iterationen=Iterationsgrenze 
THEN ex:=cx+dx 
ELSE 
BEGIN 
eX:=ck+dx; 
Colour:=(Iterationen MOD 3)+1; 
Pen(Colour) ; 
Plot(Spaltex2 , Zeilex2); 


Schsave; 
WriteLn(Hour:2,':',Min:2,':',Sec:2); 
END. 


Listing 1. Ein relativ kurzes Pascal-Programm führt Sie in die fantastische Bilderwelt der »Apfelmännchen« 


PROCEDURE Mode (x : Integer); 
BEGIN 
Write(Chr(4),Chr(x)); 


5 


PROCEDURE Pen (Pen : Integer); 
BEGIN 
RA:=Chr(Pen); 
User( #BBDE); 
END; 


PROCEDURE Ink 
(Inknr,Colour1,Colour2 : Integer); 
BEGIN 
RA:=Chr(Inknr); 
RB:=Chr(Colouri) ; 
RC:=Chr(Colour2) ; 
User( #B032); 
END; 


PROCEDURE Plot (x,y : Integer); 
BEGIN 
RDE 
RHL 
User( #BBEA); 
END; 


PROCEDURE Scnsave; 
BEGIN 


—— 
InLine(#CD, #65, #BC, #21, #00, #40, #11); 
InLine(#FF, #A0, #06, #08, #CD, #8C, #50); 
InLine( #21, #00, #C0, #11, #00, #40, #3E); 
InLine( #02, #CD, #98, #BC, #CD, #8F, #B0); 

END; 


PROCEDURE Border 
(Colouri1,Colour2 : Integer); 
BEGIN 
RB:=Chr(Colour1) ; 
RC:=Chr(Colour2) ; 
User (#BC38); 
END; 


PROCEDURE Clock; 

BEGIN 
Sec:=Suce(Sec); 
IF Sec=60 THEN 
BEGIN 


Sec:=0; 
Min:=Suce (Min); 
IF Min=60 THEN 
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Fehler- 
meldungen 
in Assembler 


Eine Assemblerroutine, in ein Basic-Programm 
eingebunden, beschleunigt den Programm- 
ablauf. Doch was tun, wenn die Routine nicht 
richtig bedient wird? Fehlermeldungen helfen. 


as eingebaute Basic des CPC in allen Ehren, doch 
manchmal kommt man nicht darum herum, Routi- 
nen in Maschinensprache zu programmieren. 

Der Aufruf einer Maschinensprachroutine geschieht 
vom Basic aus bekanntlich mit der Anweisung »CALL«. 
Nach dem CALL-Befehl wird die Adresse angegeben, an 
der die Routine steht und eventuell noch mehrere Parame- 
ter, die das Maschinenprogramm steuern oder von ihm 
bearbeitet werden sollen. 

Bei der Übergabe der Parameter tauchen aber sehr 
leicht Fehler auf, zum Beispiel durch einen falschen Para- 
meter oder durch zu viele oder zu wenige Werte hinter dem 
CALL-Befehl. Wenn die Maschinencode-Routine darauf 
nicht vorbereitet ist, »hängt« sich der Computer oft auf. 
Wenn man als Programmierer aufsolche Umstände geach- 
tet hat, bleibt einem eigentlich nur die Möglichkeit, die Rou- 
tine wieder zu verlassen. Der Computer meldet sich dann 
unverrichteter Dinge zurück, und man hat keinen blassen 
Schimmer, was schiefgelaufen ist. Wie schön wäre es, 
wenn man in dem Fall vom Maschinenprogramm aus eine 
Fehlermeldung produzieren könnte. 

Der einfachste Weg dazu ist der, die eingebaute Maschi- 
nenroutine des Basic-Interpreters zu benutzen. Ein Bei- 
spielprogramm, das nichts anderes macht als einen »Syn- 
tax Error« zu produzieren, sieht folgendermaßen aus: 

iD E82 
18H 
ADR 
OCA9Y4H 

DEFB OFEH 

Der Fehlerroutine im ROM muß der Code des zu melden- 
den Fehlers als Zahl im E-Register (CPC 664 und 6128: A- 
Register) übergeben werden. Die 2 im Programm bedeutet 
also »Syntax Error«, eine 5 stünde für »Improper Argument« 
und eine 22 für »Operand missing«. Sämtliche Fehlermel- 
dungen sind im CPC-Handbuch aufgelistet. 

Mit »RST 18H« veranlaßt man den Computer, eine belie- 
bige Speicherstelle im RAM oder ROM aufzurufen. Dem 
»RST«-Befehl folgt dafür ein Zeiger, der auf die Adresse der 
Routine weist. Im Programmbeispiel ist das der Befehl 
»DEFW ADR«. An der Stelle, auf die der Zeiger weist, steht 
nun zusätzlich nach der Adresse der aufzurufenden Rou- 
tine ein Statusbyte. Dieses Byte bestimmt, ob sich die ent- 
sprechende Adresse im Speicher ROM oder RAM befindet. 
Der Befehl »DEFW CA94H« im Beispielprogramm gibt nun 
die Adresse der Fehlerroutine an (CPC 664: CB58 hex, 
CPC 6128: CB55 hex). Das Statusbyte schaltet in diesem 
Fall das ROM im oberen Speicherbereich zwischen C000 
hex und FFFF hex ein. 

Will man nun eine Maschinenroutine zur Unterstützung 
eines Basic-Programms schreiben, und soll diese Werte 
vom Basic-Programm übernehmen, so muß man sich 
anschauen, welche Hilfsmittel der Basic-Interpreter dazu 
zur Verfügung stellt. Nach Ausführung des CALL-Befehls 


ADR: 


Diner 


steht im Akku (A-Register) die Anzahl der übergebenen 
Parameter. Als erstes muß das Maschinenprogramm über- 
prüfen, ob auch alle Parameter im Basic-Programm ange- 
geben sind. Nehmen wir an, das Maschinenprogramm 
erwartet einen Parameter. Dann müssen die ersten Zeilen 
der Routine so aussehen: 
cP 01 
JP_ _ NZ,ERROR1 

Damit wird die Routine »ERROR1« aufgerufen, wenn 
eine andere Anzahl von Parametern übergeben wurde. 

Als nächstes muß sich die Routine den vom Basic- 
Programm übergebenen Wert holen. Im IX-Register steht 
dazu als Zeiger eine Adresse. Da Werte in einem Bereich 
zwischen -32768 und +32767 bei vorzeichenbehafteten 
Zahlen oder zwischen 0 und 65535 bei vorzeichenlosen 
Zahlen übergeben werden dürfen, besteht der Wert aus 
zwei Byte. Beim Z80 steht das niederwertige Byte einer 
16-Bit Zahl immer vor dem höherwertigen Byte, so daß die 
Adresse im IX-Register auf das Low-Byte des Werts zeigt, 

Nehmen wir nun an, daß der zu übergebende Wert zwi- 
schen 0 und 26 liegen soll. Der folgende Programmteil muß 
nun also die Einhaltung dieser Grenzen kontrollieren. Pro- 
grammtechnisch ist es einfacher, erst das High-Byte zu 
testen, denn wenn dieses größer als 0 ist, war der überge- 
bene Wert größer als 255. Dann muß zum IX-Register eine 
1 hinzugezählt werden, damit es auf das High-Byte zeigt. 
ID A,(IX+01) 
cP 00 
JP__NZ,ERROR2 

Liegt der übergebene Wert also über 255, wird die Rou- 
tine »ERROR2« aufgerufen. Da hier ein anderer Fehler als 
im vorigen Programmteil abgefangen wird, wird auch eine 
andere Fehlerroutine benutzt, die eine andere Fehlermel- 
dung ausgibt. 

Als nächstes wird das Low-Byte des übergebenen Wer- 
tes auf die Grenzen zwischen 0 und 26 getestet. 
ID A, (IX+00) 


cp 00 
JP C,ERROR2 
cp 27 


JP__NC,ERROR2 
Damit ist sichergestellt, daß der Wert zwischen 0 und 26 
liegt. Um das Programm nicht nutzlos im Raum stehen zu 
lassen, soll es die Bildschirmrandfarbe umschalten. 
DD BA 
ID C,A 
CALL BC38H 
RET 


Die Betriebssystemroutine bei der Speicheradresse 
BC38 hex schaltet die Randfarbe um. Im B- und C-Register 
stehen dabei die beiden Farben, zwischen denen der Com- 
puter hin- und herwechseln soll. Wenn der Rand nicht blin- 
ken soll, müssen also beide Register den gleichen Wert 
enthalten. Am Schluß des Programms stehen die beiden 
Fehlerroutinen. 


ERROR1: LD E,2 
JP ERROR3 

ERROR2: LD E,5 

ERROR3: RST 18H 
DEFW ADR 

ADR: DEFW OCA94H 
DEFB OFEH 
RET 


Damit haben Sie ein komplettes kleines Demonstrations- 
programm, das die Randfarbe umschaltet und darauf ach- 
tet, daß beim CALL-Befehl ein Wert übergeben wird, der im 
Wertebereich zwischen 0 und 26 liegt. Die so erzeugten 
Fehlermeldungen unterscheiden sich nicht von denen des 
Basic-Interpreters. 


(Jörg Braun/hf) 
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Joystick-Ä 


Spiele, die den Einsatz von zwei Joysticks gleich- 
zeitig erlauben, funktionieren manchmal nicht 
richtig, wenn Sie nicht spezielle Schneider- 
Joysticks, sondern die eines Fremdherstellers 
beim Spielen verwenden. 


Spiele wie »Gauntlet«, »Top Gun« oder »Ikari War- 
riors« im 2-Spieler-Modus nicht korrekt funktionie- 
ren, wenn Sie mit zwei Joysticks gleichzeitig spielen? 

Dies liegt nicht etwa am Spielprogramm, sondern an der 
eigenwilligen Art der Joystickabfrage, die der Schneider 
CPC benutzt. Die Joysticks von Schneider sind für die 
Abfragemethode des CPC ausgerüstet, doch bei den 
wenigsten Joysticks der anderen Hersteller ist dies der Fall, 
so daß deren Geräte im oben genannten Fall Fehlfunktio- 
nen liefern. 

Jedoch läßt sich auch der Joystick eines Fremdherstel- 
lers leicht zu einem »Schneider-kompatiblen« Joystick 
umrüsten. Sie müssen lediglich in die fünf Leitungen, die 
zu den Joystick-Schaltern führen, je eine Standarddiode 
vom Typ {N 4148 einlöten. Alle Dioden müssen dabei in 
Richtung des Joystickschalters gepolt sein (Bild). 


u aben Sie sich auch schon darüber geärgert, daß 


Auf diese Art Joystick |] 
werden die 
fünf Dioden A 
in den Joystick S 


eingebaut 


IN 


A 
I 
A 
SI 
A 
SI 


Für den Einbau der Dioden finden Sie sicherlich im 
Gehäuse des Joysticks genügend Platz. Die Dioden selbst 
sind überall im Fachhandel erhältlich (der Hobbybastler hat 
davon ohnehin einen kleinen Vorrat) und kosten zusammen 
unter einer Mark, so daß für Bastler der Umbau dem Kauf 
eines neuen Joysticks allemal vorzuziehen ist. 

(Robert Grau/ma) 


Verbessertes PIP 


Das Programm »PIP« unter CP/M verhält sich 
höchst unfreundlich, wenn man beim Kopieren 
die Diskette wechselt. Man muß das Programm 
dann von neuem starten. Eine kleine Änderung 
löst dieses Problem. 


icher ist es Ihnen schon passiert, daß Sie unter CP/M 

mit »PIP« Dateien kopieren wollten und dabei zwi- 

schendurch eine neue Diskette ins Laufwerk einleg- 
ten, ohne zur Initialisierung <CTRL+C> gedrückt zu 
haben. CP/M meldet sich dann unerfreulicherweise mit 
einem »BDOS ERROR R/O«. 

Das Programm PIP ist aber ganz leicht so abzuändern, 
daß es selber merkt, wenn eine neue Diskette eingelegt 
wurde. Dazu laden Sie aus dem CP/M das Programm DDT. 
Sie geben also ein: 

DDT PIP.COM (ENTER) 
Der Debugger meldet sich mit: 


DDT VER 2.2 
NEXT PC 
1E00 0100 


Geben Sie nun »S0100 <ENTER>« ein. Auf dem Bild- 
schirm erscheint: 
0100 C3 

Drücken Sie einmal <ENTER>, worauf auf dem Bild- 
schirm eine weitere Zeile erscheint. Geben Sie dann »B2 
<ENTER>«, »ID <ENTER>« und ». <ENTER>« ein. 
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Der Bildschirm muß anschließend so aussehen: 
0100 03 
0101 CE B2 
0102 04 ıD 
0103 9 . 
Als nächstes geben Sie »SIDB2 <ENTER>« ein, 
gefolgt von diesen Werten: 


1ıDB2 00 OE (ENTER) 
1DB3 00 OD (ENTER) 
1DB4 00 CD (ENTER) 
1ıDB5 00 05 (ENTER) 
1DB6G 00 (ENTER) 

1DB7? 00 C3 (ENTER) 
ıDBB 00 CE (ENTER) 
ıDB9 00 04 (ENTER) 
ıDBA 00 (ENTER) 


Sie haben jetzt das Programm PIP abgeändert. Um dies 
auf Diskette zu speichern, gehen Sie mit <CTRL+C> 
zurück ins CP/M und geben »SAVE 29 PPIPCOM« ein. Auf 
Ihrer Diskette befindet sich jetzt die abgeänderte Version 
des PIP, die Sie mit »PPIP« aufrufen. 

Für den Assembler-Kundigen die ganze Routine in 
Z80-Quellcode: 


0100 JP 1DB2 
ıDB2 ID cC,oD 
1DB4 CALL 0005 
1DB7 JP O4CE 


(Werner Bandorf/hf) 


PENSE 


PRINT USING de Luxe 


In fast allen Basic-Dialekten existiert zwar der 
PRINT-USING-Befehl, doch wird er meist sehr 
sparsam eingesetzt. Gerade beim Zusammen- 
stellen langer Listen ist dieser Befehl jedoch sehr 
praktisch, weil er Texte und Zahlen auf dem Bild- 
schirm und Drucker exakt ausrichtet. 


Fähigkeit, 80 und mehr Zeichen lange Format- 
masken zu erzeugen, die sich mit Variablenwerten 
füllen lassen, Ein Beispiel verdeutlicht dies: 

Essoll eine Verkaufsliste formatiert ausgegeben werden. 
Weitere Bedingung ist, daß bei Dezimalstellen der in der 
amerikanischen Schreibweise übliche Punkt durch das 
Komma ersetzt wird. 


10 MODE 2 

20 stueck=6:einheit$="Pfd”:1fdnr=133 

30 Bez$= "Kaeseloecher”:ep=2.56 

40 komma$=string$(3,8)+”, "+string$(2,9) 

50 zeile$=" --- Nr. HR = HREN \\ 
+SPACES(20)+”\ EP ## #.# # "+komma$+” DM GP 
###.# # "+kommas+” DM ---" 

60 PRINT USING zeile$;1lfdnr,stueck,einheit$,bez$, 
ep,stueckxep 


D: PRINT-USING-Befehl bietet dem Anwender die 


Wenn Sie sich das Ergebnis anschauen, sehen Sie, daß 
der Ausdruck korrekt mit einem Komma bei Dezimalbrü- 
chen erfolgt. 

Esistauch möglich, die Steuerzeichen von O bis31 sowie 
TAB-Befehle im Format unterzubringen. Dadurch kann 
man einzelne Zeilenteile andersfarbig hervorheben, den 
Cursor an verschiedene Bildschirmpositionen bewegen, 
den Klingelton integrieren, inverse Zeichen ausgeben und 
vieles mehr. 

Stehen in komplett gezeichneten Kästchen Ihre Punkte- 
und sonstige Anzeigen, dann lassen sich mit einem einzi- 
gen Formatstring, der die entsprechenden Cursorsteuer- 
zeichen enthält, sämtliche Werte auf einen Schlag ausge- 
ben. 

Falls Sie noch Bedarf für neue Lotto-Zahlen haben, hier 
ein kleiner Einzeiler, der Ihnen über den PRINT-USING- 
Befehl hübsch formatiert zehn Zufallszahlenreihen präsen- 
tiert. x 


10 CLS:PEN 3:PRINT”LOTTO 6 aus 49”:PRINT STRING$ 
(14,218):PEN 1:DIM 2(9,49):FOR a=0 TO 9:FOR b= 
1 TO 6:2=0:WHILEz(a,2)=2:2=INT(RNDx49)+1:WEND: 
2(a,2)=2:LOCATE 4xa+2,bx2+4:PRINT USING” # #"; 
2:NEXT b,a:PRINT:PEN 2:PRINT:PRINTWeiternit 
Taste”:CALL &BB18:RUN 


(Dietmar Schulze/ma) 


Vertauschte Zeichensätze 
unter CP/M 


Ein Programm wie »Language« ist überflüssig. 
Zeichensätze lassen sich bei CP/M Plus auch mit 
einfachen Steuersequenzen von CCP aus über 
die Tastatur tauschen. 


3-Zoll-Format favorisiert. Da nicht viele Hersteller die- 

ses Format anbieten, können die wenigen die Preise 
diktieren, und man ist gezwungen, viel Geld für seine Dis- 
ketten auszugeben. Es sei denn, man schafft es, unwich- 
tige Dateien auszusortieren. Deshalb kommt jeder Tip 
recht, welche Dateien man von der Diskette verbannen 
oder durch gleichwertige kürzere ersetzen könnte. 

Unter CP/M Plus gibt es ein Programm, mit dem die ver- 
schiedenen nationalen Zeichensätze umgeschaltet wer- 
den. Dieses Programm »Language« belegt einigen Platz 
auf einer Diskette, der sich besser für andere Zwecke nut- 
zen ließe. 

Nur leider braucht man das Programm manchmal, so 
daß es normalerweise nicht einfach von der Diskette 
gelöscht werden darf. Als Beispiel seien hier Textverarbei- 
tungen genannt, bei denen man mit dem deutschen Zei- 
chensatz arbeitet, unter CP/M jedoch wieder den amerika- 
nischen benötigt. Es gibt allerdings eine direkt einzuge- 
bende Steuersequenz, mit der sich die Zeichensätze eben- 


L:# wird von Schneider für die Diskettenstation das 


sogut umschalten lassen. Damit 
überflüssig. 

Um auf den deutschen Zeichensatz umzuschalten (mit 
Umlauten), war bisher folgende Eingabe notwendig: 
LANGUAGE 2 

Bei der neuen Methode gibt man unter CP/M einfach 
<CTRL+[> gefolgt von einer <2> und der Zahl für den 
Zeichensatz ein. Die Zahl ist die gleiche wie bei der 
Umschaltung mit Language. Eine »Submit«-Datei, die vom 
amerikanischen auf den deutschen Zeichensatz um- 
schaltet, Wordstar aufruft und nach Rückkehr ins CP/M 
wieder auf den amerikanischen Zeichensatz zurückschal- 
tet, sieht folgendermaßen aus: 
<CIRL+[> 22 ;deutsche Umlaute 
Ws ;Aufruf von Wordstar 
<CTRL+[L> 20 ;ASCII 

Mit diesem Trick benötigen Sie das Programm Language 
nicht mehr und haben den Diskettenplatz für andere 
Zwecke frei. 

Es lassen sich noch weitere Funktionen mit diesem Trick 
ausführen, wie zum Beispiel einen anderen Bildschirmmo- 
dus wählen. Die Befehlssequenzen dafür sind alle im 
CPC-6128-Handbuch zusammengefaßt. Allgemein lassen 
sich alle »Escapes-Sequenzen ausführen, in denen keine 
kleinen Buchstaben vorkommen, denn CP/M wandelt 
kleine Buchstaben automatisch in Großbuchstaben um. 

(Michael Kruse/hf) 
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Druckeranschluß 
zweckenifremdet 


Am Centronics- BE Bild 2 5V (intern od 
A il . + intern oder 
Port Ihres CPC So einfach , Eu nem Mit dieser Schaltung 0 extern) 
läßt sich nicht läßt sich eine extern) lassen sich auch 
nur ein Drucker | Leuchtdiode Sn größere Relais IN 
n über den 2 ansteuern 
anschließen. Dre 
Für Bastler schluß \ 
ergibt sich hier |schalten Im 
die Gelegenheit, z.B. DO 
mit wenig Auf- |z8.no 
wand Schal- 
tungen anzu- GND 
steuern, END? 


»nur« eine Kleinigkeit am Computer ausprobieren. 

Doch weil die Ausgangssignale des CPC am Erweite- 
rungsanschluß nur teilweise gepuffert sind, muß man erst 
eine Signalpufferung aus Leitungstreibern (Verstärker) und 
Zwischenspeichern aufbauen, um die Signale des Compu- 
ters überhaupt verwerten zu können. 

Für die Ansteuerung einer Schaltung durch Software ist 
dann noch die Entwicklung einer Dekodierschaltung erfor- 
derlich, die nur auf eine bestimmte Portadresse reagiert. 
Wie Sie sehen, setzen deshalb selbst kleine Experimente 
sehr viel Schaltungsaufwand voraus. 

Es gibt jedoch eine Lösung, die sowohl hardwaremäßig 
als auch softwaremäßig wesentlich weniger Aufwand erfor- 
dert, Sie müssen dazu nur den Druckeranschluß zweckent- 
fremden. 

Der Druckeranschluß ist in der Lage, 8 Bit (die Datenbits 
DO bis D6 und das STROBE-Signal) parallel auszugeben. 
Ein Puffern und Zwischenspeichern dieser Signale ist nicht 
erforderlich, weil dies bereits intern von dem 8-Bit-Register 
7418373 besorgt wird. 

Auch die Ansteuerung per Software ist denkbar einfach. 
Das 8-Bit-Register, das seinen Inhalt auf den Druckeran- 
schluß legt, läßt sich über alle 16-Bit-Adressen, die mit dem 
Byte EF (hex) beginnen, programmieren. 

Der Basic-Befehl 


3 eder Bastler kennt das Problem: Er möchte eigentlich 


OUT GEFFF,&X11111111 

setzt beispielsweise die Datenbits DO bis D6 auf 1 und das 
E-Signal auf 0, weil dieses von der internen Elektro- 

nik des CPC zusätzlich invertiert wird. 

In Maschinensprache läßt sich mit dem OUT-Befehl in 
der Regel nur eine 8-Bit-Portadresse übergeben. Wenn Sie 
jedoch den Befehl OUT (C), Register verwenden, wird zu 
Jedem OUT-Befehl gleichzeitig der Inhalt des B-Registers 
auf die Adreßleitungen AB bis A15 kopiert, so daß eine 
16-Bit-Portadresse entsteht. 

So lassen sich beispielsweise mit 
LD A,HOFF 
ID B,HOEF 
OUT (C),A 
wie im ersten Beispiel alle Datenbits auf 1 und das 
STROBE-Bit auf 0 setzen, und der Wert 80 (hex) in A legt 
alle acht Bit auf 0. 

Damit Sie auch gleich etwas zum Basteln und Ausprobie- 
ren haben, zeigt Bild 1, wieman eine Leuchtdiode über den 
Druckeranschluß schaltet, und Bild 2, wie sich ein Relais 
ansteuern läßt. 

Die Pinbelegung des Druckeranschlusses finden Sie im 
Handbuch zum CPC. Für den Anschluß Ihrer Schaltungen 
empfiehlt es sich, am Druckeranschluß einen Platinen- 
stecker aufzuschieben und an dessen Anschlüsse die Lei- 
tungen zu löten, die Sie für Ihre Zwecke benötigen. (ma) 


Drucker im Streik 


Wenn der Drucker streikt, obwohl das Gerät 
betriebsbereit ist, der Computer funktioniert und 
das Druckerkabel richtig steckt, empfiehlt es 
sich, den DIP-Schalter SLCT IN zu überprüfen. 


tellen Sie sich vor, Ihr Computer sendet Daten an den 
Drucker, der Drucker ist eingeschaltet und befindet 
sich in der Betriebsart ON LINE, das Druckerkabel ist 
ordnungsgemäß befestigt, Druckpapier ist eingespannt - 
und Ihr Drucker arbeitet trotzdem nicht! In diesem Fallkann 
es sein, daß der DIP-Schalter, der für das logische Signal 
SLCT IN zuständig ist, auf der Stellung ON steht. Dadurch 
läßt sich der Drucker nur mit einem aktiven SELECT-Signal 
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aktivieren. Weil der Schneider CPC dieses Signal jedoch 
nie erzeugt, ist der Drucker folglich gesperrt. 

Ein Umstellendies entsprechenden DIP-Schalters in die 
Position OFF erweckt den Drucker wieder zum Leben. Zum 
Umschalten des DIP-Schalters ist es jedoch (für die 
Druckerelektronik) gesünder, wenn Sie das Gerät vorher 
ausschalten. 

Der angesprochene DIP-Schalter ist übrigens auch eine 
hilfreiche Maßnahme, um unbefugte Personen von der 
Benutzung Ihres Druckers abzuhalten. Einfach den DIP- 
Schalter auf ON stellen, und der kleine Bruder kann nicht 
mehr testen, wie lange es dauert, bis der Drucker tausend 
Blatt Endlospapier mit dem Satz »Mein großer Bruder ist 
doof!« bedruckt hat. (Stefan vom Bruch/ma) 
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18 KByte mehr 


Es ist eine Binsenweisheit, daß man nie genug 
Speicherplatz auf einer Diskette haben kann. Wir 
zeigen Ihnen, wie Sie unter CP/M Plus auf allen 
3-Zoll-Disketten auch die Diskettenspuren 40 und 
41 nutzen können und dadurch pro Seite 9 KByte 
mehr Speicherplatz erhalten. 
N Ihnen im Systemformat 180 KByte und im Data- 
Only-Format 189 KByte Speicherkapazität pro 
3-Zoll-Diskettenseite zur Verfügung stehen. Dieser beacht- 
liche Gewinn an Speicherplatz läßt sich erreichen, indem 
CPI/M Plus nicht - wie sonst üblich - die Spuren 0 bis 39, 
sondern die Spuren 0 bis 41, also 2 Spuren zusätzlich für 
die Datenaufzeichnung benutzt. 

Dadurch, daß auch Amsdos und CP/M 2.2 die Spuren 40 
und 41 anstandslos lesen, steht Ihnen auch unter diesen 
beiden Betriebssystemen der neue Speicherplatz auf der 
Diskette zur Verfügung. 

Sie müssen zwei kleine Änderungen an CP/M Plus vor- 
nehmen, damit die Verarbeitung der zwei neuen Spuren 
auch dauerhaft in das Betriebssystem eingebunden wird. 
Im folgenden beschreiben wir detailliert, wie Sie dazu vor- 
gehen müssen, so daß unsere Anleitung auch CP/M- 
Neulingen keine Schwierigkeiten bereitet. Trotzdem neh- 
men Sie alle beschriebenen Maßnahmen nur an Dateien 


ur ein kleiner Patch für CP/M Plus ist nötig, damit 


vor, von denen Sie auch garantiert Sicherheitskopien 
besitzen! 

1. Starten Sie CP/M Plus. 

2. Legen Sie Ihre erste System-Diskette mit der Seite 2 
nach oben in das Laufwerk. 

3. Laden Sie die Datei »SID.COM« durch Eingabe von 
»SID« und Drücken der ENTER-Taste. 

4. Legen Sie eine Diskette 
»C10OCPM3.EMS« in das Laufwerk. 

5. Laden Sie die CP/M-Version mit » #RC10CPM3.EMS« 
gefolgt von <ENTER>. 

6. Geben Sie» #S0DDO«gefolgtvon <ENTER> einund 
warten Sie, bis »0ODDO AA« erscheint. 

7. Tippen Sie nun »B3« und <ENTER> sowie <.> und 
<ENTER> ein. 

8. Darauf geben Sie »S #0DEA« gefolgt von <ENTER> 
ein und warten, bis »0ODEA B3« erscheint. 

9. Jetzttippen Sie»BC«und <ENTER> sowie <.> und 
<ENTER> ein. 

10. Zuletzt müssen Sie die gepatchte CP/M-Version mit 
»#WC10CPM3.EMS« speichern. 

Damit Sie auch die Spuren 40 und 41 beschreiben kön- 
nen, müssen diese erst einmal formatiert werden. Dazu 
sind zwei kleine Änderungen im Programm »DISCKIT« 
erforderlich. 

1. Legen Sie eine Diskette mit »DISCKIT3.COM« in das 
Laufwerk. 


mit der Datei 


SUPERCOPY 


Das Disketten-Koplerprogramm der Super- 
ative für alle CPCs und Joyce PCW 85121256 
Mit dem absoluten Servicehammer, 
der für höchste Qualität spricht! 

Sollte SUPERCOPY einmal etwas 
nicht schaffen: 

Senden Sie die Originaldiskette des Pro- 
gramms und die SUPERCOPY-Disk an uns, 
dann erhalten Sie kostenlos eine neue 
Version, die auch diesen Kopierschutz erkennt. 
Sicherheitskopie von SUPERCOPY möglich. 
Sehr bedienungsfreundlich und schnell 
SUPERCOPY erstellt von 99,9% der auf dem 
[Markt befindl. Software ein Sicherheitsduplikat. 


TEAC 


MADE IN JAPAN BY FANATICS 


G5E-CPC 448, 


5'/4”-Floppylaufwerk 

Seite 1/2 umschaltbar 
= 360 kB Kapazität 
Für CPC 664/6128 


(Bitte bei der Bestellung 
angeben!) 


Disk 


CHOGUE-SOFT 
2 Aichn 
u. 363652 


8031 BIBURG - KIRCHSTR. 3 
0811-8797 


Copydata GmbH 
TEAC-Diskettenlaufwerke 


slimline - 2x80 Tracks - 1 MB: FD 35 FN 239,- FD 55 FV 289,- 
Passende Floppygehäuse: 3%" 265-  5!4"45- Floppynatzteil 69,- 


‚Anschlußfertig für Schneider CPC - 31a”: DM 449,- 
830 KB formatierte Kapazität - 
5%”: DM 499,- 


inklusive DiskPara und MsCopy 
DiskPara DM 79,- 


‚Auf beliebigen Zweitlaufwerken steht eine Kapazität von 830 KB (2x80 Ti) bzw. 
410 KB (2x40 Tr.) zur Verfügung. Lesen, Schreiben und Formatieren von fast 
allen CP/M-Diskettenformaten. Mit MsCopy ist auch das Lesen und Schreiben 
von MS-DOS-Disketten möglich (Aufpreis DM 20,-). 

Neu: Jetzt auch kompatibel zu Vortex- und DK‘tronics Speicherkarten. 


et 


Siehe auch Tests in Happy Computer 4/87, CPC Magazin 4/87, PC International 
6/87, c't 5/8 und Schneider Aktiv 2/87. 


2x80 Tracks - problemlı 3%” (r20KB) 349,— 
JOYCE Arschlis 10406 kompatbei 314” DiM.x0L mann 
FSE - Frank Strauß Elektronik - Tel. (0631) 69371 
Weberstraße 28 - 6750 Kaiserslautern 


DER NEUE KATALOG IST DA! 


Jede Menge Angebote für alle 
führenden Computertypen. 
Ausführliche Informationen zu 
vielen aktuellen Programmen. 
Reichlich Soft- und Hardware für: 

e Schneider CPC 

e Schneider Joyce 
e Schneider PC 1512 
e ATARIST 


KOSTENPUNKT: DM 2,- 


(Werden beider ersten Bestellung verrechnet) 
Ausschneiden und in Kuvert stecken. Absender nicht vergessen! 


Ja, senden Sie mir umgehend Ihren Katalog 


Meine Anschrift: 


Mein Computer: 
Zahlungsweise: O Bar O Scheck (DM 2,50) O Briefm. 


WALDECK-SOFTWARE 
Tulpenstraße 30 
2870 Delmenhorst 
Telefon 04221/16464 
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2. Laden Sie 
» #RDISCKIT3.COM«. 

3. Geben Sie »#S09B3« gefolgt von <ENTER> einund 
warten Sie, bis »09B3 27« erscheint. 

4. Tippen Sie »29« und <ENTER> sowie <.> und 
<ENTER> ein. 

5. Wählen Sie nun »S#0A13« gefolgt von <ENTER> 
und warten Sie, bis »0A13 27« erscheint. 

6. Jetzt tippen Sie wieder »29« und <ENTER> sowie 
<.> und <ENTER> ein. 

7. Mit» #WDISCKIT3.COM« speichern Sie die neue Ver- 
sion von DISCKIT ab. 

Die neue DISCKIT-Version führt fortan die Formatierung 
bis Spur 41 aus. 

Lösen Sie probeweise mit <CTRL+SHIFT+ESC> 
einen Reset ‘aus, und starten Sie CP/M Plus erneut. Wenn 
Sie sich jetzt mit dem Befehl SHOW die Laufwerks- 
Parameter ansehen, muß jede Diskette 9 KByte mehr an 
Daten aufnehmen können. (Michael Kruse/ma) 


Stopp für 
»Notfälle« 


Es gibt im Leben eines Computerbesitzers Situa- 
tionen, in denen er sich nichts sehnlicher als 
einen Stopschalter für sein Gerät wünscht, um 
ein Programm wegen einer Unterbrechung vor- 
übergehend anhalten zu können. 


S: Sie sich vor, Sie spielen ein Arcade-Spiel und 


DISCKIT unter SID durch 


es klingelt an der Tür, oder Sie möchten ein Bild- 

schirmfoto von Ihrem neuen Punkterekord machen, 
und das Spiel hat keine Pausenfunktion. In beiden Fällen 
kommt es zu einer mittelschweren Katastrophe, weil Sie 
den Computer nicht anhalten können. 

Es gibt jedoch eine simple Methode, die in diesen Situa- 
tionen Abhilfe schafft. Sie müssen lediglich am Erweite- 
rungsanschluß des CPC Pin 39 (READY) mit Pin 49 (GND) 
über einen Schalter vom Typ »ein/aus« verbinden. 

Wenn der Schalter offen ist, funktioniert Ihr CPC wie 
gewöhnlich, doch wenn Sie den Schalter schließen, legt er 
das READY-Signal, das mit dem WAIT-Eingang des 
Z80-Prozessors verbunden ist, auf Masse. Dadurch wartet 
der Prozessor so lange mit der Ausführung des nächsten 
Befehls, bis das Signal wieder von Masse getrennt bezie- 
hungsweise der Schalter geöffnet wird. 

Da im Schneider CPC das Auffrischen (Refresh) der 
dynamischen Speicherbausteine nicht der Prozessor, son- 
dern das Gate Array vornimmt, kann der WAIT-Zyklus belie- 
big lang ausgedehnt werden, ohne den Inhalt des Arbeits- 
speichers zu löschen. Somit hat der Schalter die Funktion 
eines Stop-Schalters, der ein Programm auf dem CPC 
jederzeit für einen beliebigen Zeitraum anhalten kann. 

Für den Einbau des Stop-Schalters müssen Sie lediglich 
an Pin 39 und an Pin 49 des Erweiterungsanschlusses 
einen Draht löten und die beiden Drähte über den Schalter 
miteinander verbinden. Achten Sie darauf, daß Sie die bei- 
den Drähte so weit vom Platinenrand entfernt auflöten, daß 
sich auch noch ein Stecker aufschieben läßt. Gehen Sie 
bitte auch sparsam mit dem Lötzinn um, damit es nicht zu 
Kurzschlüssen zwischen nebeneinanderliegenden Kon- 
takten kommt. (Boris Lehmann/ma) 
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Conitrol- 
Codes unter 
Kontrolle 


Wer ein Listing, das Control-Codes als Steuerzei- 
chen enthält, ausdrucken möchte, bekommt 
Schwierigkeiten mit dem Druckformat, weil der 
Drucker die Zeichen zum Teil falsch interpretiert. 


m auch Basic-Programme, die aus Control-Codes 

bestehende Steuerzeichen enthalten, einwandfrei 

auszudrucken, ist ein kleiner Trick erforderlich. Das 
Programm »Ctrllist« durchsucht ein Listing, das zuvor mit 
»SAVE”@” ,A« als ASCII-Datei gespeichert wurde, Zei- 
chen für Zeichen nach Control-Codes. 

Ist ein Control-Code gefunden, so wird der Buchstabe 
ermittelt, der zusammen mit der CTRL-Taste gedrückt wer- 
den muß, um den Control-Code zu erzeugen. Dieser Buch- 
stabe wird nun anstelle des Control-Codes ausgedruckt. 

Damit sich der Buchstabe jedoch von einem herkömm- 
lichen Buchstaben unterscheidet, erscheint er auf dem 
Ausdruck unterstrichen. Das heißt, beim Eintippen eines 
auf diese Weise erzeugten Listings ist bei jedem unterstri- 
chenen Buchstaben gleichzeitig die CTRL-Taste zu 
drücken. 

Die im Listing verwendeten Steuerzeichen gelten für 
Epson-kompatible Drucker wie Star NG-10 und NL-10, 
DMP-2000 und DMP-3000 etc. Als Besitzer des Schneider- 
Druckers NLQ 401 müssen Sie statt der Zeichenfolge 
"[CTRL+[} R’CHRS(O) 
die Kombination 
"[CIRL+L} 7” 
eingeben, um den amerikanischen Zeichensatz auszu- 
wählen. 

Drucker ohne Unterstreichungsfunktion können das Pro- 
gramm verarbeiten, indem sie für die Ausgabe der Control- 
Codes auf Breitschrift geschaltet werden. Für den Sei- 
kosha GP-100A gelten beispielsweise folgende Werte: 
a$(0)= ”[CTRL+O) für Normalschrift und 
a$(1)= ” |CTRL+N] für Breitschrift. 

Anstelle der geschweiften Klammern mit Inhalt, müssen 
Sie an dieser Stelle im Listing die beiden angegebenen 
Tasten gleichzeitig drücken. (Dieter Taube/ma) 


1 WIDTH 255: PRINT#8,"{CTRL+LIR"CHRE (BO) sa 
$(D)="CCTRL+LI-"+CHRE(D) Las 1L)="CCTRL+LY 
-{CTRL+A3":OPENIN"@":WHILE NOT EOF:LINE 
INPUT#9,z%:FOR z=1 TO LEN(z$) ıx=ASC (MID$ 
(z$,2))2f=-(x<32) : PRINTRB,as (FI CHRS (x+ (6 
4+47% (x=31))#Ff)ascD) 5; :NEXT:PRINTKB:WEND: 
CLOSEIN 


Listing. Mit diesem Programm gehören Probleme, die Sie 
bislang mit Control-Codes hatten, der Vergangenheit an 


Steckbrief 
Programm: EB Crrllist 
Computer: CPC 464/664/6128 
Checksummer:| Explora 
Datenträger: Kassette, Diskette 


Bilder mühelos kopiert 


Da hat der Anwender mit seinem Malprogramm 
nun eine Diskette mit Bild-Dateien gefüllt und 
möchte sie auf eine andere Diskette kopieren. 
Doch wie funktioniert das Kopieren unter Basic, 
ohne den Inhalt einer Bild-Datei zu zerstören? 


er gelegentlich mit einem Malprogramm arbei- 
tet, weiß auseigener Erfahrung, wie schnelleine 
Diskette mit selbstgezeichneten Bildern belegt 
ist. Sobald die erste Arbeitsdiskette voll ist, empfiehltessich, 
für jede Art von Bildern (zum Beispiel Landschaften, 
Comics, Schaltungen und Konstruktionszeichnungen) eine 
eigene Diskette anzulegen, damit man später nicht alle Dis- 
ketten nach einem bestimmten Bild durchsuchen muß. 
Doch wie kopiert man Bilder unter Basic von einer Dis- 
kette auf eine andere? Im Prinzip funktioniert es ganz ein- 
fach, indem man das gewünschte Bild in den Bildschirm- 
speicher (Adresse C000 bis FFFF hex) des CPC lädt und 
von dort auf eine andere Diskette schreibt. Doch muß man 
beachten, daß das zu kopierende Bild nicht durch 
Betriebssystem-Meldungen oder Abfragen überschrieben 
wird, weil diese ebenfalls auf den Bildschirm ausgegeben 
und damit in den Speicherbereich zwischen C000 und 
FFFF (hex) geschrieben werden. 
Unser Listing zeigt den Einzeiler »Bildcopy«, der ein Bild 
nach Abfrage von Bildschirmmodus und Dateinamen in 


den Bildschirmspeicher lädt und nach Tastendruck wieder 
auf eine Diskette schreibt. Während des Kopiervorgangs 
wird keine Abfrage ausgegeben und die sonst üblichen 
Kopier-Meldungen lassen sich mit »!« unterdrücken. So 
wird der Bildschirminhalt und damit das Bild garantiert 
nicht verändert und kann gefahrlos beliebig oft von einer 
Diskette auf eine andere kopiert werden. 

(Christian Steinbach/ma) 


1 MODE 2: INPUT"Welcher Bildschirmmodus”z 
m:IF m<® OR m>2 THEN RUN ELSE INPUT"Date 
iname";n$:IF LEN(n$#)<1 OR LEN(n$) >12 THE 
N RUN ELSE MODE m:PRINT"Nach dem Laden D 
isk wechseln und Taste druecken!":LDAD" 
\"+n$,%CDQB:CALL &BBQ6: SAVE" !"+n$,b,&C0Q 
2,%:4000: RUN 

— 


Listing. »Bildcopy« kopiert Bild-Dateien problemlos von 
einer zu anderen Diskette 


Programm: Bildcopy 
Computer: CPC 464/664/6128 
| Checksummer:| Explora 
| Datenträger: Kassette, Diskette 


Ladehilfe für Eilige 


Ein Einzeiler, der eine Taste im Ziffernblock des 
Schneider CPC mit einem kleinen Programm 
belegt, erweist sich als große Hilfe beim Laden 
von Programmen, die sich auf Diskette befinden. 


erkennt nicht das Problem: Man möchte ein Pro- 

gramm von Diskette laden, hat jedoch nicht 

mehr die exakte Bezeichnung der Datei im Kopf. 
So listet man zunächst das Inhaltsverzeichnis der Diskette 
mit »CAT«, Falls der Computer jedoch im Modus 1 arbeitet 
und sich viele Dateien auf der Diskette befinden, ist unter 
Umständen die Hälfte des Verzeichnisses schon wieder 
verschwunden, bevor man Zeit hatte, den Inhalt zu studie- 
ren. 

Deshalb muß der entnervte CPC-Besitzer mit»MODE 2« 
in den Bildschirmmodus 2 umschalten und das Disketten- 
Inhaltsverzeichnis erneut listen. Darauf kann er endlich 
»LOAD” « eingeben und den richtigen Dateinamen eintip- 
pen. Sofern er sich nicht verschrieben hat, wird dann auch 
tatsächlich das gewünschte Programm geladen. 

Diese umständliche Prozedur verkürzt der Einzeiler 
»Catcopy« ganz erheblich. Catcopy ordnet der Punkt-Taste 
im Ziffernblock ein kleines Programm zu, das sich bei 
Druck der Taste selbst startet. Das Programm schaltet den 
Bildschirm in den Modus 2 um, listet das Inhaltsverzeichnis 
der Diskette im aktuellen Laufwerk und fragt anschließend 
den Namen des zu ladenden Programms ab. Nun können 
Sie den COPY-Cursor an den Anfang des gewünschten 
Dateinamens steuern, die Bezeichnung mit der COPY- 
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Taste übernehmen und durch Drücken der ENTER-Taste 
den Ladevorgang auslösen. 

Die Neubelegung der Punkt-Taste bleibt bis zum Aus- 
schalten des Computers beziehungsweise bis zum näch- 
sten Reset erhalten. Mit dieser Methode lassen sich übri- 
gens auch alle anderen Funktionstasten belegen. Wenn 
Ihnen weitere hilfreiche Programme einfallen, haben Sie 
bald eine komplette Utility-Sammlung zusammen, die Sie 
über die einzelnen Funktionstasten bequem aufrufen kön- 
nen. (Matthias Kauer/ma) 


1 KEY 157,"1 ON ERROR GOTO 1:MODE 2:CAT= 
INPUT"+CHR$ (34)+"Welche Datei "+CHR$ (34) + 
"as: IF LEN(a$)>12 THEN RUN ELSE MODE 1: 

LOAD a$"+CHR$ (13) +"RUN"+CHR$ (13) KEY DEF 
7,1497, 


Listing. Dieses kurze Programm belegt eine Taste des 
Schneider CPC mit einer Routine zum Laden von Dateien 


BE Steckbrief. 
Programm: Catcopy 
Computer: = CPC 464/664/6128 
Checksummer:| Explora 

| Datenträger: Diskette 
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Basic-Befehlssatz 
des CPC auf einen Blick 


Für Basic-Programmierer, die 
es leid sind, stundenlang im 
Handbuch zu blättern, um 
einen ganz bestimmten Befehl 
zu finden, haben wir eine 
Tabelle zusammengestellt, die 
die Basic-Befehle des CPC 
übersichtlich auflistet. 


eht es Ihnen auch so? Sie 
suchen einen ganz bestimm- 
ten Basic-Befehl und wissen 
auch, daß dieser Befehl im Locomo- 
tive-Basic existiert. Doch der Name 
des Befehls fällt Ihnen partout nicht 
ein, und die exakte Syntax haben Sie 
auch nicht mehr im Kopf. 
Normalerweise müßten Sie jetzt das 
CPC-Handbuch hervorkramen und 
mit der zeitraubenden Suche nach 
diesem Befehl beginnen. Dank unse- 
rer Basic-Befehlstabelle sind diese 
Zeiten jedoch endgültig vorbei. Die fol- 
gende Tabelle listet alle Basic-Befehle 


gliedert und innerhalb des Themas 
alphabetisch geordnet auf. Ebenso 
sind die Syntax und eine kurze Erklä- 
rung zu jedem Befehl angegeben. 

Bei den Namen in spitzen Klam- 
mern handelt es sich um Parameter 
(variable Werte). Sind die Parameter 
zusätzlich in eckige Klammern einge- 
schlossen, so kann man diese Werte 
bei Bedarf verwenden. Der zugehö- 
rige Text in der Erklärung ist dann 
ebenfalls in eckigen Klammern einge- 
schlossen. 


Parameter im Detail 


Die Namen der verschiedenen Para- 
meter wurden so gewählt, daß sie sich 
meistens selbst erklären. Ein Verzeich- 
nis am Ende der Tabelle gibt jedoch 
zusätzlich die exakte Bedeutung zu 
jedem Parameter mit Wertebereich an. 

Ist ein Parameter nicht zwingend 
erforderlich (optional) und wird er vom 


setzt, so nimmt der Basic-Interpreter 
des CPC für diesen Parameter auto- 
matisch den Wert O an. In Fällen, wo 
eine andere Zahl als Standardwert 
benutzt wird (zum Beispiel bei der 
Schrittweite einer FOR-NEXT-Schlei- 
fe), ist dieser Umstand in der Erklä- 
rung zu diesem Befehl gesondert ver- 
merkt. 

Die Erklärungen zu den einzelnen 
Befehlen sind aus Platzgründen sehr 
knapp gehalten. Handelt es sich bei 
den Befehlen um Funktionen (an 
der Klammer hinter dem Befehlswort 
erkennbar), so definiert die Erklärung 
die Form des Ergebnisses der Funk- 
tion. Weil die Sound-Befehle ENT, 
ENV, SOUND und SQ (<kanal>) 
sehr komplex sind, wird in der Tabelle 
aus Platzgründen auf den Grund- 
lagenartikel im 7. Schneider-Sonder- 
heft (ab Seite 150) verwiesen. Die 
detaillierte Bedeutung der Parameter 
<format>, <ftaste>, <matrix> 
und <taste> ist dem Handbuch zu 


5 ö N z " entnehmen. ma) 
des Schneider CPC thematisch ge- Programmierer im Befehl nicht einge- mE) 
Abı Befehl und Parameter [Bedeutung 
Befehl und Parameter Bedeutung PEIUEN EN MEN DS 
END Programmende WEND Ende der WHILE-WEND-Schleife 
FOR <varlable> = <reall > | Schleife, in der die Laufvariable araument: Solange der Verglel 
TO <real2> |STEP <real3>]| <variable> ausgehend vom Wert <realt > mens 3 NE NOTE ROUIERR 
[mit einer Schrittweite von <real3>] WEND folgenden Beiehia, als Programm- 


(oder 1) bis auf <real2> herauf- oder 
heruntergezählt wird 


GOSUB <zeile> 


| <zeile> 


Unterprogrammaufruf ab Programmzeile 


GOTO <zeile> 


Aufruf der Programmzeile <zeile > 


IF <argument> THEN 


<argument> 
Wahr dann Befohl hinter THEN austühren 
bzw. angegebene Zeile aufrufen [sonst 
Befehl hinter ELSE ausführen bzw. angebe- 
nene Zeile aufrufen] 


NEXT [<variable>] 


Ende der FOR-NEXT-Schleife [mit der Laut- 
variablen <variable>] 


(ON BREAK CONT 


Blockierung die ESC-Taste um die Unter- 
brechung eines laufenden Programmes zu 
verhindern 


Ib: 


schleife ausgeführt 


Befehl und Parameter 


Bedeutung 


car 


‚Auflisten des Kassetten- oder Disketten- 
inhaltes 


CHAIN <name> [,<zeile>] 


Programm <name> wird geladen und 
[ab Programmzeile <zeile>] ausgeführt 


CHAIN MERGE <name> 
[.<zeile>] ‚DELETE 
<zeilet> - <zeile2>] 


Programm <name> wird geladen, in das. 
bestehende Programm Sosehaı und & 
Programmzeile <zeile>] ausgeführt. [Die 
Zeilen <zeilei > bis <zeile2> werden 
zuvor gelöscht] 


EAK CONT und ON BREAK GOSUB 
wird damit. ) 


ON <argument> 
GOSUB <zeilen> 


Unterprogrammaufruf ab einer Programm- 
zeile von <zeilen>, abhängig von argu- 
ment (<argument>=1 bewirkt Unterpro- 
grammaufruf ab der ersten aufgeführten 
Zeilennummer, <argument > =2 bewirkt 
Aufruf ab der zweiten Zeilennummer usw.) 


"ON <argument> 
_ GOTO <zeilen> , 


‚Aufruf einer 


lennummer, <argument>=2 bewirkt Aufruf 
‚der zweiten usw) 


Tabelle. Die Basic-Befehle des Schneider CPC 
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CLOSEIN Geöffnete Eingabedatei schließen 
ON BREAK GOSUB <zeile> | Unterprogrammaufruf ab Programmzeile CLOSEOUT, Geöffnete Alsgabedatei schließen 
en meet die ES EOF Zeigt durch den Wert -1 das Dateiende an 
EEE BE a = e (sonst auf 0 gesetzt) 
BAR igabe der ESC-Tasie zur Programm- 
LOAD <name> Datei <name> jab Adresse <adresse>] 
unterbrechung (die Wirkung der Betehle ON | | [<aaresee>] [in den Speicher laden 


MERGE <name> 


Programm <name> wird geladen und in 
das bestehende Programm eingefügt 


OPENIN <name> 


Eingabedatei mit dem Namen <name> 
öffnen 


OPENOUT <name> 


‚Ausgabedatei mit dem Namen <name> 
öffnen 


RUN [<name>] 


‚Programmstart [von Programm <name>] 


SAVE <name> [,<typ>] 
[,‚<adressei >, <adresse2>] 
[.<adresse3>] 


Programm <name> [vom Typ <typ>] 
speichern [Programmbeginn: <adresse1 >, 
Programmlänge: <adresse2>] [und Start- 
adresse: <adresse3>] 


SPEED WRITE <boolean> 


‚Schaltet Schreibgeschwindigkeit für. 
Kasssttenrecorder um 


Ein und Ausgabe (Bildschirm, Drucker, Speicher, Ports) 


Befehl und Parameter 


Bedeutung 


Befehl und Parameter 


Bedeutung 


WINDOW SWAP <gerätt>, 
<gerät2> 


Fenster <geräti> wird gegen Fenster 
<gerät2> ausgetauscht 


CLEAR INPUT 


Vorherige Eingaben löschen 


CLS[# <gerät>] 


Einheit [<gerät>] löschen 


COPYCHAS(# <gerät>)) 


Zeichen auf aktueller Position in Einheit 
| <gerät> 


CURSOR [<booleant >] 
[‚<boolean2>] 


‘Systemcursor [abhängig von <booleani >] 
und Benutzereursor [abhängig von 
<boolean2>] ein- oder ausschalten 


WARITE[# <gerät>,] 
<zeichen> 


Ausdruck von durch Kommata getrennten 
Texten und/oder Variablen [über Gerät 
<gerät>] 


ZONE <shortint> 


Spaltenbreite auf dem Bildschirm wird auf 
<shortint> Zeichen festgesetzt (die Spal- 
teneinteilung steuert das Komma im PRINT- 
Befehl) 


INKEY(<taste>) 


Fragt ab, ob die Taste mit der Nummer 
<taste> nicht gedrückt (-1), gedrückt (0), 
zusammen mit SHIFT gedrückt (32), zusam- 
men mit GTAL gedrückt (128) oder zusam- 
men mit SHIFT und GTAL gedrückt (160) 

| wird 


INKEYS 


Text der momentan gedrückten Taste 


INP(<adresse>) 


Auf Eingabeport <adresse> anliegender 
Wert 


INPUT? <gerät> | [<tet> 
<variablen> 


ll [Ausgabe von <text> und] Abfrage der 
Werte für die Variablen <variablen> [über 
das Gerät <gerät>] 


LINE INPUTI# <gerät>,] 
[<text>;] <varlable> 


[Ausgabe von Text <text> und] Abfrage 
einer Textzeile für die Variable <variable> 
(über das Gerät <gerät>] 


LOCATEI# <gerät>,] 
<x>.<y> 


Positoniert den Textcursor auf dem Punkt 
<x>,<y> [von Fenster <gerät>] 


MODE <mode> 


‚Auswahl von Bildschirmmodus <mode> 


Farbe und Grafik 


Befehl und Parameter 


Bedeutung - 


BORDER <farbe1> 


Rand in Farbe <farbei > [die periodisch mit 
Farbe <farbe2> wechselt] 


‚<tarbe2>) _ 
CLG [<register>] 


Grafikbildschirm [mit Farbe aus INK-Register 
<register>] füllen 


DRAW <integert >, 
<integer2> |,<register>] 
[‚<modus>] 


Linie von der aktuellen Position des Grafik- 
Cursors bis zum Koordinatenpunkt 
<integert >, <integer2> [in der Farbe des 
INK-Registers <register>][mit der Verknüp- 
fung <modus>] ziehen 


DRAWR <integeri>, 
<integer2> [.<register>] 
[‚<modus>] 


Linie von der aktuellen Position des Grafik- 
cursors zum relativen Koordinatenpunkt 
<integert >, <integer2 > (in der Farbe de: 
INK-Registers <register >] [mit der Ver- 
knüpfung <modus>] ziehen 


OUT <adresse>,<shortint> 


Ausgabe des Wertes <shortint> über 
‚Ausgabeport <adresse> 


PEEK (<adresse>) 


Inhalt der Speicherzelle <adresse> des 
‚Arbeitsspeichers 


POKE <adresse>,<shortint 


Wert von <shortint> in Speicherzelle 
<adresse> des Arbeitsspeichers 
‚schreiben 


FILL <register> 


Fülit Fläche, in der die aktuelle Position des 
Grafikeursors liegt, mit der Farbe aus INK- 
Register <register> 


FRAME 


‚Synchronisation von Grafikaufbau und 
Strahlrücklauf, 


GRAPHICS PAPER 
<register> 


Hintergrund der Grafik in Farbe des INK- 
Registers <register> darstellen 


POS# <gerät> 


Aktuelle Position des Cursors, Druckkopfes 
‚oder des Dateizeigers auf Gerät <gerät> 


PRINT[#<gerät>,] 
<zeichen> 


‚Ausdruck von Text und/oder Variablen [über 
Gerät <gerät>] 


PRINTI# <gerät>,] 


<zeichen> 


‚Ausdruck von [Text und/oder Variablen] 


[<zeichen>] SPC <shortint>]| [über Gerät <gerät>.] <shortint> 


Leerzeichen und nachfolgendem Text 
und/oder Variablen 


GRAPHICS PEN <register> 
[‚<boolean>] 


Vordergrund der Grafik in Farbe des INK- 
Registers < register > darstellen 


INK <register>, <farbei > 


INK-Register <register> wird mit der Farbe 
<farbei > [und der Farbe <farbe2>] 
geladen 


[,<tarbe2>] 
MASK <shortint> 


[,<boolean>] 


Die Bits des Wertes von <shortint> 
‚definieren die Schablone für das Zeichnen 
von Grafiklinien 


PRINT[# <gerät>,] 


<zeichen> 


[<zeichen>] TAB <shortint> 


“Ausdruck von [Text und/oder Variablen] 
[über Gerät <gerät>.] Text und/oder Varia- 
bien ab Zeilenposition <shortint> 


PRINT USING <tormat>; 
<real> 


‚Ausdruck des Wertes von <real> im For- 
mat <format> 


VPOS(#<gerät>) 


Vertikale Position des Textcursors In Fenster 
<gerät> 


WAIT <adresse >, <shortinti 
[,<shortint2>] 


Wartet auf die Dateneingabe über Port 
<adresse> [verknüpft das eingelesene 
Byte eventuell mit <shortint2> über die 
XOR-Funktion] und verknüpft das Ergebnis 
mit <shortint! > über die AND-Funktion 


WIDTH <shortint> 


| Anzahl der Zeichen pro Zeile wird beim 
Drucken auf <shortint> begrenzt 


<xR>,<yO>,<yU> 


WINDOWI# <gerät>,] <xL>) 


Definiert Fenster [mit der Nummer 
<gerät>] in den Grenzen <xL> (linke 
‚Spal <xR> (rechte Spalte), <yO> 
(obere Zeile) und <yU> (untere Zeile) 


MOVE <integert >, 
<integer2> |,<register>] 
[‚<modus>] 


Unsichtbare Verschiebung des Grafikcursors 


von der aktuellen Position zum Koordinaten- 
Punkt <integert >,<integer2> [mit Wahl 
der Farbe aus INK-Register <register>] 
(und der Verknüpfung <modus>] 


MOVER <integer1>, 
<integer2> [,<register>] 
[,<modus>] 


Unsichtbare Verschiebung des Grafikcursors 
von der aktuellen Position auf den relativen 
Koordinatenpunkt <integeri >, 

<integer2> [mit Wahl der Farbe aus INK- 
Register <register>] [und der Verknüpfung 
<modus>] 


ORIGIN <integer1>, 
<integer2> [,<integerL >, 
<integerR >, <integerO>, 
<integerU>] 


Festlegen des Koordinaten-Nullpunktes auf 
der absoluten Bildschirm-Koordinate 
<integer! >, <integer2> (0,0=links unten) 
[Festlegen des Grafikfensters mit dem rech- 
ten Rand auf Position <integerR>, dem Iin- 
ken Rand auf Position <integerL >, dem 
‚oberen Rand bei <integerO> und dem 
unteren Rand bei <integerU>] 


Vefzt sag endhch: ICH BIN 
DA5_INTELLIGENTE SPRACH, 
ERKENNUNGS "SYSTEM 


Befehl und Parameter” 


| PAPER[# <gerät>,] <register: 


auge Farbe abs INKRegiser 
<register> fest 


PEN[# <gerät>,] <register> 
[,<boolean>] 


Legt die Zeichenfarbe [für Fenster <gerät>] 
sul de Farbe aus INK-Regster <regier> 
fest [und schaltet den 


PLOT <int ‚<integer2> 
maus [r<menee 


PLOTR <integer! >, 
<integer2> [,<register>] 
[.<modus>] 


| SPEED INK <shortintt >, 
| <shortint2> 


Grafikpunkt auf die relative Koordinaten- 
Position <integer! >, <integer2> [in der 
Farbe des INK-Regisers <regser>] mi der 
Verknüpfung <modus>; 


XPOS 


Befehl und Parameter 
_ DERR 


TAGI# <gerät>] Textausgabe erfolgt auf die Position des Gra- 
fikcursors [in Fenster <gerät>] 
 TAGOFFI# <gerät>] 

ü Cursor > 
TEST(<integert >, Farbnummer des Punktes auf der Grafik- 
<integer2>) Position <integert >, <integer2> 

"TESTR(<Integeri >, 
‚<integer2 >) 


Bedeutun: 
Fehlercode des letzten Diskettentehlers 


ERL 


Befehl und Parameter Bedeutung 

RAD! Imschalten auf Bogenmaß 

RANDOMIZE <real> Anfangswert für Zufallszahlengenerator 
AND(<real>), TE 


ROUND(<real>, <bereich>) 


Der Wert von <real> wird abhängig von 
<bereich> auf die Anzahl von <bereich> 
Nachkommastellen (<bereich> negativ) 
oder auf <bereich> Vorkommastellen 
(<bereich> positiv) gerundet 


SEN(<real>) 


r als 0; -1, wenn 
0, wenn <real> 


SIN(<real>) 
SOR[<real>) 


TAN(<real> 


<argumenti > XOR 
<argument2> 


Wert von <adresse> in Hero ‚üblichen Wer- 
en a276Bbis 


Logische KOR: So (Exklusiv.Oder) 
von <argumenti > mit <argument2> 


‚Automatische Erzeugui SR 5 
ee RR LOL. 


unterbrochenes Programm fortsetzen 


Brogrammzell <zeiet> [ol <zolle2>] 


en <zeile> zum Editieren 
aufrufen 


Listet Programm [von Zeile <zeile1 >] [bis 
<zeile2>] [auf das Gerät <gerät> 


Nummer der Zeile, in der ein Fehler aufge- 
treten ist, 


‚Nummer des zuletzt ‚Fehlers: 


ERROR <shortint> 


setzt ERR auf den Wert <shortint> 


| ON ERROR GOTO <zeilı 


‚Aufruf der Programmzeile <zeile>, wenn 
ee 
auf 


RESUME [<zeile>] 


Befehl und Parameter 


ABS(<real>) _____]Absolutwertvon<reai> | 


<argument1 > AND 


Programm wird nach einem ON ERROR 
GOTO-Befehl in der fehlerverursachenden 
Zeile [ab der Programmzeile <zeile>] 
fortgesetzt 


Bedeutung 


Logische AND-Verknüpfung von 


DEF FN<name> 
((<varlable>)]= <argument> 


<argument2> <argumenti > mit <argument2> 
ern) TE Rre mungen En Bögen VonzTsaE 
iz real>) Cosinus von <real> 


Definition der Funktion <name> mit der 
Anweisung <argument> 


Di 


Umschalten auf‘ 


Höchste freie Speicheradresse für Basic- 
Programme und Basic-Variablen glelon 
<adresse> 


RENUM [<zeilet >] 


RUN 1<zeile>] 
STOP 


TRON 


[,<zeile2>] [,<zeile3>] 


LEFTS(<text><shortint>) 


Löschen des im Arbeitsspeicher befindlichen 
Programmes 

Der dem REM-Befehlnachfoigende Text 
dient zur Programmdokumentation und wird ' 
FYomiInierpratauicht.Bertilsichügt => 


Neunumerierung des Programmes [ausge- 
hend von der neuen Zeilennummer 

<zeile1 >] (oder 10) [ab der alten Pro- 
grammzeile <zeile2>] [mit der Schrittweite 
<zeile3>] (oder 10) 


Programmstart [ab Programmzeile <zeile>] | 


Programm wird unterbrochen und kann mit 


‚CONT fortgeführt werden 
Trace-Funktion ausgeschaltet. Er | 


Trace-Funktion eingeschaltet (während eines 
Programmlaufs wird die Zeilennummer jeder 
bearbeiteten Programmzeile auf den Bild- 
schirm ausgegeben) 


< > 
N E E 


Die ersten <shortint> Zeichen von Text 


<argumentt> OR 


Logische OR-Verknüpfung von 
<argumenti > mit <argument2> 


rgument2> 


dezimaler Wert der Kreiszahl 
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EXP(<real>) Basis der natürlichen Logarithmen (e) 
potenziert mit <real> <text> 
FiXx(<real> Wert vor dem Komma von <real> <text>] [Anzahl der Zeichen In Text <text> EEE 
FN <name>[(<variablen>)} | Ergebnis der Funktion <name> LOWERS(<text>) Text in Kleinbuchstaben von <text> 
INT(<real>) Rundet <real> aufden ganzzahligen MIDS(<text>,<shortinti> _|Zeichenkette aus <text> ab.der Position _ 
Wert ab [<shortint2>]) ‚<shortintt > [mit der Länge <shortint2>] 
LOG(<real>) Natürlicher Logarithmus von <real> ‚bis zum Textende) 

5 Dekadischer MIDS(<variable>, Fügt <shortint2> Zeichen des Textes 
EEE] BEN EEE <shortinti >, <text> ab der Position <shorlinti > in die 
MAX(<numeri>) Höchster Wert der Zahlen von <numeri> <shortint2>)= <text> Stringvariable <variable> ein 
MIN(<numeri>) | Kleinster Wert von <numeri> RIGHTS(<text>. <shorint>) | Die letzten <shortint> Zeichen von Text 
<argumenti > MOD Rest der Division von <argumenti > mit 3 <text> 
<argument2> EEE le ” SPACES$(<shortint>) String bestehend aus <shortint> 
NOT <argument> Invertierung des Be Wereeon, Leerzeichen 

[ssargument> E= SIRS(<TeAI>) Wert von <real> in ein String umgewandelt | 


STRINGS(<shortint>., 
en) 


Vervielfachung des ersten Zeichens von 
<text> um den Faktor <shortint> 


Tat in Großbuchstaben von <text>- 


a Au. 


Bedeutung 


Ereuanzkalkune, Fe 7. Schneider- 
‚Sonderheft, Seite 1 


GOSUB <zeile> 


ENV ae Samen (siehe 7. Schneider- 
Sonderheft, Seite 150) 
ON SQ (<kanal>) Unterprogrammaufruf ab ee 


<zeile >, wenn in der Tonwarteschlange 
Kanal <kanal> mindestens ein Platz treliet 


[ee 
RELEASE <kanal> 


Wartezustand von Kanal <kanal> aufheben 


Befehl und Parameter 


Bedeutung 


RESTORE [<zeile>] 


‚Zurücksetzen des DATA-Zeigers [auf den 
‚ersten Wert der Programmzeile <zeile>] 


SPEED KEY <shortint! >, 
<shortint2> 


Repeat-Funktion startet nach 0,02 x 
<shortint} > Sekunden und erzeugt alle 
0,02 x <shortint2> Sekunden ein Zeichen 


SYMBOL <shortint>, 
<matrix> 


Definition des Zeichens mit dem ASCII-Oode 
<shortint> als Bildpunktmuster der Werte 
von <matrix> E 


SYMBOL AFTER <shortint> 


Zeichen ab dem ASCII-Code <shortint> 
können über SYMBOL frei definiert werden 


SOUND <parameter> 


SQ(<kanal>) 


‚Definition von Ton und Rauschen (siehe 
7. Schneider-Sonderheft, Seite 150) 

Zustand von Kanal <kanal> (siehe 
7. Schneider-Sonderheft, Seite 150) 


Befehl und Panne r 
AFTER <inl 


[,<elock>] SUR <zeile> 


Bedeutun; 


Wenn auf der Uhr [<clock>] 002% 
‚Sinteger> Sekunden versiichen sind, 
rtolgi ein Unterprogrammaufruf ab Zeile 


2 > 


DI 
EI 


Unterbrechungen durch AFTER und EVERY 
sperren 


Unterbrechungen durch AFTER und EVERY 
freigeben 


EVERY <Integer> 
I,<clock>] GOSUB <zeile> 


Immer, wenn auf der Uhr [<clock>] 0,02 x 
<integer> Sekunden abgelaufen sind, 
erfolgt ein Unterprogrammaufruf ab Zeile 
<zeile> 


REMAIN(<elock>) Hestzeitvon Uhr <clock> (Uhr wird zusätz- 
geschaltet) 
TIME Zeit, die seit Einschalten des Computers ver- 


Befehl und Parameter 


Bedeutun, 


<adresse> Speicher- ‚oder Portadresse (0 bis 655535) 


<argument> Mathematischer Ausdruck oder logischer 
Vergleich (1=wahr, O=falsch) 

<bereich> Stellenbereich, innerhalb dessen ein Wert 
‚gerundet wird 

<boolean> <boolean > =0: Aus (CURSOR), nicht 


transparent (GRAPHICS PEN und PEN), 
Joystick 0 (JOY), nicht wiederholen (KEY 
DEF), ersten Punkt nicht setzen oder 1000. 
Baud (SPEED WRITE) 
<boolean> =1: Ein (CURSOR), transparent 
(GRAPHICS PEN und PEN), Joystick 1 
(JOY), wiederholen (KEY DEF), ersten Punkt 
Setzen (MASS oder 2000 Bau (SPEED 

) 


<clock> 


Nummer der internen Uhren des CPC 
(0 bis 3) 


strichen ist In der Einheit 1/300 Sekunde <farbe> Farbnummer (0 bis 26) 
<format> Spezieller Textausdruck, der das Format 
einer Datenausgabe regelt (Näheres siehe 
2 A: Handbuch). 
Befehl und Parameter Bedeutun <faste> Nummer einer Funktionstaste (128 bis 189, 
"ASC(<etring>) Numerischer Wert des ersten Zeichens von siehe Handbuch) 
<string> <gerät> Ein-/Ausgabegerät wie Fenster, Drucker oder 
BIN$(<integer> Binärer Wert von <integer> [mit <stellen> Kassettenrecorder (0 bis 9) 
[.<integer>)) Ziffern) <index> Ganzzahliger Wert oder ganzzahlige Werte, 
CHAS(<shortint>) ASCII-Zeichen von <shortint> ie die Anzahl der Felder eines Datenfeldes 
CINT(<shortreal>) Gerundeter Integer-Wert von <shortreal > = — tee EEE 
CLEAR Ale Verablen aufO setzen und ale Dateien niene manchmafbis +05535) ä 
<kanal> 1=Kanal A, 2=Kanal B, 4=Kanal C 
CREAL(<real>) Real-Wert von <real> 
‚<konstanten> Feste Integer-, Real- oder Stringwerte‘ 
DEFINT variablen> Definition von Interger-Varlablen. r N n 
8 Werte vom Typ <shortint>, die das Bild- 
DEFREAL <varlablen> Definition von Real-Variablen ee uk NOSCAREEE EN 
DEFSTA <varlablen> Definition von String-Varlablen] definieren (näheres siehe Handbuch) 
DIM <variable>(<index>) _| Definition des Datenfeldes <variable> <modes Ganzzahliger Wert, der den Bildschirm: 
ERASE <varlablen> Variablen <varlablen> löschen modus (0, 1.oder.2) bestimmt 
FRE() Größe des von Basic nicht benutzten <modus> Art der logischen Verknüpfung (1=XOR, 
Speicherplatzes 2=AND, 3=OR) 
FREE") Größe des von Basic nicht benutzten, <name> Zulässiger Datei- oder Funktionsni 
Speicherplatzes mit Auslösung einer <numeri> Feste Integer- oder Real-Werte 
Garbage Collection B ä <parameter> bis zu 32 Integer- Werte, 
Head! Ineger> FERN von <integer> [mit <real> Reele Zahl (-1,7 x 10% bis +1,7 x 109%) 
LET <varlablos= Der Varlablen <varlable> wird das, SroWarz SEN ENENEE: 
<argument> Ergebnis von <argument> zugewiesen ‚<shortint> Ganzzahliger Wert (0 bis 255) 
VAL(<string>) Numerischer Wert von <string> in eine <shortreal> Roele Zahl (32768 bis +32767) 
Zahl umgewandelt <stellen> Anzahl der Ziffern einer Zahl 


(1 bis 16) 


READ <variablen> 


Werte aus DATA Zeilen einlesen und den 
Variablen <variablen> zuweisen 


<string> ‚Alphanumerische Zeichenkette 
‚So <taste> Tastennummer (0 bis 79, siehe Handbuch) 
Befehl und Parameter Bedeutun: <text> ‚Von Anführungszeichen eingeschlossene 
CALL <integer> ATTERSEE alphanumerische Zeichenkette oder String- 
[,<parameter >] <integer> [und Übergabe der Werte variable A 
<parameter>] <typ> A=ASCII-Datel, B=Binärdatei, 
DATA <konstanten > Datenfeld bestehend aus den Daten ‚P=geschütztes Basic-Programm 
<konstanten > <variable> Name einer Variablen, 
JOr(<boolean>), Au Joystick =boolean> wurde shock. (),_ <varlablen> Name einer oder mehrerer durch Komma 
i »runter (2), »links« (4), »rechts« (8), »teuert getrennten Variablen 
“ „feuer. (32) oder eine Kombination => X-Koordinate (1 bis 80) 
(Summe der-Werte) sen , <y> Y-Koordinate (1 bis 25) 
KEY <ftaste>, <text> Belogt Funkionstaste <faste> mit dem FE ER nführngezeihen ara EEE 
alphanumerische Zeichenkette und/oder 
KEVDEF ztastes, Die Taste mit der Nummer <taste> erzeugt REN Ei 
Demees] ee een ren <zeile> SR einen Basio:ProgrermzelX| 
ee zusammen mit GTAL den Text von BERBSSL. - 
B <tasteg> <zeilen> ‚Liste yon Zeilennummern für Basic- 
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Ihre Ansprechpartner: Eisabeihstraße 5 

v. Schablinskl Dortmund 1 

Jan P-Schneider_ T.0291828184 :Tx 822681 eotsd 


4972 Löhne 


I ;ocenlr 


* Computer“ HIFI"Vidao*TV* 
alos für Schneider vom 484 = Joyce 
N Nönptbahshei * Bänder Bir. 20 A072 Lähne * Tel. 08722/2240 


5000 Köln 


G.... Schneider 


COMPUTER DIVISION 
SG vortex 


RALF HILLE 
DATENTECHNIK 


Mittelstraße 61, 4322 Sprockhövel 2, Telefon (02339) 7181 


ı_ Jayson__ 


Berrenratherstr. 159 
5000 Köln 41 
® 0221/416634 
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Wieder einmal haben Sie ein Schneider-Sonderheft von 
Happy-Computer vor sich liegen. Und wieder fragen wir 
uns, ob wir mit unseren Themen richtig liegen. Denn diese 
Frage können nur Sie - unser Leser - beantworten. Des- 
halb schicken Sie uns bitte den untenstehenden Fragebo- 
gen ausgefüllt zurück. Denn seine Auswertung zeigt uns 
den Weg, den wir mit dem nächsten Schneider-Sonderheft 
einschlagen müssen. 

Auch der Schneider-Teil im Stamm-Magazin Happy- 
Computer wird nach Ihren Vorschlägen gestaltet. Deshalb 
ist Ihre Meinung für uns so immens wichtig. 


Hat Ihnen 
das Heft gefallen? 


Auch Sie profitieren also davon, wenn Sie uns Ihre 
- positive und negative - Kritik wissen lassen. 
Schicken Sie den ausgefüllten Fragebogen bitte an: 


Markt &Technik Verlag AG 
Redaktion Happy-Computer 
Kennwort: Schneider-Umfrage 
Hans-Pinsel-Straße 2 
8013 Haar bei München 


(a) 


Fragebogen zum 8. Schneider-Sonderheft 


Wie hat Ihnen dieses Heft gefallen? 


EI sehr gut DI weniger gut 
DO gut EI gar nicht 
EI) mittel 


Welche Rubriken wollen Sie in Zukunft erweitert sehen? 


ED) Hardware © Einsteiger-Teil 

U] Software D Aktuelles 

©) Basteleien O Tips&Tricks 

D Spiele-Tests © Spiele-Listings 

DI CP/M EI] Anwendungs-Listings 


EU] Grundlagen U Grafik-Listings 
Welche Rubriken sollen in Zukunft eingeführt werden? 


Welche Computer-Zeitschriften lesen Sie? 


El Happy-Computer 
DI deutsche Schneider-Zeitschriften - wenn ja, welche? 


DI englische Amstrad-Zeitschriften 
E) andere - wenn ja, welche? 


Welche Schneider-Sonderausgaben von Happy- 
Computer haben Sie sich schon gekauft? 


©] 1. Schneider-Sonderheft 
D 2. Schneider-Sonderheft 
© 3. Schneider-Sonderheft 


Wenn Sie alle acht Schneider-Sonderhefte besitzen, 
welches hat Ihnen am besten gefallen? 


© 1. Schneider-Sonderheft 
DO 2. Schneider-Sonderheft 
© 3. Schneider-Sonderheft 
© 4. Schneider-Sonderheft 
5. Schneider-Sonderheft 
'6. Schneider-Sonderheft 
7. Schneider-Sonderheft 
8 


D 
je} 
D 
U] 8. Schneider-Sonderheft 


Welchen Computer besitzen Sie? 


U] Schneider CPC 464 OD einen anderen, welchen? 
U Schneider CPC 664 
DO) Schneider CPC 6128 
U] Schneider Joyce 

EI Schneider PC 


Welchen Diskettencontroller besitzen Sie? 


©] Schneider U] einen anderen, welchen? 
DO Vortex 
ED) Vortex X-Controller 


Welche Speichererweiterung besitzen Sie? 


OD) Data Media DO eine andere, welche? 
DO dk’tronics 
DI Vortex 


Ich bin damit einverstanden, daß die hier gemachten 
Angaben elektronisch verarbeitet werden. 


Name/Vorname 
Straße 

PLZ/Ort 

Alter Jahre 
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Nachhall + + Nachhall + + Nachhall + + Nachhall + + Nachhall 


Giro-Konto in — 


Aus vielen Anrufen voller 
Lob, Kritik und Fragen zum 
Programm »Giro« aus dem & 
Schneider-Sonderheft (Hap- 
py-Computer-Sonderausgabe 
13, Seite 75) kristallisierte sich 
ein kleiner Fehler heraus, den 
wir natürlich sehr bedauem 
und hier ausmerzen. 

Fügen Sie in das Listing die 
neue Zeile 
1835 e2=e(k)+d(k):IF e2 
<12 THEN e2=e2-12 
ein und ändern Sie den Anfang 
der Zeile 1840 wie folgt 
1840 IF e(k)=n OR e2=n 
THEN ... “ 

Ohne diese Änderung er- 
scheint eine zweimonatliche 
Fixbuchung im ersten Monat 
der Vorschau, nicht jedoch im 
dritten. Nach der Neuanlage 
einer Konto-Datei mußten Sie 
bislang auch die Statistik extra 
neu starten, damit das Datum 
in der Kopfzeile der Statistik 
zur Anzeige gelangt. Die fol- 
gende Änderung macht diesen 
zusätzlichen Schritt unnötig 
430 ...al$=a$:b4$=b3$: 
flag=1 

Bei der Handhabung des 
Programms sind noch einige 


Punkie zı ten, um Feh- 
ierqusäien zu vermeiden. So 
mussen Sie sich bei Neuan- 
lage einer Datei die Fixbu- 
chungen im Vormonat der 
ersien Gehaltsbuchung anzei- 
gen lassen, also zum Beispiel: 


Zur Datumseingabe ist das 
Format =TTMMJJ« zwingend 
vorgeschrieben (je eine zwei- 
stelligeZahl für Tag, Monat und 
Jahr ohne Trennung direkt hin- 
tereinander). Da aber Giro die 
Einhaltung dieses Formats 
nicht prüft, führen falsche Ein- 
gaben (beispielsweise mit 
Punkten: »31.12.87«) zu fal- 
schen Berechnungen. 

Daneben ist zu beachten, 
daß die Gehaltseingabe Vor- 
rang gegenüber jeder anderen 
Buchung hat. 

(Ingo Strecker/ja) 


Keine Backups 


Daß uns ein bedauerlicher 
Fehler bei der Beschreibung 
des Listings »Backup-Master« 
im 6. Schneider-Sonderheft 


unterlief, haben die davon 
betroffenen Leser längst 
bemerkt. Der dortige Hinweis 
auf die Lauffähigkeit des Pro- 
gramms aufden CPCs664 und 
6128 war schlicht fehl am Platz, 
denn aufgrund direkter Aufrufe 
von CPC 464-ROM-Routinen 
arbeitet der Backup-Master 
natürlich nicht aufdiesen Com- 
putern. Weil sich jedoch viele 
Besitzer dieser CPC-Typen 
nach Lektüre der vielverspre- 
chenden Anleitung an das 
Abtippen machten, den Man- 
gel entdeckten und uns, teils 
verzweifelt, teils entrüstet mit 
Briefen und Anrufen zudeck- 
ten, fühlten wir uns in die 
Pflicht genommen, schnellst- 
möglich für Abhilfe zu sorgen. 
Bereits im letzten Schneider- 
Sonderheft, spätestens jedoch 
an dieser Stelle sollten Sie den 
entsprechenden Nachhall fin- 
den. Leider gestaltete sich die 
Anpassung aber nicht nur auf- 
wendige, sondern auch 
schwieriger als anfangs abzu- 
sehen war, so daß sie uns zum 
Redaktionsschluß dieser Aus- 
gabe noch nicht vorlag. Inter- 
essierte Leser können sie bei 
uns schriftlich anfordern. Sen- 
den Sie uns dazu bitte eine 


genaue Beschreibung Ihres 
Computersystems: Computer- 
typ, Diskettenlaufwerk und 
eventuelle Erweiterungen. 
Adressieren Sie die Sendung 
an den Verlag, Redaktion 
Happy-Computer, zu Händen 
Thomas Jacobi. Wir schicken 
Ihnen dann das Listing des 
passenden Patches. Noch ein- 
facher wird die Sache für Sie, 
wenn Sie Ihrer Sendung eine 


formatiertte 3-Zol- oder 

Vortex-5-Zoll-Diskette beile- 

gen. da) 
Scale für alle 


Für das Programm »Scale« 
aus dem 6. Schneider-Sonder- 
heft, Seite 92 erreichten uns 
inzwischen mehrere Anpas- 
sungen für den CPC 6128. Die 
Version von Wolfang Ried aus 
Feucht wollen wir Ihnen nicht 
vorenthalten. 


beschränken sich im wesentli- 
chen auf zwei Problemkreise. 
Das sind die Anpassung diffe- 
rierender Adressen von 
Betriessystemvariablen und 
der Systemroutine zur vorzei- 
chenlosen Multiplikation. Letz- 
tere lagerten die Entwickler der 


51/4'-Zweitlaufwerk für Pc 
‚Anschlußfertig mit Gehäuse, Netzteil, 
Kabel und Garantie, 
Voll 3"-kompatibel, keine Hard- und 
Softwareänderungen notwendig, 
2x0 Tracks mit e 180 Köyte forma: 
fie, manuelle Seltenumschalung mit 
LED-Anzeige, ‚Systemwechsel 
auch im PC verwendbar. 


Für GPC 464 


für open ‚Anfrage 


Gehäuse, Netzteile, Floppykabel (auch für Hi- 
tachi 37 üsw. in meiner kostenlosen Liste! 


Das ahsolute Angebot 


Solange es noch User und Software 
für den 664 (11985), 464 (11986; 
Nachfolger PLUS 2), 6128 (!198 
Nachfolger PLUS 3 mit eingebaut 
Laufwerk) und Joyce (119877) gibt, 
wird es für Sie als User Software ui 
Hardware-Erweiterungen bei DENI- 
SOFT geben. 

CPC-Katalog (ca. 1700 Titel Hilfsprogram- 
me, Anwendungen, kaufmännische Pro- 
‚gramm, Originalspiele ab DM 4,85) oder 
Joyce-Katalog (ca. 300 Titel) gegen DM 
2,- in Briefmarken! 

Viele Import-Programme mit deutschem 
Begleittext. Programmbeschreibungsliste 
auf Anfrage. 


DENISOFT 


Godefridus Denissen - PF 106421 
Bismarckstr. 113/115-2800 Bremen 1 


WWW .HOMECOMPUTERWORLD. COM 


Philosoft® 


Pariser Platz 2 


8000 München 80 
Telefon 089-4482601 


TEXTVERARBEITUNG 

+ MODEM 

Darstellung von Fettschrift, Kur- 
sivschrift, Unterstreichen, Indi- 
zes und hochgestellte Schrift 
auf dem Bildschirm! Blockbe- 
fehle, Absatz/Seitenumbruch, 
Suchen/Ersetzen, horizontales 
Scrollen, Druckeranpassung, 
perfekt, superschnell! Mailbox- 
betrieb, Textspeicher, Senden 
und Empfangen mit und ohne 
Prüfprotokoll (MODEM7 kom- 
patibei)! 
CPC-Diskette 89,- 
ASSEMBLER + TESTER 
Sehr schneller Assembler für 
Z80-, 8080-, 8085- und 8048- 
Opoodes, 26 Pseudo-Opcodes! 
Symbolischer Tester mit 26 
Funktionen inkl. Multi-BP, Da- 
tentransfer, EPROM progr.! 


CPC-Diskette 129,- 
Komplette Software wie o. a. im 


EPROM auf Erweiterungskar- 
ten für alle CPCs: 


Komplett 279,- 
dazu als Option: 

RS232-Schnittstelle 119,- 
EPROM-Progr-Gerät 119,- 


für 2716 bis 27256 
Info anfordern! 


Schneider 
CPC 8128 mit Grönmonitor 
(SPC 128 mit Farbmonitor 
Joyce POW 8256 


Joyce Plus 
PR TBI2 mit SW-Mon. + 4 Laufwerk 

3 2 Laufwerke, 
PC 1512 mit Farbman. 3 1 Lauwerk, 


Aunmerke 
29 ME-Fospiate ine Oöntei 728, 
28 ME-Fenniahe (Lapne. Lfrof-Avtomati) 

ineı. Controller R 
0. jedoch 50 MB-Fostplatte 

29 Me Ficard Lapıne 


Sn 
Ei Paettn Mazal „” 10 Stk. 


Akustickoppler Dataphan S21 dr2. 
NEC-Drucker (dt. Version) 

IECPE 
INEC PS Color 
NEop7 

irucker (dt. Version) 

Al mi irisceeartrige 
ND-10 mit Genironies-Sennitie 


Vorauskasse 
Uslerung nur gogen NN oder Vor land m 
Preieiste (Computeriyp angeben) gegen Zusendung eines Frelumschlags. 


CSV RIEGERT 
Schloßhofstr. 5, 7324 Rechberghausen, Tel. (07161) 52889 


BRANDHEISSE KNÜLLERPREISE 


Epsondrucker (dt. Version) 
Ansenluerig an OPOIPCTS12NEM-Kompatial 
Aları STIAMI 


Colarklt für EX soorıooo 
Einzeiblatteinzug FXIEXILO 800. 


1ER 2000 (1 ME) mit Tas Maus, 
1 Laufwerk und Farbmonitr 1 
IGA 500, 


mpatibie 


Scala Konlapaz rIBV-R 
er 


Copydata 149 
CSV Riegert 159 
Dela Elektronik 35 
Denisoft 159 
Dobbertin 143 
Elektronik Center 

Bad Tölz 143 
Kotulla 113 


Markt&Technik-Buchverlag 
2,9, 21, 28/29, 39, 56, 64, 161 
Merz 159 
Philosoft 159 


Inserenten in dieser Ausgabe: 


Rätz-Eberle Verlag 61, 164 


Rausch + Haub 113 
Schneider 13 
Shogue-Soft 149 
Strauß-Elektronik 149 
TG-Soft 113 


Waldeck Software 149 


Bitte beachten Sie auch 
unseren Einkaufsführer auf 
den Seiten 156/157. 
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beiden neueren CPC-Modelle 
ins Basic-ROM aus. Um Scale 
nun auch auf diesen Compu- 
tern zugänglich zu machen, 
müssen Sie zwei neue Zeilen 
hinzufügen: 


102 DATA 9C30,CD,00,B9,CD, 
72,DD,CD,03,7C0D 

103 DATA 9C38,B9,C9,00,00, 
00,00,00,00,6EC0 


Sie enthalten eine Routine, 
die anstelle der vorzeichenlo- 
sen Multiplikation aufgerufen 
wird und das ROM ein- bezie- 
hungsweise wieder ausschal- 
tet. Die restlichen Änderungen 
betreffen mehrere Zeilen, 
deren Inhalt Sie im folgenden 
finden. 


108 DATA 9060,16,03,93,CA, 
F3,3A,2F,B7,2299 

109 DATA 9068,32,A3,B6,3A, 
30,B7,32,A4,273C 

110 DATA 9C70,B6,CD,C6,BB, 
ED,53,AC,AC,7CEO 

111 DATA 9078,22,AE,AC,26, 
00,DD,6E,04,2ECC 

112 DATA 9080,22,A8,AC,DD, 
6E,02,22,AA,2006 

116 DATA 9CA0,B9,7E,E5,2A, 
AA,AC,45,05,5AAF 

118 DATA 9CB0,00,00,ED,5B, 
AB,AC,CD,F9,1E83 

119 DATA 90B8,BB,F1,01,18, 
OB,ED,5B,97,7BAD 

120 DATA 9C00,B6,2A,A8,AC, 

19,22,97,B6,4F98 

DATA 9C08,10,E0,24,99, 

B6,2B,2B,22,39B8 

122 DATA 90D0,99,B6,ED,5B, 
AC,AC,ED,53,7F49 

123 DATA 9CD8,97,B6,C1,10, 
OA,E1,23,01,7473 

124 DATA 9CEO,10,BB,ED,5B, 
A8,A0,21,08,396A 

125 DATA 9CEB,00,CD,FO,9F, 
ED,5B,AC,AC, 2340 

126 DATA 90F0,19,22,AC,AC, 
22,97,B6,24,1944 

127 DATA 9CF8,AE,AC, 22,99, 
B6,E1,23,C1,7763 

130 adr=89030:zeile=102: 

MEMORY adr-1 

142 SAVE”SCALE.BIN”,B, 

89030, &D5 

Auch im Demoprogramm 
(Listing 2) sind einige Änderun- 
gen nötig: 


12. 


FR 


40 asadr+34 

50 POKE adr+27,INT(a/256): 
POKE adr+26,a-256xINT 
(a/256) 

60 a=adr+30 

70 POKE adr+21, INT(a/256): 
POKE adr+20,a-256xINT 
(a/256) 

80 asadr+26:POKE adr+18, 
INT(a/256):POKE adr+17, 
a-256xINT(a/256) 

90 CALL adr+16:... 
190 POKE &B72F,... 
200 POKE &B72F,... 
210 POKE &B72F,... 
220 POKE &B72F,... 
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Zusätzlich ergänzen Sie 
dann noch die Zeile 
82 POKE adr+187, INT(adr/25 
6):POKE adr+186,adr-256% 
INT(adr/256) 

Damit steht der Anwendung 
des Befehls SCALE auf Ihrem 
CPC6128 nichts mehrim Weg. 

(Wolfgang Ried/ja) 


Kybemetien 
in Not 

Als Herrscher über den 
Staat Kybernetien (gleichnami- 
ges Programmlisting aus dem 
7.Schneider-Sonderheft, Seite 
102) hatten viele Leser so ihre 
Probleme, denn was sie auch 
in die Erhaltung ihres Landes 
investieren wollten, der Com- 
puter meldete stets »zuviel«. 
Die Ursache dafür ist der 
immense Speicherplatzbedarf 
des Programms samt Varia- 
blen. Was auf einem CPC 464 
mit Kassettenrecorder gerade 
noch so reicht, funktioniert auf 
Geräten mit angeschlossenem 
Diskettenlaufwerk nicht mehr. 
Die Abhilfe für diesen Umstand 
ist ebenso banal wie einfach. 
Starten Sie anstelle des Lade- 
programms (Listing 1) nur das 
Hauptprogramm (Listing 2) 
direkt. Was dadurch verloren- 
geht, sind lediglich die Kurzan- 
leitung und die Erzeugung der 
deutschen Umlaute für den 
Bildschirmdialog. Das Spiel 
indes berührt diese Maß- 
nahme nicht; bis auf die Tatsa- 
che, daß es nun korrekt läuft. 
(Rolf Schultz/ja) 


Tuning mit 
Hindernissen 


Wie sich erst kurz nach dem 
RedaktionsschlußB des 7. 
Schneider-Sonderhefts her- 
ausgestellt hat, verfügen 
einige Modelle des CPC 664 
über eine andere Gate-Array- 
Version (Typ 40010) als die 
Mehrheit der Modelle 464 und 
664. 

Der Unterschied zwischen 
den Gate Arrays liegt glückli- 
cherweise nicht in der internen 
Verschaltung, sondern ledig- 
lich in der Pinbelegung. Des- 
halb muß bei diesen Gate- 
‚Array-Versionen nicht die Lei- 
terbahn an Pin 3, sondern die 
Leiterbahn an Pin 16 des Gate 
‚Array aufgetrennt werden. Das 
CAS-Signal 
Signal für Pin 7 des PAL wird 
dementsprechend nicht an Pin 
3, sondern an Pin 16 des Gate 
Array abgegriffen. 

Ebenso _müssen Sie das 
Signal ROMEN für den Um- 
schalter US an Pin 27 statt an 
Pin 12 abgreifen. 


Eine kleine Modifikation des 
Umbaus, die bei einigen Com- 
putertypen die Signalsicher- 
heit erhöht und manchmal erst 
zur korrekten Funktion des 
Umbaus führt, besteht darin, 
daß Sie die Datensignale D6 
und D7 für IC 74LS08 auf der 
PAL-Platine nicht an Pin 17 und 
Pin 18, sondern an Pin 16 (D6) 
und Pin 19 (D7) des IC 114 
abnehmen. Da es - wie wir 
inzwischen feststellen mußten 
- allein vom CPC 464 minde- 
stens fünf und vom CPC 664 
mindestens drei verschiedene 
Versionen gibt, können wir 
Ihnen nicht pauschal mitteilen, 
für welchen Typ sich diese 
Änderung lohnt. 

Im 7. Schneider-Sonderheft 
wurden im Schaltplan in Bild 1 
auf Seite 16 zwei Signale ver- 
tauscht, so daß das Booten von 
CP/M Plus im 6128-Modus 
nicht korrekt funktioniert. Ver- 
tauschen Sie die Adreßleitun- 
gen A14 und At5 an den beiden 
PAL-Eingängen Pin8undPin9 
miteinander, indem Sie A14 an 
Pin 9 und A15 an Pin 8 des PAL 
löten. Danach muß alles ein- 
wandfrei funktionieren. 

Eine weitere Fehlerquelle, 
die eine korrekte Funktion 
nach dem Umbau verhindert, 
kann in der Verdrahtung lie- 
gen, wenn diese in Form von 
Kabelbäumen durchgeführt 
wird. 

In diesem Fall liegen näm- 
lich mehrere Signalleitungen 
so eng nebeneinander, daß es 
durch kapazitives und indukti- 
ves Übersprechen der Signal- 
spannungen zu Störungen im 
Spannungspegel benachbar- 
ter Signalekommt. Zudem sind 
durch die rechtwinklige 
Streckenführung der Kabel- 
bäume die Signalleitungen 
länger als notwendig, was wie- 
derum die Signalstärken 
schwächt. 

Eine auf kurze Wege opti- 
mierte und aufgelockerte Füh- 
rung der Leitungen schafft hier 
Abhilfe. 

Probleme gibt es teilweise 
auch bei neuen CPC-Model- 
len, die mit einer Low-Power- 
Version des Gate Array ausge- 
rüstet sind. Hier sind an den 
Ausgängen CAS und ROMEN 
die logischen TTL-Pegel für 
das PAL so knapp bemessen, 
daßsich der Einbau von je zwei 
Schmitt-Triggern (74LS14 oder 
741519) in die CAS-Leitung 
zwischen Gate Array und PAL 
sowie in die ROMEN-Leitung 
zwischen Gate Array und 
Umschalter US lohnt, um die 
Signalpegel zu verbessern. 
Dadurch werden jedoch die 
genannten Signale um etwa 32 
Nanosekunden verzögert, was 


wiederum zu Timing-Proble- 
men beim Speicherzugriff füh- 
ren kann. 

Viele Leser haben uns an- 
gerufen und gefragt, ob der 
Umbau eines CPC auch mit 
der Vortex-Speichererweiterung 
funktioniert. Dazu kann folgen- 
des gesagt werden: 

Im 464-Modus arbeitet die 
Vortex-Speicherkarte im CPC 
einwandfrei, doch im 6128-Mo- 
dus funktionieren sowohl Com- 
puter als auch Speicherkarte 
nicht. Dies liegt daran, daß ei- 
nerseits das PAL des CPC zur 
Verwaltung der zweiten 64- 
KByte-Bank Bit 6 und Bit 7 der 
Portadresse 7Fxx (hex) auf 1 
setzt, um auf andere Speicher- 
bereiche zuzugreifen, und 
andererseis die Vortex-Spei- 
chererweiterung zum gleichen 
Zweck Bit 6 und Bit 7 der Port- 
adresse 7Fxx (hex) auf 1 setzt. 
Dadurch kommt es zu Über- 
schneidungen bei der Spei- 
cherverwaltung, die in einem 
sofortigen Absturz des Com- 
putersystems enden. Wir 
haben jedoch einen Hardware- 
Patch entwickelt, damit die 
Speichererweiterung auch im 
6128-Modus einwandfrei läuft. 
Wenn Sie Interesse daran 
haben, dann wenden Sie sich 
telefonisch oder schriftlich an 
die Redaktion. 

(Peter Bündgens/ma) 


Tücken bei der 
Dekodierung 


In die Dekodierung der 
Happy-Megabitkarte aus dem 
7. Schneider-Sonderheft hat 
sich in Bild 5 und 6 leider ein 
kleiner Fehler eingeschlichen, 
der zu Fehlfunktionen der 
Speichererweiterung führt. 
__Bei dem Gatter, das das 
CS-Signal für den Datenbus- 
treiber erzeugt und an den bei- 
den’Eingängen mit Pin8des IC 
741527 sowie dem CE-Signal 
verbunden ist, darf es sich 
nicht, wie fälschlicherweise 
angegeben, um ein AND- 
Gatter 74LS08 handeln. Viel- 
mehr muß hier ein OR-Gatter 
des IC 74LS32 eingesetzt wer- 
den. (Ein Gatter dieses Bau- 
steins ist noch unbeschaltet.) 

Das CE-Signal und das 
Signal von Pin 8 des IC 74L527 
müssen Sie an Pin 13 und Pin 
12 des IC 74LS32 anschließen 
und das CS-Signal an Pin 
11 des gleichen Gatters abneh- 
men. 

Zusätzlich sind in Bild6 Pin4 
undPin5desIC74LS27 andas 
WR-Signal angeschlossen. 
Diese beiden Anschlüsse müs- 
sen jedoch auf Masse gelegt 
werden. (Michael Stagge/ma) 
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Happy-Imager 


der konkret zu druckenden 
Pixel bestimmen, in diesem 


94B4 hex setzen je zwei Byte 


en 1B und 40 hex (»ESC @«) den 
Fall 800 (3+256+32). Drucker auf seine Standards 

Partmerschafts- Ab den Adressen 944B und zurück. 

Das Hardcopy-Programm 
»Happy-Imager« aus dem 7. | Adresse {hex) "| Befehl (hex) | Wirkung 
Schneider Sonderheft (Seite 93EB ® 1B ESC 
133) ist für Epson- und kompa- 93F0 2A Grafikmodus 
tible Drucker ausgelegt. | ggF5 0) 120 Punkte pro Zoll 
eench! N oarHauchiichen 93FA 20 Low-Byte der Punktzahl 

SSFF 08 High-Byte der Punktzahl 
Druckern (auch dem DMP ansyia der. Fun 
2000) gewährleistet ist, gibt es 944B 1B ESC 
natürlich auch Ausnahmen 9450 Drucker-Initialisierung 
von dieser Regel. Wer die O4AF 0C Seltenvorschub, 
Hardcopyroutine nun an sei- 
nen speziellen Drucker anpas- 9484 1B ESC 
sen möchte, erreicht dies 9489 40 Drucker-Initialisierung 
durch einige wenige POKEs, 9 
1 4DO 1B ESC 

deren Werte er aus seinem 
Druckerhandbuch entnimmt. We = an en 
Der erste wichtige Bereich ist 94CB 0 ni 
die Initialisierung der Punkt- 
auflösung für den Grafikdruck. 94DD 0A voller Zeilenvorschub 
Wie Sie aus der Tabelle erse- 
hen, geschieht diese Einstel- es E ESC. 
lung durch eine ganze Reihe 2 Schriftartwahl 
von Bytes. Der Befehl selbst | 986F 1D (für Copyright-Zeile) 
(»ESC *«) besteht aus den zwei 9677 1B ESC 
Byte 27 (1B hex) und 42 (2A | gerc 53 Super-/Subscript 
hex). Die 1 aktiviert eine Auflö- 9681 01 ‚Subscript ein 


sung von 120 Punkten pro Zoll. 


Darauf folgen zwei Byte (Low- 
und High-Byte), die die Zahl 


Tabelle. Diese Druckerbefehle finden im Happy-Imager 
Verwendung. 


Der Wert 0C hex bei Adresse 
94AF hex sorgt für einen Sei- 
tenvorschub des eingelegten 
Papiers im Drucker. 

Die Befehlsfolge 1B hex, 33 
hex auf 94DO hex bewirkt die 
Veränderung des Zeilenvor- 
schubs (»ESC 3 n«). Ein dritter 
Wert steht als Parameter <n> 
für den neuen Wert des Vor- 
schubs. Diesen erhält das 
Unterprogramm von zwei Rou- 
tinen: Auf Adresse 9403 hex 
sorgt das Byte OB hex für 
11/216 Zoll Vorschub, während 
die 1 (94CB hex) auf 1/216 Zoll 
schaltet. 

Der Wert OA hex auf 94DD 
hex veranlaßt einen vollen Zei- 
lenvorschub. 

Die Schriftart der Copyright- 
zeile bestimmt die Befehls- 
folge ab Adresse 9665 hex 
(»ESC !«), wobei der dritte Wert 
(1D hex) für die Schriftart steht. 

Dem Druck derselben Zeile 
dient der Befehl ab 9677 hex 
(ESC S n«), Er schaltet in den 
Subscript-Modus, wenn wie 
hier der Parameter <n> eine 
1 ist. Interessierte Leser kön- 
nen den gesamten Quellcode 
bei uns anfordern, wenn Sie 
uns eine formatierte Diskette 
im frankierten Rückumschlag 
senden. (Michael Herz/ja) 


Achtung 


C-Programmierer aufgepaßt! 


Jetzt gibt es Small-C, ein komplettes 
Entwicklungssystem im CP/M-Modus 
für die Schneider-CPM-Computer. Mit 
Editor, Compiler, Linker und vielen 
weiteren Utilities. 


Alle Programme sind in Small-C 
Gachebenı der Quellcode wird 
mitgeliefert. 

So können Sie das Entwicklungs- 
system nach eigenen Wünschen und 
Erfordernissen erweitern und 
modifizieren. 


Tos2a3 


Bestellungen im Ausland bitte an: SCHWEIZ: M 
Heizwerkstraße 10, A-1232 Wien, Telefon (022: 


AIARPYM 
CONIEUTER) 


6090-1280 Makro: Unkarn 
Benownekavorwaner Eitorf Too 


Für Schneider Computer 
FFomat 


Das een enthält: 
e Small-C-Compiler 

e Small-Mac: Assembler und Utilities 
e Small-Tools: Editor und Text-Tools 


Hardware-Anforderungen: 
Schneider CPC mit mindestens 

56 Kbyte Speicher und einem Dis- 
kettenlaufwerk. Bei den Modellen 


CPC 464 und CPC 664 ist eine 
Speichererweiterung notwendig. 
3 Disketten (3” 


Bestell.hr. 51484 DM 99,-— 


* inkl. MwSı., unverbindliche Preisempfehlung, 


Wenn Sie direkt beim Ver 
kasse durch Verrechnung: 
Zohlkarte. 


tellen wollen: Gegen Voraus: 
oder mit der ahgadruckten 


Markt&Technik-Softwareprodukte erhalten Sie in den Fach- 
obieilungen der Kaufhäuser, in Compulerlachgeschäften oder 
im Buchhandel 


& Technik Vertriebs AG, Kallerstrasse 3, CH-6300 Zug, Telefon (042) 4156,56 - ÖSTERREICH: Rudolf lechner & Sohn, 
7526 - Ueberreuter Medio Verlogsges. mbH (Großhandel), Alser Straße 24, A-1091 Wien, Telefon (0222) 481538-0. 
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Markt &Technik-Produkte 
erhalten Sie bei 
Ihrem Depot-Buchhändler 


1000 Berlin 31, Bundesallee 25 im Tonstudio, Dataploy, Tel. (030) 8613315 + 1000 
Berlin 30, Einemstraße 5, Plastronie GmbH, Tel. (030) 2401 81 = 1000 Berlin 30, Keith- 
straße 18, Computore Fachhandlung, Tel. (030) 2139021 + 2000 Hamburg 36, Große 
Bleichen 19, Thalia Buchhaus, Tel. (040) 300.50 50 + 2000 Hamburg 1, Hermannstraße 
31, Boysen + Maasch, Tel. (040) 3005050 = 2300 Kiel, Holtenauer Stroße 116, Buch- 
handlung Muehlay Te. (0431) 85085 » 2390 Fensburg, Nordersioße 94.96, ECL, Tl 
(0461) 28181 = 2400 lübeck, Königstraße 79, Buchhandlung Weiland, Tel. (0451) 
160060 = 2800 Bremen 1, Langenstraße 10, Buchhandlung Storm, Tel. (0421) 321523 
» 2940 Wilhelmshaven, Markistroße 38, Buchhandlung lohse-Eissing, Tel. [04421] 
41687 + 3000 Hannover 1, Bahnhofstraße 13, Buchhandlung Schmorl u.v.Seeleld, Te. 
{0S11] 327651, * 3300 Braunschweig, Neue Sırabe, 28, Buchhandlung, Gral 
tel. (0531) 49271 » 3400 Göttingen, Weender Stroße 33, Deuerlich'sche Buchhanı 
lung, Tel. (0551) 56868 + 3500 Kassel, Holländische Straße 22, Buchhandlung an der 
Hochschule, Tel. (0561) 83807 « 4000 Düsseldorf, Friedrichstraße 24-26, Stern Verlag, 
Tel. (0211) 373033 + 4300 Essen 1, Kottwiger Straße 33-35, Buchhandlung Baedeker, 
Tel. (0201) 22138] » 4400 Münster, Altor Steinweg 1, Regensberg’sche Buchhandlung, 
Tel. (0251) 40541-5 » 4500 Osnabrück, Jchomnisstraße 51, Buchhandlung Acker, Tel. 
(0541) 28488 - 4600 Dormund, Westenhellweg 9, Buchhandlung C.L.Krüger, 
Tel. (0231) 1527358 » 4630 Bochum, Querenburger Höhe 281/Unicenter, Buchhand- 
lung Brockmeyer, Tel. (0234) 70.1360 - 4790 Paderbom, Warburger Straße 98, Buch- 
hondlung Meier+ Weber, Tel. (05251) 63172 - 4800 Bielefeld 1, Oberntorwall 25, 
Buchhandlung Phönix GmbH, Tel. (0521) 58306-38 + 5000 Köln 1, Neumarkt 24, Buch- 
handlung Gonski, Tel. (0221) 210528 - 5100 Aachen, Unulinerstraße 17.19, Moy- 
ersche Buchhandlung, Tel. (0241) 4777-136.» 5300 Bonn |, Am Hof 5o, Buchhandlung 
Behrendt, Tel. (0228) 658021 - 5400 Koblenz, Schloßstraße 12, Buchhandlung Cusa- 
nus, Tel. (0261) 36239 » 5500 Tier, Fleischstraße 61-65, Akad. Buchhandlung Inter- 
book, Tel. (0651) 43596 - 5600 Wuppertal 1, Kipdort 32, Buchhandlung W. Finke, Tel, 
(0202) 454220 « 5900 Siegen, Sandstraße 1, Buchhandlung Balagh, Tel. (0271) 
55298-9 » 6000 Frankfurt 1, Steinweg 3, Buchhandlung Naacher, Tel. (069) 298050 
+ 6100 Darmstadt, lautenschlägerstraße 4, Buchhandlung Wallnitz, Tel. (061 51) 76548 
= 6200 Wiesboden, Friedrichstroße 21, Buchhandlung Feller+Gecks, Tel. (061 21) 
3049 I} + 6300 Gießen, Seltersweg 83, Ferber’sche UNI-Buchhandlung, Tel. (0641) 
12001 = 6400 Fulda, Friedrichstroße 24, Sozialwissenschafliche Fachbuchhandlung, 
Tel. (0661) 75077 * 6450 Hanau, langstraße 47, Albertis-Hofbuchhandlung, Tel 
(08181) 24301 - 6500 Mainz, Große Bleiche 29, Gutenberg Buchhandlung, Tel. 
1061 31) 37011 « 6600 Saarbrücken, Futterstroße 2, Buchhandlung Bock + Seip, Tel 
(0681) 30677 » 6700 ludwigshafen, Bismarckstraße 98, Buchhandlung Wilhelm Hof- 
mann, Tel. (0621) 516001 « 6800 Mannheim 1, B1,5, Buchhandlung loelfler, Tel. (0621) 
289 12. 7000 Stuttgart 50, Bahnhofstraße 13, Buchhandlung Stehn, Tel. (071)56 1476 
» 7030 Böblingen, Sindellinger Allee 25, Osiondersche Buchhandlung, = 7100 Heil- 
bronn, Kramstraße 6, Buchhandlung am Markt, Tel. (071 31) 68682 - 7400 Tübingen, 
Wilhelmstraße 12, Osiandersche Buchhandlung, Tel. (07071) 51761 « 7410 Reutlingen, 
Kaiserpassage 8, Osiandersche Buchhandlung, » 7500 Karlsruhe, Kaiserstraße 18, UNI 
Buchhandlung Kellner-+ Moessner, Tel. (0721) 69 1436 « 7600 Offenburg, Hauptstraße 
45, Buchhandlung Roth, Tel. (0781) 22097 + 7800 Freiburg, Bertholdsiraße 10, Rom- 
bach Center, Tel. (0761) 49091 - 7900 Ulm, Hirschstraße 4, Fochbuchhandlung Hof- 
monn, Tel, (0731) 60949 = 7980 Ravensburg, Wangener Straße 99, Schauties Elektro- 
nik, Tel. (0751) 261 38 + 8000 München 2, Marienplatz, Buchhandlung Hugendubel, 
Tel. (089) 2389-1 - 8000 München 2, Barerstraße 32-34, Computerbücher am Obelisk, 
Tel. (089) 282383 » 8000 München 2, Schillerstraße 17, Pele's Computerbücher, Tel. 
(089) 555229 + 8000 München 2, Theresienstraße 43, Universitätsbuchhondlung Loch- 
ner, Tel. (089) 521340 » 8070 Ingolstadt, Theresienstraße 6, Buchhandlung Schön- 
huber, Tel. (0841) 331 46/47 » 8220 Traunstein, Ludwigstraße 3, Computerstudio 
Genrud Friedrich, Tel. (0861) 14767 = 8390 Passau, Kl. Exerzierplatz 4, Buchhandlung 
Pustet, Tel. (0851) 56945 » 8400 Regensburg, Gesandtenstraße 6, Buchhandlung 
Pustet, Tel. (0941) 53061 » 8500 Nümberg, Adlerstraße 10-12, Universitätsbuchhand- 
ung Böttner&Co,, Tel. (0911].238-0 - 8670 Hof, leimitzer Straße 1]-13, Computer. 
Center-Burger, Tel. (09281) 40075 - 8900 Augsburg, Groftenou 4, Buchhandlung 
Pustet, Tel. (0821) 35437 + 8960 Kempien, Salzsiraße 30, Kemptener Fachsortiment, 
Tel. (0831) 14413. 

Schweiz: 

3001 Ber, Neuengosse 43, Von-Werdt-Passage, Buchhandlung Francke AG, Tel. (031) 
221717 + 3011 Bem, Marktgasse 25, Buchhandlung Scherz, Ic) 1031] 226837 « 5000 
‚Aarav, Bahnhofstrasse 41, Buchhandlung Meissner, Tel. (064) 247151 = 6300 Zug, 
Nougosse 12, Bücher Balmer Te. 1042} 2141.41 « 8002 Zorich, Bleicherweg 36, Buch“ 
handlung Enge, Tl. 101) 2012078 - 8022 Zürich, Pokanarasse 10, Buchharaung Orel 
Fössli, Tel. (01) 2118011 + 8033 Zürich, Universitätsstrasse 11, Freihofer AG, Wissen- 
schaftliche Buchhandlung, Tel. (01) 3634282 + 9001 St. Gallen, Webergasse 5, Buch- 
handlung am Rösslitor, Tel. (071) 228726. 

Österreik 
1010 Wien, Wollzeile 11, Morawa&Cg, Tel. [0222) 947641 « 1020 Wien, Heinertstro- 
Be 3, Computer Buch Shop Karl Fogerl, Tel. (0222) 245368 = 1040 Wien, Karlsplatz 
13, IShmittelzentrum, Tel. (0222) 567801 = 1120 Wien, Schönbrunner Straße 261, Bü- 
cherzentrum, Tel. (0222) 8331 96 » 2700 Wiener Neustadt, Neue Weltgasse, Walter 
Hofstädter, Tel. (02622) 2 1550 » 3302 Amstetten, Hauptplatz 30, Kirchenstraße 3, Jo- 
hann Reisinger, Tel. (07472) 2576-0 + 3500 Krems, Obere Landstraße 8, Helmut lainer, 
Tel. (02732) 2818 = 4020 Linz, Landstraße 34, R, Pimgruber, Tel. (0732) 272834 + 
4840 Vöcklobruck, Stadtplatz 28, Buchhandlung Schachtner, Tel. (07672) 3467 » 
5020 Salzburg, St..Jullen-Straße 2, R. Regelsberg Tel. (0662) 73573» 6010 Innsbruck, 
Moria-Theresien-Straße 15, Tyrolio, Tel. (05222) 24944 » 6010 Innsbruck, Museum- 
stroße 4, Wogner’sche Universtätsbuchhandlung, Tel. (05222) 223 16 + 8010 Groz, 
Stemplergasse 3, Buchhandlung leykam, Tel. (0316) 76676-0 + 8010 Graz, Sacher. 
stroße 6, Jos, A. Kienreich, Tel. (0316) 76441 + 8010 Graz, Rodetzkystraße 7, Volks- 
buchhandlung, Tel. [0316] 79388. 
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Dann sollten Sie 
' vorbereitet sein. 
»PC Magazin« ist der 
entscheidende Schritt 
zur professionellen 
Computeranwendung. 


PC Magazin 


Die aktuelle Wochenzeitung für Per- 
sonal Computer im IBM-Standard. 
I Wenn Sie an aktuellen und umfas- 
‚senden Informationen über IBM-PCs 
und kompatible Systeme interessiert 
‚sind MM Wenn Sie stets über die neu- 
esten und effektivsten Anwendun- 
‚gen für den professionellen und pri- 
vaten Bereich informiert sein wollen 
iM Wenn Sie sich mit CAD/CAM und 
Netzwerken beschäftigen, dann ist 
das »PC Magazin« genau Ihre Zeit- 
schrift. 

Zur Anforderung Ihrer kostenlosen 
Probeexemplare einfach denneben- 
‚stehenden Gutschein ausfüllen, aus- 
‚schneiden, auf eine Postkarte kleben 
oder in ein Kuvert stecken und ein- 
senden an: 

Markt & Technik, Verlag Aktienge- 
sellschaft, PC Magazin Abonnen- 
ten-Service, Postfach 1304, 

8013 Haar bei München. 


WWW.HOMEEOMP! 


[Magazin] 


Ich interessiere mich für »PC Magazin«, die Zeit- 
schrift über IBM-PCs und Kompatible. Schicken 
Sie mir vier Ausgaben kostenlos als Probeexem- 
plare. 


Wennich »PC Magazin« nicht weiterlesen möchte, 
teile ich Ihnen dies sofort nach Erhalt der dritten 
‚Ausgabe mit. Gefällt mir »PC Magazins, so daß ich 
es regelmäßig weiterbeziehen möchte, brauche 
ich nichts zu tun: Ich erhalte mein »PC Magazin« 
dann regelmäßig jede Woche per Post frei Hausge- 
liefertund bezahle pro JahrnurDM 155,— statt DM 
229.50 im Einzelverkauf. Zustellung und Postge- 
bühren übernimmt der Verlag. 


Das Abonnement verlängert sich automatisch um 
ein weiteres Jahr zu den dann gültigen Bedingun- 
gen. wenn es nicht 2 Monate vor Ablauf schriftlich 
gekündigt wird. 


Dieses Angebot gilt nur in der Bundesrepublik 
Deutschland einschließlich West-Beriin. Auslands- 
preise auf Anfrage. 


GUTSCHEIN 


FÜR VIER KOSTENLOSE PROBEEXEMPLARE 


Name 


Vorname 


Straße 


PLZ Ort 


Datum, 1. Unterschrift 


Mir ist bekannt, daß ich diese Bestellung innerhalb 
von 8 Tagen bei Markt& Technik, Hans-Pinsel-Str. 
2. 8013 Haar widerrufen kann. Zur Wahrung der 
Frist genügt die rechtzeitige Absendung des Wi- 
derrufs. Ich bestätige dies durch meine 2. Unter- 
schrift 


Datum, 2. Unterschrift 


Über 1000x verkauft! 


Nach dem großen Erfolg von "The Player’s Dream” und der Anwen- 
dersammlung "CODEX” kommen jetzt die Nachfolger: 


The Player’s Dream Il 
CODEX III 


Für läppische DM 19.90 (Cass.) bzw. DM 24.90 (Disk.) finden Sie aut 


"The Player's Dream I": Darts 
(12/85), Senso (12/85), Show- 
down (1/86), Jump Over (2/86). 
Pingo (2/86), Zentus (6/86), 
Steinschlag (6/86), Gentibug (7/ 
86), Jolly Jumper (8-/86) und 
Pyramide (10/86). 


"The Player’s Dream II": Sepp im Hochhaus (4/86), Life (6/86), Minigolf (7/86), 
Tennis (11/86), Astronaut (12/86), Suicide Squad (2/87), Royal Flush (3/87), Flo- 
wers (8/87), Roulette (4/87) und Buggy Blaster (CK 10/85). 


Verschiebepuzzles 


Wer kennt Sie nicht? Unser Mit- 
arbeiter Andreas Zallmann und das 

Grafikass Christoph Schillo be- 

‚arbeiteten 9x die Tasten ihres CPCs. 
Herausgekommen sind 9 "erlesene 
Köstlichkeiten”. Puzzlen Sie mit! 


9 Verschiebepuzzles auf 3"-Diskette 
für nur 


om29.— 


CODEX I: Hexmonitor (12/85), 
Sprites mit Editor (12/85), Kalen- 
der (12/85), Datenverwaltung (1/ 
86), DIR-Doctor (Directory-Edi- 
tor) (2/86), Mini-Monitor (8/86), 
Mathematik (9/86), Statistik (4/ 
86). Baudcopy (4/86), Hidump 
(Hardcopy) (4/86), Bücherdatei 
(6/86), Labelassembler ASSO (6/ 
86), Notizblock (Sideklick) (6/86), 
Basio-Compiler (8-9/86), Disas- 
sembler (10/86). 


CODEX Il: Softwareuhr (12/85), Disk-Doktor (1/86), Orgel (1/86), Datagenera- 
tor (2/86), Taschenrechner (3/86), Painter (3/86), Periodensystem (3/86), Elek- 
tro-CAD (5/86), Scrollbremse (6/86), Copy ??right!! V2.0 (6/86), 3-D-Prozessor 
(7/87), Digitalisierer (7/86), Tastenklick (8-9/86), Oszilloskop (8-9/86), Symbol- 
Editor (10/86), Fast-Routine (10/86), DFÜ (10/86), Datei (12/86), Neues HI- 
Dump (1/87). 


Die andere Software 


10 Lernprogramme für Kinder 
zwischen 4 und 12 Jahren. Unser 
Mitarbeiter Berthold Freier, seines 


Mk 
Lernen 


mit Zeichens Pädagoge aus Bayern, ge- 


Spaß 


staltete 10 Programme, bei denen 
nicht Raketen und Gewehre im 
Vordergrund stehen, sondern der 
Grips der Kinder gefordert wird! 


10 Lernprogramme auf 3"-Diskette 
für 


DM 29 (z 


* Der Versand mit denteu 


N \ 
wa 


DIABOJO 


finden Sie auf Seite... 


chen Preisen! « 


Software-Bestellschein 


Ich bestelle aus dem CPC-Programmservice folgende Software: 


Emzet- [esamt- 
Anzanı Til prais |  orais, 


Player'sDream|Cass, |19,90D0M 
Player'sDreamil Cass. |19,90DM 
Player'sDream| 3"-Disk_ |24,90DM 
Player'sDreamil 3"-Disk |24,80D0M 


Ich wünsche folgende 
Bezahlung 


DON CODEXI 3"-Disk 24,90DM 
De a ” 
en - 

Dr Herr, CODEX II 3"-Disk 24,90 D! 
Peine Versandkosten) LernenmitSpaß 3"-Disk |29,00DM 
ee al 2 
are, - uzzle 3"-Disk 29,00DM 
nn — 

= mer 


Coupon ausschneiden, auf Postkarte kieben und einsenden an: 
Verlag Rätz-Eberle/CPC-Software, Postfach 1640, 7518 Bretten. 


LD.COM 


